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
78
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
Riikan kukkaronnyöri on umpisolmussa
Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h72763Jos vedetään mutkat suoraksi?
Niin kumpaan ryhmään kuulut? A) Niihin, jotka menevät edellä ja tekevät? Vai B) Niihin, jotka kulkevat perässä ja ar1062611Tanskan malli perustuu korkeaan ansioturvaan
Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv182307Vain vasemmistolaiset ovat aitoja suomalaisia
Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.481889Anteeksipyyntöni
Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska141453- 321453
- 1771173
Sydämeni valtiaalle
En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden1011144Persu ajoi autoa
Ajoi lapsen yli https://www.iltalehti.fi/kotimaa/a/597a7468-3d1d-455e-bed2-21c1efc31ac1201073En vain unohda
Sitä miten rakastuneesti olet minua katsonut. Oliko tunteet liian suuria että niistä olisi voinut puhua.70986