Click på genererede objekter

Hver control SKAL har deres egen handling tilknyttet.

Du kan selv søge igennem hjælpen og diverse hjemmesider........ du skal i gang med noget VBE eller VBProject for at få det til at lykkedes......

Dette virker IKKE, men kan måske give en søge ide:
    With Application.VBE.SelectedVBComponent.CodeModule
        .AddFromString ("Private Sub UserForm_Click()" & vbCrLf & "debug.print 9" & vbCrLf & "End Sub")
    End With
    With ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule
        .AddFromString ("Private Sub UserForm_Click()" & vbCrLf & "debug.print 9" & vbCrLf & "End Sub")
    End With

Indsætter kode til 10 Optionbuttons


Sub AddButtonsCode()
  Dim UFvbc As Object 'VBComponent
  Dim code As String
  Dim n As Long
  Set UFvbc = ThisWorkbook.VBProject.VBComponents("UserForm1")
  For n = 1 To 10
      With UFvbc.CodeModule
        code = ""
        code = code & "Private Sub OptionButton" & n & "_Click" & vbCr
        code = code & "Msgbox ""Dette er OptionButton" & n & """" & vbCr
        code = code & "End Sub"
        .InsertLines .CountOfLines + 1, code
      End With
  Next
End Sub

Super bak.
Istedet for denne linie    "Msgbox ""Dette er OptionButton" & n & """" & vbCr  så kalder du en sub med optionbuttons navn og værdi.

code = code & "DoOptionCheck OptionButton" & n & ".Name, " & "OptionButton" & n & ".Value" & vbCr

Private Sub DoOptionCheck(ByVal sName As String, ByVal sValue As Boolean)
    Select Case sName
        Case "OptionButton1"
            ' Code
        Case "OptionButton2"
            ' Code
    End Select
End Sub

Select Case behøves kun, hvis der skal ske noget forskelligt for de der optionbuttons.

Kanon Bak!!

Men jeg sag og legede med din kode - er det rigtigt at man godt kan have sub's liggende til optionbuttons som IKKE er der, for så kan jeg jo egentlig undvære din kode, for jeg ved at der aldrig vil komme mere end 30 options og vælge mellem, og de skal altid gøre det samme. Jeg syntes bare jeg plejer at få fejl når der er kode til elementer som ikke findes...

Jeg mener ikke jeg har problemer med at have kode, der ikke umiddelbart bruges :-)
Men ellers brug kombinations af flemmings og min kode.
Flemming -> du har på en let måde forklaret det jeg mente, men ikke kunne udtrykke :-)

Underviser du stadig ?

OK - det virker jo også! Men i to er altid så skrappe, så hvis i smidder et svar hver, får i 15 hver...

Bak -> For at forstå din kode, så man kan bruge den senere, er VbCr en form for newline?? Der står i hjælp at det er "Carriage return character"

yeps, VBcR er en form for newline. (chr(13)).

Bak - ja, jeg underviser stadig, men ikke så meget mere.... og alligevel hver dag - men mere til en ad gangen. 75% af tiden koder jeg VBA.

Det kan vel også bruges som et svar.

Flemming->Det må være det der gør at du er istand til at give enkle forklaringer  :-)

Flemming -> Kan du ikke hjælpe gutten i http://www.eksperten.dk/spm/470774
Jeg gik ud fra at hans problem var at få en makro til at virke på hans pc i en given ny xl fil, men nu viser det sig at det er et problem med at få en pc til at bruge en makro fra en fil på et nætværk - det har jeg ikke meget fidus i - du hoppede af - men kan du hoppe på igen  ;-)  Problemet var ikke hvad vi først antog  :-(

PS - se hans sidste kommentar - det er vist det mest forstålige han har skrevet. ;-)

bak :-) måske

swamboo> det virker ellers til et spændende opgave du har haft gang i her på det sidste. Klik på mit navn og Vis Brugerinfo, for at finde min email, hvis det er noget jeg må se.

Rødme - rødme - jo, det må såmænd godt, men jeg har lige nogle løse ender jeg skal have bundet op, så det giver bare lidt mening...

Lyder dejligt :-) Tak