split text jedne celije u vise

[ jaskojsako @ 30.06.2023. 19:38 ] @

Postovanje

Kako bi pomocu makro,podijelio text iz jedne celije na primjer

Celija A1 sadrži ovaj text
PROBNI KLIJENT-1-2023-A456-DD987654

da u celiji B1 text PROBNI KLIJENT,C1 text 1,D1 text 2023,E text A456 i F1 text DD987654

makro bi trebao da pregleda raspon A1 :A300 mozda i vise

hvala

[ djoka_l @ 30.06.2023. 20:48 ] @

Code:
Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True
End Sub

[ jaskojsako @ 30.06.2023. 21:37 ] @

Hvala puno djoka_l

Kod tacno odradjuje kako treba

Hvala jos jednom

lp

[ djoka_l @ 30.06.2023. 23:13 ] @

U stvari, možda i ne radi.
U ovoj liniji
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _

umesto B1 trebalo bi da stoji B:B, ja sam imao samo jedan podatak.

Ovo je prosta stvar, samo sam snimio makro - kopiraj kolonu A u kolonu B, pokreni text to table gde je terminator "-"

Takođe, u primeru je bilo 5 segmenata, ako ih bude više. neće raditi.
Inače funkcija koja razdvaja string se zove SPLIT (u VBA), ali me mrzelo da komplikujem.

[ jaskojsako @ 01.07.2023. 13:32 ] @

Poz
U pravu si,ja sam provjeravao samo na jednom podatku,kad sam ubacio vise odradio samo jedan podatk
kad sam ispravio kod sto si napomenuo radi perfektno

Hvala jos jednom