Just nu i M3-nätverket
Gå till innehåll
sandra.excel

Går det att koppla ett makro till en "Knapp" som sedan väljer i "Rullista"?

Rekommendera Poster

sandra.excel

Går det att koppla ett makro till en "Knapp" (formulärkontroll) så att det makrot väljer ett visst alternativ i en kombinationsruta (formulärkontroll)("Rullista").

Så om jag trycker på knappen väljer makrot istället alternativ B i rullistan (se bilden för illustration).

Jag är ingen van användare av makron och "spelar därför in" och kan inga bakomliggande koder i någon större utsträckning.

 

Tack på förhand! / Sandra

 

 

image.png.bb7759e5a11a1757aa63eea836c09c5a.png

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_
Postad (redigerade)

Allt går, men det verkar vara rätt krångligt:

https://stackoverflow.com/questions/9578038/return-the-selected-text-from-a-dropdown-box

Är det inte lättare att koppla rullistan till en cell (t.ex den som ligger bakom rullisten). Då behöver du bara ändra värdet i den cellen.

Kopplingen gör du genom att högerklicka på rullisten->Formatera kontroll-> fliken Kontroll: Cellänk (skriv in en celladress, t.ex A1)

 

Se kan du högerlkicka på knappen och välja "koppla makro till knapp" ->Spela in

Markera cell A1 och skriv in en 2:a.

Avsluta inspelningen av makro

 

Om du går in och tittar på dina makron ([Alt]+[F8] eller [Alt]+[F11 )

så borde du ha ett inspelat makro i stil med:

 

Sub Knapp4_Klicka()
'
' Knapp4_Klicka Makro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "2"
End Sub

 

När du klickar på knappen borde värdet i A1 ändras till 2 och i rullisten till "B"

 

Snygga gärna till koden lite grand med kommentar och "hårdkodad" adress : 

Sub Knapp4_Klicka()
'en kommentar som förklarar vad koden skall göra
Worksheets("Blad1").Range("A1").Value = "2"
End Sub

 

 

Redigerad av MH_
missade att skriva att du skulle klicka på "spela in"

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_

Eftersom jag är för nyfiken så googlade jag fram den direkta koden. Det är ControlFormat som skall in

Worksheets("Blad1").Shapes("Drop Down 1").ControlFormat.ListIndex = 2

Men då måste du ta reda på vad din kontroll heter osv. Jag skulle nog använda cellänken istället.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
sandra.excel

Tusen tusen tack! Detta är ju fantastiskt 😍

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...