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.1272356En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1081403Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3341140- 1111104
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1041077Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.99975On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s44710Palstan ylivoimaisesti suosituin keskustelunaihe
Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks252699Ei koskaan saatu tuntea
Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee33690- 50674