Vanuit formulier ander werkblad bereiken

[Dionysos]

Hallo,

Ik ben bezig met een programma waarbij op een druk van de knop een formulier moet komen, waar je gegevens in kunt vullen welke in een sheet bij elkaar gezet worden, welke ik vervolgens weer gebruik om overzichten te genereren

Ik ben aardig op weg, alleen wil ik graag de knop op 1 blad, en het 'database' veld op een ander werkblad, en dit lukt niet helemaal.

Zo lukt het wel;
Private Sub CommandButton1_Click()
Range("A" & CStr(Rows.Count)).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = txtVoornaam.Text
ActiveCell.Offset(1, 1).Value = txtAchterNaam.Text
End Sub

Maar zodra ik er worksheet aan toevoeg, gaat het mis;

Private Sub CommandButton1_Click()
Worksheet("Datablad").Range("A" & CStr(Rows.Count)).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = txtVoornaam.Text
ActiveCell.Offset(1, 1).Value = txtAchterNaam.Text
End Sub

Worksheets heb ik ook geprobeerd, maar dat was het ook niet.

Alvast heel erg bedankt voor de hulp!!

Groeten,
Carlo

 

[danny147]

Beste Dionysos

Heb je dit al eens geprobeerd.

Private Sub CommandButton1_Click()
Worksheet("Datablad").Select
Range("A" & CStr(Rows.Count)).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = txtVoornaam.Text
ActiveCell.Offset(1, 1).Value = txtAchterNaam.Text
End Sub

Groetjes Danny. :thumb:

 

[Dionysos]

Ik moest nog even een s achter worksheet plakken, maar verder werkt dat idd!

Hartstikke bedankt voor de snelle reactie! :thumb:

 

[Roncancio]

Bij voorkeur geen .Select gebruiken.
Zo kan je dus ook.

Private Sub CommandButton1_Click()
Worksheets("Datablad").Range("A" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Value = Txtvoornaam.Text
Worksheets("Datablad").Range("A" & CStr(Rows.Count)).End(xlUp).Offset(0, 1).Value = txtachternaam.Text
End Sub

Zet ook even de vraag op opgelost (onderaan het scherm).

Met vriendelijke groet,


Roncancio

 

[snb]

Het kan nog beter:

Private Sub CommandButton1_Click()
 sheets("Datablad").cells(Rows.Count,1).End(xlUp).Offset(1).resize(,2).Value = split(Txtvoornaam.Text & "|" &  txtachternaam.Text,"|")
End Sub

 

[Dionysos]

Bij voorkeur geen .Select gebruiken.
Zo kan je dus ook.

Private Sub CommandButton1_Click()
Worksheets("Datablad").Range("A" & CStr(Rows.Count)).End(xlUp).Offset(1, 0).Value = Txtvoornaam.Text
Worksheets("Datablad").Range("A" & CStr(Rows.Count)).End(xlUp).Offset(0, 1).Value = txtachternaam.Text
End Sub

Zet ook even de vraag op opgelost (onderaan het scherm).

Met vriendelijke groet,


Roncancio

Bedankt, dat ziet er ook prima uit! Mag ik vragen waarom je bij voorkeur geen .Select gebruikt?

Zal de vraag nog even op opgelost zetten.

 

[Dionysos]

Het kan nog beter:

Private Sub CommandButton1_Click()
 sheets("Datablad").cells(Rows.Count,1).End(xlUp).Offset(1).resize(,2).Value = split(Txtvoornaam.Text & "|" &  txtachternaam.Text,"|")
End Sub

Dat is idd wel lekker compact, maar word onoverzichtelijk zodra ik meer gegevens toe ga voegen. Toch bedankt voor de hulp!

 

[Roncancio]

Bedankt, dat ziet er ook prima uit! Mag ik vragen waarom je bij voorkeur geen .Select gebruikt?

Zal de vraag nog even op opgelost zetten.

Het werkt vertragend, is (relatief) moeilijk leesbaar en is vrijwel altijd niet nodig.

Met vriendelijke groet,


Roncancio