vba met gegevens laten zien

[renedecombi]

hallo beste forum leden ik heb een vraag in vba ik heb een formulier waar iki diverse gegevens wil zien en diverse wil opslaan . Nu is het zo dat in textbox1 en 2 moeten gegevens laten zien wat kan veranderen dus de actuele gegevens die andere gegevens kan ik opslaan en als dat mogelijk is op d12 tot d24 en f12 tot f24 enz in ieder geval bedankt vriendelijke groeten rene.

Private Sub CommandButton1_Click()

TextBox1.Value =Kaartverkoop "=d7"
TextBox2.Value =Kaartverkoop "=d8"
Else
Else
'waar gaan we opslaan
legeregel = Worksheets("blad1").Range("c" & Rows.Count).End(xlUp).Row + 1
'wat gaan we opslaan

kaart1 = Kaartformulier.kaart1.Value

    With Worksheets("blad1")
        .Range("c" & legeregel) = kaart1
        .Range("d" & legeregel) = kaart2
        .Range("e" & legeregel) = kaart3
        .Range("f" & legeregel) = kaart4
        .Range("g" & legeregel) = kaart5
        .Range("h" & legeregel) = kaart6
        .Range("i" & legeregel) = kaart7
        .Range("j" & legeregel) = kaart8
        .Range("k" & legeregel) = Kaart9
        .Range("l" & legeregel) = kaart10
        .Range("m" & legeregel) = kaart11
        .Range("n" & legeregel) = kaart12
        .Range("o" & legeregel) = kaart13
        .Range("p" & legeregel) = kaart14
        .Range("q" & legeregel) = kaart15
        .Range("r" & legeregel) = kaart16
  
    End With

Load Me
End Sub




Private Sub Reset_Click()
With Kaartformulier
Kaartformulier.TextBox1.Value = ("Kaartverkoop d7")
Kaartformulier.kaart1.Value = Clear
Kaartformulier.kaart2.Value = Clear
Kaartformulier.kaart3.Value = Clear
Kaartformulier.kaart4.Value = Clear
Kaartformulier.kaart5.Value = Clear
Kaartformulier.kaart6.Value = Clear
Kaartformulier.kaart7.Value = Clear
Kaartformulier.kaart8.Value = Clear
Kaartformulier.Kaart9.Value = Clear
Kaartformulier.kaart10.Value = Clear
Kaartformulier.kaart11.Value = Clear
Kaartformulier.kaart12.Value = Clear
Kaartformulier.kaart13.Value = Clear
Kaartformulier.kaart14.Value = Clear
Kaartformulier.kaart15.Value = Clear
Kaartformulier.kaart16.Value = Clear

 
 End With

End Sub

 

[Warme bakkertje]

Je vraag is al 63X bekeken en nog niemand heeft gereageerd. Dit betekent dat ofwel een voorbeeldbestandje de zaak al iets kan verduidelijken ofwel dat er iets schort aan je vraagstelling.
Probeer daarom aan 1 van beide of liefst allebei deze items verduidelijking te brengen.

 

[renedecombi]

hallo warme bakkertje

ik wil alleen in de textbox1 en textbox2 een waarde toont als de vba wordt opgestart met de daarbij behorende kaartformulier .
maar die waarde wordt steeds anders naar meer ik kaarten verkocht heb ik weet ook niet anders hoe ik dat kan vragen sorrie die code die nu ingevuldt staat is niet goed en die krijg ik ook niet goed er zit daar ergens een fout in alleen weet ik niet hoe ik die kan oplosseni ik heb vanalles al geprobeert
groetjes rene

 

[Warme bakkertje]

Ik snap er nog steeds weinig van, maar ik veronderstel dat je dit bedoelt ?

TextBox1.Value =sheets("Kaartverkoop").range("d7")
TextBox2.Value =sheets("Kaartverkoop").range("d8")

 

[renedecombi]

dank je wel warme bakkertje

dat is het helemaal ik had echt van alles geprobeerd maar had vergeten die sheets bij te schrijven tjonge dank je wel:thumb: ik hang er gelijk een slot aan