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

• #50230 Delila_1 veterán RedHarlow #50224

  Új Válasz 2023-01-08 15:34:27 #50230

  Ú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

  

  Delila_1

  veterán

  válasz RedHarlow #50224 üzenetére

  Úgy látom, minden sorodban szerepel az xyz szövegrész.
  A lenti makró az A oszlopban az xyz szöveg után betesz egy sortörést.

  Sub Sortores()
Dim sor As Integer, b As Integer
sor = 1
Do While Cells(sor, 1) <> ""
b = InStr(Cells(sor, 1), "xyz")
If b > 0 Then Cells(sor, 1) = Left(Cells(sor, 1), b + 2) & Chr(10) & Mid(Cells(sor, 1), b + 3, 100)
sor = sor + 1
Loop
End Sub

• #50226 Pakliman tag RedHarlow #50224

  Új Válasz 2023-01-07 14:21:52 #50226

  Ú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

  

  Pakliman

  tag

  válasz RedHarlow #50224 üzenetére

  Alt+Enter a cellán belüli sortörés.

• #50225 lappy őstag RedHarlow #50224

  Új Válasz 2023-01-07 13:40:00 #50225

  Ú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

  

  lappy

  őstag

  válasz RedHarlow #50224 üzenetére

  Sortörèssel több sorba esetleg?

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