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

• #5714 Delila_1 veterán bandus #5713

  Új Válasz 2009-11-23 12:55:55 #5714

  Ú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 bandus #5713 üzenetére

  Azért nem, mert angol verzióhoz készült a képlet.
  Itt a makrós megoldás:

  Sub Rendez()
  Dim CV, sor
  Dim terület As String
  sor = 1
  terület = "$A$1:$E$" & Range("E1").End(xlDown).Row
  
  For Each CV In Range(terület)
  Sheets("Rendezve").Cells(sor, 1) = CV
  sor = sor + 1
  Next
  End Sub

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