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

• #4382 Delila_1 veterán AvLav #4381

  Új Válasz 2009-01-18 17:11:15 #4382

  Ú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 AvLav #4381 üzenetére

  Sub Csere()
  Range("A1:A1000").Select
  Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False
  
  For Each cv In Worksheets("Munka1").Range("A1:A1000")
  Range(cv.Address) = Left(cv.Value, Len(cv.Value) - 3)
  Next
  End Sub

  Ez a makró megcsinálja mindegyik cserét, de a futtatása előtt a Range("A1:A1000")-et két helyen, és a Munka1-et írd át a saját értékeidre.

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