Marco: Rij invoegen voor heel werkblad op basis van waarde

[Lintje]

Hoi,

Ik probeer het volgende met een Macro te bereiken, maar ik kom er niet uit. Kan iemand me helpen??

Cel1 Cel 2 Cel3 Cel4
A breda 80 2
B tilburg 150 5
C eindhoven 600 7

Ik wil een marco maken die per rij het aantallen rijen invoegt obv de waarde in kolom 4.
Dus voor A verwacht ik als resultaat 2 rijen en voor B 5 en voor C 7.

Daarbij moet hij enkel de informatie van de rijen mee kopieren uit kolom 1 en 2.

Dus:

Cel1 Cel 2 Cel3 Cel4
A breda 80 2
A breda
B tilburg 150 5
B tilburg
B tilburg
B tilburg
B tilburg
C eindhoven 600 7
C eindhoven
C eindhoven
C eindhoven
C eindhoven
C eindhoven
C eindhoven

 

[popipipo]

=IF(C1="";"";COUNTIF($A$1:$A$14;A1))

Probeer het hier eens mee
Even vertalen als je de nederlandse versie van excel hebt.

 

[Lintje]

?? Dit is een berekening in een bepaald veld.. Mijn doel is dat automatisch de regels ge-insert worden met de Marco code.

 

[snb]

Excel bevat geen Marco's.....

 

[Lintje]

wel

 

[snb]

Lees nog eens goed....

 

[Lintje]

aahh.. grammernazi :evil:

 

[Lintje]

Ik heb nu dit, alleen er wordt ook nog een witregel in toegevoed... en hij houd de laatste geselecteerd.. Daarnaast wil ik eigenlijk ook kunnen aangeven dat hij het aantal in cel C niet kopieert
Sub Test()

With ActiveCell
X = ActiveCell
Do Until X = 0
.EntireRow.Select
.EntireRow.Insert
.EntireRow.Copy
X = X - 1
Loop

End With
End Sub

 

[Haije]

Maak van

Do Until X = 0

eens

Do Until X = 1

 

[Lintje]

Ja dat zou werken. Het werkt ook als je de insert en de copy omdraait..

Nu nog de vraag, hoe programmer ik dat ik niet Copy entire row doe, maar enkel een aantal velden uit de rij.
Sub Test()
With ActiveCell
X = ActiveCell
Do Until X = 0
.EntireRow.Select
.EntireRow.Copy
.EntireRow.Insert
X = X - 1
Loop

End With
End Sub