CheckBox1 tekst verwijzen naar cel in invoersheet

Status
Niet open voor verdere reacties.
Zet dit in de code van het formulier:
Code: 
Private Sub UserForm_Activate()
    CheckBox1.Caption = Sheets("Blad1").Range("A1")
End Sub
 
Hartelijk dank,

Ik was bezig in de eigenschappen.
en als ik er ongeveer 45 boxen heb kan dat in een korte formule zetten?

Gr paul
 
Als het CheckBox1 t/m CheckBox45 is met de teksten in Blad1 A1 t/m A45:
Code: 
Private Sub UserForm_Activate()
    For i = 1 To 45
        Controls("CheckBox" & i).Caption = Sheets("Blad1").Cells(i, 1)
    Next i
End Sub
 
Laatst bewerkt:
Beste Edmoor,

sorry de tekst staat in de checkbox maar moet naar cel.
Gr paul
 
Haha, ok. Dan draai je dat toch om in die code?
 
Helllluupp wat doe ik fout! :)

Private Sub UserForm_Activate()
For i = 1 To 45
Sheets("Blad1").Cells(i, 1) = Controls("CheckBox" & i).Caption
Next i
End Sub
 
Tsja, daar kan ik met alleen "Helllluupp wat doe ik fout!" niks over zeggen natuurlijk.
De code is goed.
 
Toch krijg ik 2 fout meldingen
 

Bijlagen

  • fout melding.JPG
    fout melding.JPG
    16,7 KB · Weergaven: 35
  • fout 2.JPG
    fout 2.JPG
    38 KB · Weergaven: 52
Lijkt me duidelijk. Je hebt in dat formulier minder dan 45 CheckBoxes of ze heten niet CheckBox1 t/m CheckBox45.
 
oooo ja sorry dat is het, er staan labels tussen her en der.
oops hoe kan ik dat oplossen?

Gr paul
 
Je zei 45 Checkboxes te hebben en nu gaat het ineens om een combinatie van CheckBoxes en Label. Dan wordt het verhaal uiteraard heel anders. Dan kan ik natuurlijk gaan uitleggen wat je moet doen maar dat heeft geen zin als het daarna weer anders blijkt te zijn. Zorg dus eerst dat je relaas klopt en je een relevant voorbeeld document kan plaatsen.
 
Om het wat algemeen te maken kan je een Button op dat formulier maken en dan deze code achter het formulier:
Code: 
Private Sub CommandButton1_Click()
    Dim ctr As Control
    Dim i As Integer

    For Each ctr In Me.Controls
        If TypeName(ctr) <> "CommandButton" Then
            i = i + 1
            With Sheets("Blad1")
                .Cells(i, 1) = TypeName(ctr)
                .Cells(i, 2) = ctr.Caption
            End With
        End If
     Next ctr
End Sub
 
ik heb een heel bestand maar wil eigenlijk het niet zo op het form plaatsen.
Misschien wordt het duidelijk.
en misschien doe ik het wel verkeerd.
kan het gestuurd worden?
 
Kijk eens naar wat ik schreef in #13.

Daarnaast kan je dat formulier exporteren en dan in een leeg document importeren en hier plaatsen.
 
sorry dat ik het zo beroerd uitgelegd hebt.
hier is het bestandje.
wat vraag 13betreft heb ik geprobeerd maar lukte ook niet.
 

Bijlagen

Je hebt de code in het werkblad gezet en niet achter het formulier.
Dat gaat uiteraard niet werken.

Daarnaast heb je meer objecttypes dan alleen CheckBoxes en Labels.
Kijk eens naar deze. De info wordt geschreven in Blad2:

Er is kennelijk iets mis met de bijlage. Nog even geduld AUB ;)
 
Laatst bewerkt:
whooow dat is wel heel erg snel en ook een super formule die nog sneller dan het licht is.
Ben er even stil van, moet nu even kijken hoe ik dit verder in gaat vullen.


Bedankt!
gr paul
 
Graag gedaan Paul. En als je er vragen over hebt dan lezen we het hier wel. Maar je ziet wel hoe belangrijk het is om de vraag duidelijk te stellen en daarbij helpt een voorbeeld document heel erg mee.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan