Kan macro veranderd worden met keuzerondjes?

Status
Niet open voor verdere reacties.
De code die ik in #4 gaf is op zich correct maar in je screenshot zie ik dat je gebruik maakt van meerdere groepen option buttons.
Daar zal de code zodanig op aangepast moeten worden dat deze alleen de bedoelde groep bekijkt.
Nu komt hij tekst tegen die niet naar een Long kan worden geconverteerd en is die fout 13 logisch.
 
Euh....ik versta wel wat ge wilt zeggen,maar ik weet in de verste verte niet hoe en wat ik er moet inzetten en kan er nergens iets over vinden.
Wat moet ik er inzetten ?
 

Bedankt eh...ED want het zal wel niet opgelost zijn gelijk het moet,maar het is opgelost gelijk het hieronder staat.:)
Code: 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub zzZion()
    Dim Button As OptionButton  
    For Each Button In Sheets("Blad1").OptionButtons
        If Button Then
            With ZionWon
                .Show vbModeless
                .Repaint
If Range("a32") = 1 Then Sleep 1000
If Range("a32") = 2 Then Sleep 2000
If Range("a32") = 3 Then Sleep 3000
If Range("a32") = 4 Then Sleep 4000
If Range("a32") = 5 Then Sleep 5000
If Range("a32") = 6 Then Sleep 6000
                .Hide
                Exit For
            End With
        End If
    Next Button

End Sub
 
Laatst bewerkt:
Dat kan, maar het is naar mijn mening beter te bekijken welke van de keuzerondjes is aangevinkt. Daarnaast kan je bovenstaande dan beter zo schrijven:
Code: 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub zzZion()
    With ZionWon
        .Show vbModeless
        .Repaint
        Sleep CLng(Range("A32")) * 1000
        .Hide
        Exit For
    End With
End Sub

Maar als je je blad plaatst zal ik het voor je maken zoals ik het zelf zou doen.
 
Laatst bewerkt:
edmoor zei:
Maar als je je blad plaatst zal ik het voor je maken zoals ik het zelf zou doen.
Klik om te vergroten...

Bedankt eh...want het werkt perfect gelijk je zegt .:)
Ferm dat ge dat zegt,maar gelijk je ziet is het te groot om te sturen.
lKnipselWie.JPG

Wel spijtig,want ik ben wel zeker dat het dan vele malen kleiner zal zijn dan 1536 kb.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan