Vba:ta

Taas pihalla

Siirrän toiseen ohjelmaan dataa näin:

Dim vika As Long
vika = Range("O65536").End(xlUp).Row
Sheets("Sheet1").Activate
For Each solu In Range("O4:O" & vika)

koodia.....

MsgBox "ALL " & vika - 1 & " Excel rows processed"


Tämä siis siirtää yhden rivin kerrallaan, kunnes vastaa tulee tyhjä rivi. Miten saisin siirrettyä 10 kerrallaan?

1

81

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Option Explicit
      Sub a()
      Dim i As Long
      Dim vika As Long
      vika = Range("A65536").End(xlUp).Row
      Sheets("Taul1").Activate
      For i = 4 To vika Step 10
      Range("A" & i & ":A" & i 9).Copy Range("C65536").End(xlUp).Offset(1, 0)
      Next
      End Sub

      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikka Purra leikkasi alimmalta tulodesiililtä 15 %

      Muistaako kukaan Riikka Purran kovaäänisen vaalilupauksen ennen eduskuntavaaleja? https://yle.fi/a/74-20221152 "THL o
      Maailman menoa
      348
      6399

    2. Muistele nainen niitä meidän yhteisiä hetkiä

      Miltä ne tuntui? Enkö aina huokunut välittämistä, kiintymystä. Eikö sinulla aina ollut hyvä olo kanssani? Minulla ainaki
      Ikävä
      48
      3806

    3. Olisitko tältä

      seisomalta valmis seksuaaliseen kanssakäymiseen hänen kanssaan?
      Ikävä
      97
      1005

    4. Yllätä mut ja laita viestiä

      Whatsapissa. Uskallatko vielä?
      Ikävä
      52
      880

    5. Huomasin kyllä

      Mitä tästä pitäisi ajatella?
      Ikävä
      56
      846

    6. Miellyttääkö eniten

      Kaivattusi persoona vai ulkonäkö?
      Ikävä
      41
      830

    7. Naiset ei halua kilttejä miehiä

      Näin se vaan on..jos olet ilman tatskoja, et rähjää, sinulla ei ole rikosrekisteriä, olet liian kiltti, et sano pahasti,
      Ikävä
      137
      823

    8. Tämä kikka tekee lihapullista entistä maukkaampia - Tämä "ihmeaine" löytyy keittiön kaapista

      Lihapullat ja ruskea kastike on arkiruokien kunkku! Paistatko itse lihapullat pannulla vai uunissa? Näin saat ruoasta v
      Ruoanlaitto
      8
      813

    9. Haluatko sitten

      Rakastella miten paljon?
      Ikävä
      68
      810

    10. Seiska: Helmi Loukasmäki paljastaa - Näin Danny ja Helmi tapasivat

      Helmi Loukasmäki, 25, ja Ilkka Danny Lipsanen, 83, ovat seurattuja julkkiksia. Mutta tiesitkö, miten he tapasivat? Lue
      Viihde ja kulttuuri
      14
      761
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt