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

• #48127 Fferi50 Topikgazda karlkani #48124

  Új Válasz 2021-12-27 13:29:29 #48127

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

  Szia!
  Igen, ilyen az amikor próba nélkül a régiből kiindulva alakítok át valamit.
  Ez elvileg már jó lehet:
  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, "/")) & "valami1" & Mid(a, InStrRev(a, "/")) ' a valami1 legyen idézőjelek között
a = Replace(a, ".", "_valami2.")
cl.Value = a
End If
Next
End Sub
  Ismételten bocs.
  Üdv.

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