maximale range aangeven

[Smietje]

Hoi,

Ik heb een hoop aan deze code, maar nu gaat deze code door onder de velden die door iets anders zijn gevuld, maar is het ook mogelijk om een maximale range er aan te geven? van regel 23 tm 30 bv ? zodat de geen last heeft van de cellen eronder?


Sub admin()
Cells(Application.Max(23, Cells(Rows.Count, 3).End(xlUp).Row), 3).Offset(1).Resize(, 2) = Array(InputBox("vul hier je gegevens in", "Vaste Kostenplaats"), InputBox("vul hier je gegevens in", "Tegenrekening"))
End Sub

bvd

 

[Elsendoorn2134]

Smientje,

Lees je vraag nog een door, zou jij hem zonder context of voorbeeldbestand begrijpen?
Ik kan uit je vraag me geen voorstelling maken wat je wil.
Makkelijkst zou zijn een voorbeeldbestandje toe te voegen.

Veel Succes.

 

[VenA]

Het antwoord staat toch al in dit draadje http://www.helpmij.nl/forum/showthread.php/903793-Inputbox-naar-eerst-volgende-regel-laten-gaan?p=5857117#post5857117 En als je geen voorbeeldje wilt plaatsen dan blijft het natuurlijk een raadsel wat je echt voor ogen hebt.