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
249
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
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2174198Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii692695Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava3932401- 472333
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua331572Muutama kysymys ja huomio hindulaisesta kulttuurista.
Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul5321350Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em951316- 571310
- 761281
Jumala puhui minulle
Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles1251186