Új hozzászólás Aktív témák

• #42836 Delila_1 veterán Sesy #42834

  Új Válasz 2020-01-24 16:44:29 #42836

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sesy #42834 üzenetére

  Egy rövid makró a 36 kezdetű cellák másolásához.

  Sub Masolas()
Dim sor As Long, ide As Long

Sheets("Munka2").Select
sor = 1
Do While Cells(sor, 1) <> ""
If Left(Cells(sor, 1), 2) = "36" Then
ide = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row + 1 '***
Sheets("Munka1").Cells(ide, 1) = Cells(sor, 1).Value
End If
sor = sor + 1
Loop
End Sub

  A csillagokkal jelzett sor határozza meg a Munka1 lapon az első üres sort.
  Sok adat esetén érdemes a makró elején kikapcsolni a képernyő frissítését – Application.ScreenUpdating = False
  –, a végén meg visszaállítani.
  Szerk.: azt is megteheted, hogy szűröd az oszlopot a 36-os kezdetre, majd a szűrt állományt másolod a Munka1-re.

Új hozzászólás Aktív témák