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
244
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa1363667- 122396
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos371955Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly211721Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?301493- 1241448
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul101311- 141246
Se oli siinä sitten
Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo4781221- 761135