Voorwaardelijk Hoe?IF THEN,FOR NEXT,CASE???

[Peterjur]

Hallo kollum A:A 255 banknummers die moeten allemaal een boek nummer in
Kollum B:B krijgen.Heb va alles geprobeerd het luk mij niet.Wie wil mij helpen BVD

 

[HSV]

Niet een erg duidelijke vraagstelling.
Dus maar een gok.

Sub tst()
 Dim i As Integer
   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row  'anders 1 to 255
    Cells(i, 2) = i
  Next
End Sub

 

[Peterjur]

Dank voor de reactie.en inderdaad een een vraag stelling van niets,maar ik moet zeggen
dat ik daar wel veel moeite mee heb.De vraag is eigenlijk de volgende.

ik heb een download van mijn ING bank van 4 maanden 255 posten,daar zit een Kollum in met bankrekeningen waar aan ik geld heb overgemaakt of ontvangen.

Daar zitten natuurlijk dubbele nummers bij. Waarin ongeveer 55 unieke nummers.

Die 55 vertegenwoordigen 15 posten.

Nu heb ik in een procedure die 255 nummers verdeeld in 15 posten.Dat is bijvoorbeeld
de Autokosten die heb ik dan op een rij achter elkaar staan en die moet dus het post nummer 8 krijgen.enz.Dus 255 rekeningen 15 boeknummers.

Wat een verhaal zeg?Excuses,Ik wil het ook best wel in Uw pet gooien maar schiet daar zelf niets mee op.Nu hoop ik op een puzzelaar die Die dit probleem oplossen kan.En het mij dan duidelijk wil en kan maken.

Bvb Hartelijk dank Uiteraard ga ik het programmaatje van U proberen .

 

[HSV]

Hallo Peterjur,

Misschien is een fictief .xls bestandje plaatsen met hoe het moet worden, hierbij toch echt handiger.

 

[Peterjur]

HSV Ja Ja dat ik best graag willen doen dat is mij nooit echt gelukt.in ieder geval
bedankt voor je reactie.

mvg Peter.