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

• #44415 Delila_1 veterán Csokishurka #44412

  Új Válasz 2020-06-30 13:01:14 #44415

  Ú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 Csokishurka #44412 üzenetére

  Sub Utvonal_Csere()
Dim utvonalRegi As String, utvonalUj As String

utvonalRegi = Application.InputBox("Add meg a cserélendő útvonalat", "Régi útvonal bekérése", , , , , , 2)
utvonalUj = Application.InputBox("Add meg az új útvonalat", "új útvonal bekérése", , , , , , 2)

Application.DisplayAlerts = False
Cells.Replace What:=utvonalRegi, Replacement:=utvonalUj, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Application.DisplayAlerts = True
End Sub

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