excel, macro, kryssknapp

[batistuta]

Hej!

Behöver lite hjälp med ett macro, jag har en kryssknapp, när jag markerar den hämtas information från ett annat blad och läggs in på angiven plats. Fungerar alldeles utmärkt. Stöter dock på problem med att försöka få väck information genom att avmarkera kryssrutan.

Sub anbud()
'
' anbud Makro
' Makrot inspelat 2009-02-06 av rope
'

'
   Range("C25:D25").Select
   ActiveCell.FormulaR1C1 = "=kalkyl!R[13]C[5]"
   Range("C26:D26").Select
   ActiveCell.FormulaR1C1 = "=kalkyl!R[13]C[5]"
   Range("C27:D27").Select
   ActiveCell.FormulaR1C1 = "=kalkyl!R[15]C[4]"
   Range("C28").Select


End Sub

 

Logiskt/lekmannamässigt vill jag ha: if knapp is unselect rensa bort informationen, och avmarkera kryssrutan.

 

Säkert enkelt för den som kan.

 

Bastituta

 

[Monshi]

Om kryssruta från formulär:

Sub Kryssruta1_Klicka()
   With Blad1
       If .Shapes("kryss1").ControlFormat.Value = 1 Then
           .Range("C25:D25").FormulaR1C1 = "=kalkyl!R[13]C[5]"
           .Range("C26:D26").FormulaR1C1 = "=kalkyl!R[13]C[5]"
           .Range("C27:D27").FormulaR1C1 = "=kalkyl!R[15]C[4]"
       Else
           .Range("c25:d27") = ""
       End If
   End With
End Sub

infoga i en modul, fixa till bladnamnen till att referera till rätt blad och namnet på kryssrutan, koppla kryssrutan, högerklicka på kryssrutan och välj koppa makro till knapp.

 

eller om VBA-kontroll:

Private Sub CheckBox1_Click()
   With Me
       If .CheckBox1.Value Then
           .Range("C25:D25").FormulaR1C1 = "=kalkyl!R[13]C[5]"
           .Range("C26:D26").FormulaR1C1 = "=kalkyl!R[13]C[5]"
           .Range("C27:D27").FormulaR1C1 = "=kalkyl!R[15]C[4]"
       Else
           .Range("c25:d27") = ""
       End If
   End With
End Sub

I designläge, dubbelklicka på knappen så kommer du till den rutinen jag skapat ovan, fyll i koden.

 

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

 

[inlägget ändrat 2009-02-06 23:06:21 av Monshi]

[batistuta]

Tack, funkar kanon.