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
71
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
- 561338
Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.1601270Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu581222Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle601135Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1041101Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä58907Nyt tiistain galluppi alkaa....
Kuka on sun elämän rakkaus? Ketä kaipaat edelleenkin? Nyt nimiä vaan rohkeesti tuohon alle.Tää on ikäväpalsta, eikä mikä56883KIIKKUSTUOLI
Aloitetaan taas uudella alustalla, nuo pitkiksi venyneet ovat hankalia etsiä uusia viestejä, joskus vastauksia tulee sin81832- 51817
Miten aiot saada kaivattusi?
1) loukuttamalla 2) kidnappaamalla 3) huijaamalla 4) jokin muu, mikä?54795