HEI, VOISIKO JOKU NEUVOA, MILLAISELLA MAKROLLA VOISIN KOPIOIDA ESIM. RIVIT 60-80, PAITSI EI TYHJIÄ. TOISIN SANOEN RIVIT 60-80 JOISSA ON JOTAIN.
KOPIOI
EI TYHJÄT
1
232
Vastaukset
moduuliin...
Sub KopioiEiTyhjätrivit()
Dim Kopioitavat As Range
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Sheet1").Select
For Each solu In Range("A10:A20")
If Application.CountA(solu.EntireRow) > 0 Then
If Kopioitavat Is Nothing Then
Set Kopioitavat = solu.EntireRow
Else
Set Kopioitavat = Union(Kopioitavat, solu.EntireRow)
End If
End If
Next
Sheets("Sheet2").Rows("1:21").Clear
Kopioitavat.Copy Sheets("Sheet2").Range("A1")
Application.ScreenUpdating = True
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1302425En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1091454- 1341239
Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3411189Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041117Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991025On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s46729Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252719Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33710- 50684