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.36114161Nainen, moraali on koetuksella sun kanssa
Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei1002141- 941809
- 831693
Onko kenelläkään tästä tietoo?
https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te451271- 971220
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, e2801083Suomussalmi News -valvontakameran tunnisteet pojista
Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi281044Ihastukselleni
Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn211033Se helpottaisi oloa jos
Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin73997