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?
Vba:ta
Taas pihalla
1
54
Vastaukset
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ä.
Luetuimmat keskustelut
- 1612831
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1351996Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1091946- 841644
- 811521
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241512- 2271110
- 681042
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2641040- 73930