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

• #37937 Delila_1 veterán tzimash #37936

  Új Válasz 2018-04-29 18:24:45 #37937

  Ú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 tzimash #37936 üzenetére

  Sub Csere()
Dim szam As Integer

For szam = 1 To 9
Columns(1).Replace what:="SZ0" & szam & "NX", Replacement:="L" & szam
Next

For szam = 10 To 14
Columns(1).Replace what:="SZ" & szam & "NX", Replacement:="L" & szam
Next
End Sub

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