Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: ID Genereren  (gelezen 4254 keer)

0 leden en 1 gast bekijken dit topic.

Offline Ntr

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
ID Genereren
« Gepost op: 16 augustus 2018, 21:15:43 »
Goedenavond
Hoe kan ik in kolom A een ID van 7 letters creëren van de naam die in kolom B staat?
Ik heb er een paar handmatig voor gedaan en de letters met kleur herleid waar ze vandaan komen.
Ps. VBA heeft mijn voorkeur
Groet Niels

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: ID Genereren
« Reactie #1 Gepost op: 16 augustus 2018, 21:38:37 »
Hallo Niels,

je voorbeeldbestandje laat in kolom A willekeurige combinaties van de letters (van de woorden in kolom B) zien.

Mag de macro ook willekeurig gaan kiezen? :'(

:) SoftAid :)             
 
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: ID Genereren
« Reactie #2 Gepost op: 16 augustus 2018, 21:43:32 »
Dit is mijn voorstel voor een UDF...

Function ID_plant(Plantnaam As String) As String

    Plantnaam = Replace(Plantnaam, "'", "")
   
    For i = 0 To UBound(Split(Plantnaam), 1)
        If i = 0 Then x = 2 Else x = 1
        If i = UBound(Split(Plantnaam)) Then x = 7 - Len(ID_plant)
        ID_plant = ID_plant & UCase(Left(Split(Plantnaam)(i), x))
    Next i
   
End Function

In cel C2 de formule.... =ID_plant(B2) en verder doorslepen naar onder.

Mijn aanname is dat van het eerste woord 2 letters worden gekozen, van degene die dan volgen slechts 1 en van de laatste zoveel letters als nodig zijn om de code van 7 vol te maken.
Dat wordt dan dit lijstje...
ACPAIRE
ACPATRO
ACPBENI
ACPBENI
ACPBUTT
ACPCNIS
ACPELAC
ACPGGRE
ACPKATS
ACPLPRI
ACPMJEW
ACPODRE
ACPSEIR
ACPTROM
ACPALMA
______________________________

Groet, Leo

Offline Ntr

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
Re: ID Genereren
« Reactie #3 Gepost op: 16 augustus 2018, 22:00:40 »
In bijlage tekst uit elkaar getrokken op spaties en aangegeven wat ik wil.

Ik heb vluchtig de UDF van RedHead bekeken en volgens mij is die methode goed

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: ID Genereren
« Reactie #4 Gepost op: 16 augustus 2018, 22:03:53 »
mooi, maar zo krijg je gelijke ID's voor verschillende planten:

ACPBENI  =  Acer palm. 'Beni-Maiko'
ACPBENI  =  Acer palm. 'Beni-shichi-henge'

Mij niet gelaten....

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Ntr

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
Re: ID Genereren
« Reactie #5 Gepost op: 16 augustus 2018, 22:20:58 »
thx voor de opmerking, ik zal het min teken vervangen door een spatie dmv Replace
Daarna zal ik op de orginele lijst controleren op dubbele ID's

 


www.combell.com