range doorgeven naar andere macro

[riniheijnen]

In een excel macro "tv_programma_zaterdag()" heb ik een range "realusedrange" die ik wil doorgeven naar een andere macro "macro_powerpoint_slide()" zodat ik hem in die tweede macro kan plakken in een powerpoint-slide. Kan iemand mij vertellen hoe ik dat moet doen. Alvast bedankt voor een reactie

 

[Haije]

Als je vanuit tv_programma_zaterdag() de macr macro_powerpoint_slide() aanroept, dan kan dat zo:
macro_powerpoint_slide(realusedrange)

De eerste regel van macro_powerpoint_slide wordt dan
Sub macro_powerpoint_slide(realusedrange)

 

[riniheijnen]

Bedankt voor je reactie.
Deze aanroep van de macro gebeurt in de onAction eigenschap van een commandbutton.
Als ik tussen de () realusedrange invoer krijg ik wederom een foutmelding "eigenschap onaction van klasse button kan niet worden ingesteld".
Zie onderstaande code

'knop realusedrange naar powerpoint presentatie op werkblad
Cells(lastrow + 2, 3).Select

With Selection
ActiveSheet.Buttons.Add(ActiveCell.Left, ActiveCell.Top, 120, 60).Select
Selection.OnAction = "PERSONAL.XLSB!macro_powerpoint_slide()"
Selection.Characters.Text = "Powerpoint" & vbCrLf & "Presentatie"
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Calibri"
.FontStyle = "Standaard"
.Size = 16
End With
End With

Ik kan het dus niet zo simpel oplossen.
Heb je nog een suggestie

 

[Haije]

Rini,

With Selection
     ActiveSheet.Buttons.Add(ActiveCell.Left, ActiveCell.Top, 120, 60).Select
     Selection.OnAction = "PERSONAL.XLSB!macro_powerpoint_slide([COLOR="#FF0000"]realusedrange[/COLOR])"
     Selection.Characters.Text = "Powerpoint" & vbCrLf & "Presentatie"
     With Selection.Characters(Start:=1, Length:=23).Font
         .Name = "Calibri"
         .FontStyle = "Standaard"
         .Size = 16
     End With
 End With

maar heb je ook dit?

Sub macro_powerpoint_slide([COLOR="#FF0000"]realusedrange[/COLOR])
..
..
..
End Sub

 

[riniheijnen]

Dat heb ik inderdaad gedaan met de foutmelding die ik hiervoor opgaf

 

[Haije]

en staat tv_programma_zaterdag() ook in Persnal.xlsb?

 

[riniheijnen]

Ja

 

[riniheijnen]

Sterker nog toen alle code in 1 macro stond werkte het perfect en volautomatisch maar ik wil de gebruiker de gelegenheid geven nog iets in een van de cellen te veranderen voordat de tabel naar poperpoint wordt gekopieerd.