MkDir -> celwaarde met variabele rijnummer

[TB]

Dag medetweakers, ik zit met het volgende... Ik wil een macro maken waarin ik een directory aanmaak, met de naam vanuit verschillende celwaarden. Onderstaande formule werkt goed.

'pad en lengte van het huidige pad bepalen
pad = ThisWorkbook.Path
padbijlagen = pad & "\Bijlagen\"
x = "946"
celwaarde = [A946]
partnumber = [F946]
supplier = [N946]


nieuwmap = padbijlagen & celwaarde & " " & partnumber & " " & supplier & "\"

'mappenstructuur aanmaken
MkDir nieuwmap

Wat ik echter wil is met een inputbox het rijnummer aangeven en dat hij deze rij gebruikt, met de vast aangegeven klommen (A,F en N). Ik heb geen idee hoe ik dit moet doen... De inputbox maken wil wel, maar hoe ik bijvoorbeeld "partnumber = [F946]" variabel maak, geen idee...

Ook een optie is dat de laatst toegevoegde rij gebruikt wordt om een map aan te maken.

Het allermooiste is om de rij van de op dat moment geselecteerde rij te gebruiken, zou dat mogelijk zijn?

Alvast bedankt voor de hulp!

[ Voor 5% gewijzigd door TB op 28-06-2011 11:02 ]

[F_J_K]

Je kan een cel aanroepen met bijvoorbeeld %worksheet%.cells(i,j) waar je voor i en j of een variabele kan invoeren, of een hard getal. Zo is activesheet.cells(1,1).value de inhoud van A1. Het rij-nummer kan je inderdaad via een input uitvragen.

Checken wat de laatste cel is kan inderdaad ook: http://www.ozgrid.com/VBA/ExcelRanges.htm

[TB]

Bedankt voor de snelle reply, maar ik weet niet zeker of ik daar verder mee kom.

Ik heb nu met

arow = ActiveCell.Row

voor elkaar dat hij het rijnummer van de actieve cell wegschrijft als waarde naar een variabele.

Het enige dat ik nu voor elkaar moet krijgen is dat hij de waarde van deze variabele mee kan nemen als variabele rijnaam voor het volgende:

celwaarde = [A946]
partnumber = [F946]
supplier = [N946]

Nu zijn ze fixed op 946.... Geen idee hoe ik de variabele "arow" als variabel rijnummer op kan nemen.

[F_J_K]

Zoals ik zeg: je wilt dan .Cells(arow, kolomnummer) gebruiken - en dus geen [KolomletterRijnummer].

Of mis ik wat?

[TB]

Wederom bedankt voor de snelle reply.
Ik zal wel iets simpels heel erg fout doen...

arow = ActiveCell.Row

isirno = ActiveSheet.Cells(arow, A)

Geeft een fout 1004...

edit, die A moet een 1 zijn, ik kan weer even verder

[ Voor 13% gewijzigd door TB op 28-06-2011 13:50 ]