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
66
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
4 kuoli kolarissa
Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.39915650Nainen, moraali on koetuksella sun kanssa
Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei1202408- 941886
- 831758
Onko kenelläkään tästä tietoo?
https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te461337- 981255
Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?
Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e2811158Suomussalmi News -valvontakameran tunnisteet pojista
Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi341140Se helpottaisi oloa jos
Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin831129Ihastukselleni
Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn211093