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

• #48129 Fferi50 Topikgazda karlkani #48128

  Új Válasz 2021-12-27 14:42:36 #48129

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

  Szia!
  A figyelmetlenség netovábbja részemről...
  Fussunk neki ismét:
  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 = Left(a, InStrRev(a, ".") - 1) & "_valami2" & Mid(a, InStrRev(a, "."))
cl.Value = a
End If
Next
End Sub
  Üdv.

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