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

• #3023 Delila_1 veterán sonar #3021

  Új Válasz 2008-01-22 13:44:26 #3023

  Ú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 sonar #3021 üzenetére

  Ha már Amanozas így megbízik bennem, itt a makró. (Igazad van Amazonas, körkörös hivatkozás lenne).

  Sub mem()
  Range("G1").Select
  Selection.End(xlDown).Select
  usor = Selection.Row
  For sor = 1 To usor
  nev = Right(Cells(sor, 7).Value, 2)
  If Left(nev, 1) = ":" Then nev = Right(nev, 1)
  Cells(sor, 7) = nev
  Next
  End Sub

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