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

• #48121 Fferi50 Topikgazda karlkani #48119

  Új Válasz 2021-12-27 11:04:58 #48121

  Ú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 karlkani #48119 üzenetére

  Szia!
  A módosított makró:
  Sub modosit()
Dim a As String, cl As Range
For Each cl In ActiveSheet.UsedRange.Columns("A").Cells 'az A helyére írd az adataid oszlopát
    If InStr(cl.Value, "/") > 0 Then
       a = cl.Text
       a = Left(a, InStrRev(a, "/")) & "valami_" & Mid(a, InStrRev(a, "/") + 1) ' a valami_ legyen idézőjelek között
       a=replace(a,".","_valami2.")
       cl.Value = a
    End If
Next
End Sub
Üdv.

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