Ændre data i ark via UserForm (VB)

Et lille eksempel. Du har en userform, der hedder UserForm1, med een knap (cbKnap) og een textbox (tbTal). Hvis du dobbelt klikker på knappen og indsætter følgende vil userformen indsætte værdien 1000 i celle A1 i ark 'Ark1' og den indtastede værdi i celle A2

Private Sub cbKnap_Click()

ActiveWorkbook.Sheets("Ark1").Cells(1, 1).Value = 1000
ActiveWorkbook.Sheets("Ark1").Cells(1, 1).Value = UserForm1.tbTal.Value

End Sub

Ok. Det var ikke lige den bedste forklaring så spørg hvis du ikke forstår det!

øøhhh  jo ; det virker - men jeg forstår ikke helt hvorfor. Men jeg er da på vej ind i kampen igen.. ;o)

Jeg kan ikke helt følge hvad linie 1 skal bruges til.
Linie2 forstår jeg således; værdien i tekstboks skal kastes ned i celle 1,1

cbKnap_Click; ved klik udføre den disse to liniers kode.

(den kaster "kun" tekstboksens værdi ind /rettere sagt den skriver nok først 1000 ; dernæst smider den tbTal-værdien ind i cellen 1,1

Min fejl! Linie 2 skal være:
ActiveWorkbook.Sheets("Ark1").Cells(2, 1).Value = UserForm1.tbTal.Value

I forbindelse med userforms er der en masse events, der giver muligheden for at køre forskellige små stykker kode alt efter hvilken handling, der fortages. I ovenstående eksempel brugte vi click-eventet ifm. en knap, hvilket medfører at der kører en lille kode, når vi trykker på knappen. Det kunne ligeså have været noget kode der sender en mail, opdaterer en datebase etc.
Alle indtastninger og valg i en userform kan hentes over i regnearket, en variabel
eller lignende ved at tildele en celle, variabel eller hvad de nu måtte være værdien fra userformen efter følgende princip:

Variabel = Userformnavn.Kontrolnavn.Value
Cellereference = Userformnavn.Kontrolnavn.Value

Det var den korte og bestemt ikke-udfyldende forklaring...

dejligt - er ved at fatte det...  ;o)

Hvad med OptionButton1 ?  hvor den har sammenhæng med en celle 5,5
Værdien i OptionButton1 skal afspejle den nuværende værdi i celle 5,5 når UserForm åbnes. Og ved klik i på OptionButton1 skal værdien kunne ændres.

(baggrund; lad os antage at en graf laves ud fra værdierne i celle 5,5 + 5;6 + 5,7 - og for at kunne simulere tilvag og fravalg vil det være lækkert hvis man kan klikke på OptionButton1 ; der så ved aktiveret (med prik i) medtager celle 5,5 - og ved ikke-aktiveret sætter celle 5,5 til fx værdien 0)

(det er kun det med at hente samt ændre værdien i celle 5,5 der driller) Grafen som vises er på plads)

Jeg er ikke helt med... Så du får lige det generelle i første omgang :-)

Når OptionButton1 ikke er markeret har den 'værdien': OptionButton1.Value = False. Når OptionButton1 modsat er markeret har den 'værdien': OptionButton1.Value = False


Hvis du laver det som en checkbox i stedet så kan du fjerne markeringen igen...

Private Sub CheckBox1_Click()

Dim rngChartData As Range

'Checkbox1 ikke markeret
If CheckBox1.Value = False Then
    ActiveWorkbook.Sheets("Ark1").Activate
    Set rngChartData = Range(Cells(5, 6), Cells(5, 7))
Else
    ActiveWorkbook.Sheets("Ark1").Activate
    Set rngChartData = Range(Cells(5, 5), Cells(5, 7))
End If

ActiveWorkbook.Charts("Diagram1").SeriesCollection(1).Values = rngChartData

End Sub

I ovenstående kode er referencen til regnearket celle (5,5) til (5,7) hvis checkboxen er markeret og celle (5,6) til (5,7) hvis checkboxen ikke er markeret.

Husk at rette Ark1 og Diagram1 ovenfor...

Fejl i linie 4: OptionButton1.Value = True

kanon ; stillingen må være 2-1 nu

Jeg har ændret dit forslag til dette:

Private Sub CheckBox1_Click()

'Checkbox1 ikke markeret
If CheckBox1.Value = False Then
    ActiveWorkbook.Sheets("Ark1").Cells(21, 2).Value = "Nej"
Else
    ActiveWorkbook.Sheets("Ark1").Cells(21, 2).Value = "Ja"
End If

End Sub

(årsag: hvis 21,2 er "JA" så medtages beløbet ; "Nej" så er det ikke med - efter dette så skal jeg bare have den til at opdatere chartet (som iøvrigt vises som en gif-billede)

det kører for mig nu ;o)   

det er en kanon hjælp du har givet !! (point er sat lidt op)

Der vat godt.

Så tillader jeg mig at smide et svar :-)

;o) 
lige et tillægs-spørgsmål:

kan fx. CheckBox1 være Checked/Unchecked når UserForm loades - alt afhængig af hvad der står i Celle 21,2 ("Ja" eller "Nej")
Når der er valgt "JA" så skal beløbet jo medtages - og så ser det lidt dumt ud at CheckBox1 ikke er markeret (det er dog medregnet!)

Men det skal vel ikke styres under ovenstående SUB ?

i stil med dette:

If ActiveWorkbook.Sheets("Ark1").Cells(41, 2).Value = "Ja" Then
CheckBox1.Value = True
Else: CheckBox1.Value = False
End If

Hvad er navnet på din userform?

Dobbeltklik er vilkårligt sted i din userform og indsæt følgende:

Private Sub UserForm_Initialize()

If ActiveWorkbook.Sheets("Ark1").Cells(41, 2).Value = "Ja" Then
    Me.CheckBox1.Value = True
Else
    Me.CheckBox1.Value = False
End If

End Sub

nice ; du har hjulpet mig langt i dag !

den sidste del driller lidt : Me ; hvorfor står det der ?

Min userform hedder UserForm1

hmm... det var bare mig der copy/pastede for vildt uden at rette nummeret i 'Me.CheckBox1.Value = True"' for hver enkelt IF -

det virker selvfølgeligt med en korrekt kode.. ;-)

Me er et shortcut for den aktuelle userform. Det kan i denne forbindelse sagtens udelades...

det griber lidt om sig : jeg har ved hjælp af ovenstående kode sat yderligere 3 CheckBoxe's ind ; hvor der dog er en lille ting ;

Hvis man vælger nr. 1 så skal de andre 2 være UnChecked - osv. Kan det ikke sættes ind under If - koden ? (og hvordan ser det ud)

Et eksempel for CheckBox1. Så skal du lave noget tilsvarende for CheckBox2...

Private Sub CheckBox1_Click()

If CheckBox1.Value = False Then
    Checkbox2.Value = true
Else
    Checkbox2.Value = false
End If

End Sub

aaahhh  selvfølgelig ;o)

hvis du brugte OptionButtons i stedet for  CheckBox, ville du kun kunne have 1 makeret af gangen, de skifter automatisk

ååhh ja ; kunne da lige overvejes ;o)  thx

jeg kæmper videre med det kære VB : http://www.eksperten.dk/spm/520474