1 x invoer en dan 30 x opvolgend

[Atwist]

Hallo,

Ik ben op zoek naar een methode om een cel in te vullen bv. "HZ001" als dit in A1 kom te staan dat dan automatisch t/m "HZ030" wordt aangemaakt.
De cel wordt doormiddel van een textbox in een userform gevuld.

 

[Joske2000]

Range("A1").AutoFill Destination:=Range("A1:A30"), Type:=xlFillDefault

Joske

 

[Atwist]

Hallo Joske

Deze is kort maar krachtig.
Zelf dacht ik dat het weer een lange code zou worden.

Dankje wel

 

[zapatr]

Atwist,
eenzelfde antwoord is vanmorgen nog gegeven op een soortgelijke vraag.
Het kan nooit kwaad om - alvorens een vraag te plaatsen - het forum eens goed te bekijken/doorzoeken.