Hej!
Jag skulle vilja skriva ett makro (Makro1) som lägger in en drop down rullist och kopplar ett annat makro (Makro2) till den. Makro 2 skriver ut ett tal i en cell. Problemet är att jag vill koppla Makro1 till en knapp som man ska kunna trycka på flera gånger så att flera drop down lister skapas. Makro2 ska vara kopplat till alla drop down lister men för varje enskild drop down list ska talet skrivas i olika celler. Hmm, lite luddigt kanske men jag bifogar koden...
Sub Makro2(j As Single)
Cells(j, 9).Select
Dim i As Single
i = ActiveCell.Value
If i = 1 Then
ActiveCell.Offset(0, 1).Value = ""
ElseIf i = 2 Then
ActiveCell.Offset(0, 1).Value = Inputbox("Ange självkostnad (kr/h)", "Annan konsult")
ElseIf i = 3 Then
ActiveCell.Offset(0, 1).Value = Worksheets("Konsulter").Range("$B$4").Value
End If
End Sub
I Makro1 skulle jag då vilja skriva
.OnAction = "Makro2(j)"
när drop down listen skapas för att koppla makrot till den. Detta fungerar dock inte. Kan man göra på något annat sätt för att använda ett visst makro (Makro2) fler gånger till olika drop down lister. Eller kan man använda OM(blablabla...) i cellerna direkt i excel och ändå använda funktionen InputBox? Förstår om det var svårt att hänga med, förstår knappt själv vad jag har skrivit... :) Vore sjukt tacksam för svar!
/Fiffi