Macro in een macro

[Chris15]

Macro in een macro

Ik wil de macro “Aantal” activeren in onderstaande macro. Is dat mogelijk?

Dan graag tussen:

End With
Range("A1").Select


Bestaande macro:

Sub Macro1()
Range("A3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Range("A3")
.FormulaR1C1 = "1"
.Font.ColorIndex = 3
End With
Range("A1").Select
End Sub

 

[OctaFish]

Die kan je gewoon aanroepen:

Sub Macro1()
Range("A3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Range("A3")
     .FormulaR1C1 = "1"
     .Font.ColorIndex = 3
End With
Aantal
Range("A1").Select
End Sub

 

[Chris15]

Dat is wel heel makkelijk!

De macro aanpassen die wist in kolom A Bijvoorbeeld A12 tm A1000 of A36 tm A1000 of A122 tm A1000.
Is het ook mogelijk die opdracht erin te zetten, maar dat de eerste A (A12 o A36 enz) staat in bijvoorbeeld cel R3?
Dan hoef ik alleen maar het aantal in R3 te zetten. (12, 36 of 122 of.........)

 

[OctaFish]

Nu wordt het tijd voor een voorbeeldje... En wat beter uitleggen wat je bedoelt, want ik snap je vraag dus niet meer.

 

[Chris15]

Ik heb de macro ertussen gezet, maar het geeft een foutmelding, zie bijlage.....

 

[Chris15]

Nog wat makkelijker: Kan de A15 uit de macro "Aantal" aangepast worden via bijvoorbeeld cel R3. Daar typ je dan 15 of een ander getal in. Zie bijlage hierboven voor de macro Aantal

 

[Chris15]

Bij onderstaande macro de melding:

Compileerfout:
Sub of Function niet gedefinieerd

Wat kan ik aanpassen?

Sub Macro0()
Range("A3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
With Range("A3")
.FormulaR1C1 = "0"
.Font.ColorIndex = 10
End With
Aanpassen
Range("A1").Select
End Sub

 

[edmoor]

Die macro heet ook niet Aantal maar MacroAantal.

 

[Chris15]

Oke, ik ga het meteen uitproberen

 

[Chris15]

Ja het werkt nu

Kan je me nog helpen met het volgende?
Bij onderstaande macro wil ik alleen de in houd wissen van A15:A999
Kan je dit aanpassen voor mij?

Sub MacroAantal()
Range("A15:A999").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

 

[edmoor]

Zoiets:

Sub MacroAantal()
    Range("A15:A999").ClearContents
End Sub

 

[Chris15]

Dank je Edmoor voor je tijd!

 

[edmoor]

Graag gedaan