Template maken

[rikik]

Hey Hey allen,

Ik tracht een template te creëren.

Maar nu loop ik tegen twee zaken aan:

Ik wil een veld creëren, waarbij ik vervolgens een cijfer invoer.
In het voorbeeld geef ik "3" in.

Daarna zou ik wensen dat ik op het volgende blad 3 keer de opmaak " Huis, Stijl, Adres, Prijs en termijn" krijg.

Vervolgens zou ik dit huis willen afschrijven, doodmiddel van "termijn".
Als ik dan "60" zou invullen, zou ik 6 velden wensen. ( 0,12,24,36,48,60)
Als ik "72" invul, wil ik 7 velden. (0,12,24,36,48,60,72)

Volgens mij zijn beide problemen aan elkaar gelinkt.
Maar spijtig genoeg kan ik op geen van beiden een antwoord vinden.

Ik hoop dat iemand hier meer verstand van heeft en mij kan helpen

Alvast bedankt.

 

[HSV]

Met zoiets.

Sub hsv()
Dim j As Long
Rows("6:11").Clear
 For j = 1 To Range("b3").Value * 3 Step 3
   Cells(6, j).Resize(5) = Application.Transpose(Array("Huis", "Stijl", "Adres", "Prijs", "termijn"))
   ActiveSheet.ListObjects.Add(xlSrcRange, Cells(6, j).CurrentRegion.Resize(, 2), , xlGuess).Name = "table" & j
   ActiveSheet.ListObjects("table" & j).Range(6, 2) = (j \ 3) * 12
 Next j
End Sub

 

[HSV]

Succes in de toekomst met je vragen.

 

[rikik]

Hey HSV,

Hartelijk bedankt voor je antwoord. Dit heeft me echt verder geholpen. Maar, ik ben tot de conclusie gekomen dat ik VBA moet leren. Ik denk dat ik nog wat werk voor de boeg heb. Ik zie dat jij hier zeer ervaren in bent. Enige tips?

Thx

 

[HSV]

Ik mag dan wel bedreven in Excel zijn, maar als je op geen enkel vraag reageert, weet ik niet of het goed is natuurlijk.
Misschien is het aanschaffen van een boek een idee.
Vragen blijven stellen kan natuurlijk ook als je het niet begrijpt.

 

[rikik]

Hey HSV,

Ja, je hebt gelijk. Maar dit was eigenlijk slechts een inleidingsvraag op een groter geheel.
Misschien bestond er de mogelijkheid dat er een eenvoudig antwoord was. Vandaar dat ik VBA ga aanleren.

Ik had gedacht om van start te gaan met een tutorial van 54 filmpjes op youtube.
https://www.youtube.com/watch?v=7RVGdA9AhrY&index=2&list=PLNIs-AWhQzckr8Dgmgb3akx_gFMnpxTN5

Alvast bedankt voor al je hulp