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

• #47244 Fferi50 Topikgazda andreas49 #47243

  Új Válasz 2021-08-17 14:49:48 #47244

  Ú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

  

  Fferi50

  Topikgazda

  válasz andreas49 #47243 üzenetére

  Szia!
  Ezt a makrót másold be egy modulba (vagy a munkalap kódlapjára).
  Sub kerescserel()
Dim wb As Workbook, ws As Worksheet, mit, mire
On Error GoTo hibas
mit = "": mire = ""
mit = Application.InputBox("Mit cseréljek", "Cserélés", mit)
If mit <> "" And mit <> "False" Then
mire = Application.InputBox("Mire cseréljem a: " & mit & " szöveget?", "Cserélés", mire)
If mire <> "" And mire <> "False" Then
Application.ScreenUpdating = False
For Each wb In Workbooks
For Each ws In Worksheets
ws.UsedRange.Replace what:=mit, replacement:=mire, lookat:=xlWhole
Next
Application.StatusBar = "Cserélem a " & mit & " " & mire & "a(z) " & wb.Name & " munkafüzetben!"
DoEvents
Next
End If
End If
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub
hibas:
MsgBox "Hiba van: " & Error
End Sub
  Meg kell adnod, hogy mit cseréljen, majd azt, hogy mire szeretnéd cserélni.
  A cserélés csak teljes cellatartalomra vonatkozik, részekre nem. Nem érzékeny a kisbetű-nagybetű különbségre.
  A makró minden nyitott munkafüzet minden munkalapján cseréli az adott szöveget.
  Hozzá rendelheted egy billentyű kombinációhoz, akkor azzal gyorsan tudod hívni - vagy felteheted a menüszalagra is a beállítások - menüszalag - makrók útján.
  Ha hibával megáll, akkor jelezz vissza légy szíves.
  Remélem, tudod használni.
  Üdv.

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