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

• #22016 Delila_1 veterán LordVader80 #22015

  Új Válasz 2014-06-16 14:37:57 #22016

  Ú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 LordVader80 #22015 üzenetére

  Kiegészítve az üres cellák másolásának elhagyásával:

  Sub Egymas_ala()
  Dim ter As String, CV As Object, sor As Long
  
  Range("A1").Select '*
  ter = Selection.CurrentRegion.Address
  
  sor = 1
  For Each CV In Range(ter)
  If CV > "" Then
  Sheets("Munka2").Range("A" & sor) = CV.Value '**
  sor = sor + 1
  End If
  Next
  End Sub

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