Vanuit Userform excel in laten vullen!

Status
Niet open voor verdere reacties.
J

jlu

Gebruiker
Lid geworden
29 okt 2010
Berichten
27
Beste mensen,

Ik ben bezig een userform te maken, maar heb een code nodig waardoor een cel in excel wordt ingevuld nadat erop een commandoknop is gedrukt.
Ik voeg ook het document toe zodat jullie kunnen zien wat ik bedoel.
Bekijk bijlage test macros.xls

Het gaat in dit geval om meerdere cellen doe ingevuld moeten gaan worden maar denk dat als ik de code weet de rest wel kan invullen.

Macro = Start
Het vak onder "Pagina (titel) wordt in userform ingevuld. Hierna klikt men op cmd-button "Sla op!".
Nu is het de bedoeling dat wat hier ingevuld is bijv. in werkblad 1 cell A2 terecht komt.


Bovengenoemd invulvak is genoemd "Pagina"
Bovengenoemde cmdbutton is genoemd "Sla_op"

Alvast bedankt,:)

Jan
 
Hey excelamateur,

Dank je ik heb de goede ertussen uit kunnen halen en ga even de codes na.
Denk dat ik hier inderdaad mee uit de voeten moet kunnen.:)

Jan
 
ExcelAmateur,

Ik heb gevonden hoe ik de code er in moet zetten zie onderstaande.
Maar heb ook nog een andere vraag.:rolleyes:

Is het ook mogelijk om:

Invulvakken niet actief te zetten,totdat er een werkblad is aangemaakt met een gedefineerde naam, en in dit werkblad een macro met een opmaak. (de macro opmaak weet ik wel aan te maken).

Zoja hoe doe ik dit?

Private Sub Pagina_Change()
Dim MyRange As Variant
Set MyRange = Worksheets("Start") 'Het bereik van het invoervak wordt nu standaard werkblad "Start" gezet
MyRange.Range("A4") = Pagina.Text 'Wat in het invoervak "Pagina" staat wordt in werkblad "start" in vak A4 gezet
 
Maar heb ook nog een andere vraag.:rolleyes:

Is het ook mogelijk om:

Invulvakken niet actief te zetten,totdat er een werkblad is aangemaakt met een gedefineerde naam, en in dit werkblad een macro met een opmaak. (de macro opmaak weet ik wel aan te maken).

Zoja hoe doe ik dit?
Klik om te vergroten...

Het werkblad aanmaken is ondertussen ook gelukt, nu zit ik nog met het inactief zetten van alle knoppen/velden op hetzelfde userform, totdat ik op onderstaande knop op mijn formulier heb gedrukt.En hierna moeten ze wel actief worden.

Private Sub MaakFormulierStart_Click()
Sheets.Add.Name = "Start" 'Maakt een nieuwe sheet aan die "Start" heet.

End Sub
 
jlu,

Dit kun je per knop doen in de eigenschappen.
Natuurlijk kun je dit ook in een Macro verwerken.
Code: 
Enabled = False [COLOR="green"]'De knop is grijs niet te gebruiken[/COLOR]
Enabled = True  [COLOR="green"]'De knop is nu wel te gebruiken[/COLOR]
 
Laatst bewerkt:
Dat begrijp ik, maar is er ook een manier om te zeggen alle knoppen velden in een keer selecteren op disabled behalve de cmd knop die het formulier maakt.

Of moet ik ze allemaal op disabled zetten en dan onder de code van de knop per veld/knop alles op enabled zetten?

Als dit de enigeoplossing is moet ik hem maar zo uitvoeren maar dacht misschien kan het makkelijker.

In ieder geval weer bedankt voor de hulp tot zover.

Jan
 
Nee dit is niet helemaal wat ik bedoel, ik wil ze wel zichtbaar hebben maar niet ingeschakeld. Dus grijs en in de achtergrond.
Ik ga wel even zoeken met de zoekfunctie.
Bedankt voor de hulp en de moeite.

Jan
 
jlu,

Ik heb even een Userform met 4 CommandButtons en 1 CheckBox gemaakt om te testen.
Als je met deze code de ChekBox aanvinkt worden de Commandbuttons grijs.
Code: 
Private Sub CheckBox1_Click()
  For Each CommandButton In Me.Controls
    If CheckBox1 = True Then CommandButton.Enabled = False
    If CheckBox1 = False Then CommandButton.Enabled = True
    CheckBox1.Enabled = True
  Next
End Sub
Nu maar hopen dat dit is waar je naar opzoek ben.
 
Top,

Dankjewel, dit is inderdaad wat ik zocht.:thumb:
Ondertussen wel een hoop dingen opgedaan dmv jouw tips en het uitproberen.
Begin er nu een beetje vertrouwen in te krijgen.:cool:

Ik denk dat ik deze topic maar een keer ga sluiten.

Nogmaals dank voor je hulp en misschien tot later!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan