Microsoft Excel topic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Fototrend

Frissítve: 2023-11-13 08:31 Téma összefoglaló

Fototrend

A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

Fferi50 Topikgazda

2021-01-12 22:48:37 #45758

Új Válasz
Ú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

Fferi50

Topikgazda

válasz karlkani üzenetére #45754

Szia!
Miért ne lehetne úgy átírni.
Tehát minden második sorban van az a szöveg, amit ki szeretnél cserélni?
Akkor ilyen legyen a 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 cl.Value = a End If Next End Sub
Remélem, így már tényleg működni fog.
Üdv.

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

Topikgazda

Bővebben a topikgazda rendszerről...

Aktív témák

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek