crypto code uit cel halen

[rudionie]

Ik draai regelmatig een Query van een site met alle crypto's die er zijn. De "naam" veranderd telkens. Het kan zijn dat er Koop aan het einde staat en de ranking veranderd (tussen 1 en 500).
Om een goede koppeling met excel te maken heb ik van de cel alleen de cryptocode nodig.
Ik weet alleen niet hoe ik deze door alle wisselingen die kunnen plaatsvinden uit een cel moet halen.
Crypto code kan uit 3 tot 5 cellen bestaan.

Dank je wel

ruud

 

[edmoor]

Je wilt de crypto code eruit halen zeg je.
Dus de informatie in kolom A moet hetzelfde blijven maar dan zonder de crypto code er in?
Geef anders in kolom B per regel een voorbeeld van wat je zou willen zien.

 

[snb]

Lukt hier prima:

Sub M_snb()
    Sheet1.UsedRange.Columns(1).TextToColumns , , , , 0, 0, 0, 0, True, Chr(10)
End Sub

 

[rudionie]

in bijlage zoals het er dan uit moet zien
Om het compleet te maken heb ik er nog een vraag bij gedaan

 

[HSV]

Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion
 For i = 1 To UBound(sv)
   sv(i, 1) = Split(Replace(sv(i, 1), vblf, vbCrLf), vbCrLf)(2)
 Next i
Cells(1, 6).Resize(UBound(sv), 2) = sv
End Sub

 

[snb]

Dankjewel voor de feedback.

 

[rudionie]

Je wilt de crypto code eruit halen zeg je.
Dus de informatie in kolom A moet hetzelfde blijven maar dan zonder de crypto code er in?
Geef anders in kolom B per regel een voorbeeld van wat je zou willen zien.

 

[rudionie]

Ik heb nieuw document erop gezet, in ander bericht

 

[edmoor]

Maar wat heb je gedaan met de suggesties van snb in #3 en HSV in #5?

 

[rudionie]

Dat gaat mij boven de pet. Ik heb dus liever een formule...

 

[edmoor]

Niet alles is met een formule op te lossen.
Misschien tijd voor een hogere pet.

Je kan natuurlijk ook even reageren op wat men je biedt, wel zo netjes en krijg je wellicht ook wat extra uitleg.

 

[rudionie]

ik ben niet van de macro en VBA maar ik begrijp dat formules lastig worden.
Ik ga mij er dus toch maar in verdiepen.

HSV en snb, bedankt voor jullie input, ik ga ermee aan de slag.

 

[JEC.]

Met een formule, waarschijnlijk afsluiten met control shift enter(matrix formule)

=SUBSTITUEREN(DEEL(A1;MAX(ALS.FOUT(VIND.SPEC({1;2;3;4;5;6;7;8;9;0};A1)+2;0));99);"Koop";"")

 

[rudionie]

Hallo Jveer,
als ik de formule gebruik geeft deze als resultaat : Polkadot8DOT.
Nu heb ik alleen de letters na het getal nodig, dat kunnen er ook 4 of 5 letters zijn...

 

[JEC.]

Afgesloten met control shift enter?

 

[rudionie]

JVeer,
je bent geweldig, bedankt

 

[JEC.]

:thumb::thumb:

 

[HSV]

@Jveer.

VIND.SPEC({1;2;3;4;5;6;7;8;9;0};A1)+2

VIND.SPEC(RIJ($1:$10)-1;A1)+2

 

[JEC.]

Kan ook, iets kortere schrijfwijze.

 

[edmoor]

Niet alles is met een formule op te lossen.

Dit dus kennelijk wel