Goedemiddag,
Kan iemand mij helpen met het volgende? Ik ben bezig met een calculatieprogramma waarbij ik via een formulier data invoer naar een Excel blad. Het invoeren en doorvoeren van de data gaat goed. Om het straks in praktijk duidelijk te houden wil ik onderaan de laatste drie ingevoerde regels weergeven. Ook dit lukt en gaat goed, echter het ziet er niet uit qua lay-out, zie het rode kadertje.
In het volgende plaatje heb ik in Excel aangeven hoe ik de lay-out graag zou zien.
Dit is de code die ik gebruikt heb:
Daarbij worden deze regels pas geupdate als Textbox1, het veld achter "Object" heb ingevuld en doorenter. Is er een mogelijkheid dat dit ook automatisch gebeurt? Dus als ik een invoerregel verder ga, van 1 naar 2, van 2 naar 3, etc. etc.
Ik zou het fijn vinden als iemand mij zou kunnen helpen, hiervoor alvast mijn dank!
Michael
Kan iemand mij helpen met het volgende? Ik ben bezig met een calculatieprogramma waarbij ik via een formulier data invoer naar een Excel blad. Het invoeren en doorvoeren van de data gaat goed. Om het straks in praktijk duidelijk te houden wil ik onderaan de laatste drie ingevoerde regels weergeven. Ook dit lukt en gaat goed, echter het ziet er niet uit qua lay-out, zie het rode kadertje.
In het volgende plaatje heb ik in Excel aangeven hoe ik de lay-out graag zou zien.
Dit is de code die ik gebruikt heb:
Code:
Private Sub TextBox1_AfterUpdate()
Me.Label13.Caption = _
ActiveWorkbook.Sheets("Data").Range("m5") & vbTab & ActiveWorkbook.Sheets("Data").Range("n5") & vbTab & ActiveWorkbook.Sheets("Data").Range("O5") & vbTab & ActiveWorkbook.Sheets("Data").Range("P5") & vbTab & ActiveWorkbook.Sheets("Data").Range("Q5") & vbTab & ActiveWorkbook.Sheets("Data").Range("R5") & vbTab & ActiveWorkbook.Sheets("Data").Range("s5") & vbTab & ActiveWorkbook.Sheets("Data").Range("T5") & vbTab & ActiveWorkbook.Sheets("Data").Range("u5") & vbLf & _
ActiveWorkbook.Sheets("Data").Range("m6") & vbTab & ActiveWorkbook.Sheets("Data").Range("n6") & vbTab & ActiveWorkbook.Sheets("Data").Range("O6") & vbTab & ActiveWorkbook.Sheets("Data").Range("P6") & vbTab & ActiveWorkbook.Sheets("Data").Range("Q6") & vbTab & ActiveWorkbook.Sheets("Data").Range("R6") & vbTab & ActiveWorkbook.Sheets("Data").Range("s6") & vbTab & ActiveWorkbook.Sheets("Data").Range("T6") & vbTab & ActiveWorkbook.Sheets("Data").Range("u6") & vbLf & _
ActiveWorkbook.Sheets("Data").Range("m7") & vbTab & ActiveWorkbook.Sheets("Data").Range("n7") & vbTab & ActiveWorkbook.Sheets("Data").Range("O7") & vbTab & ActiveWorkbook.Sheets("Data").Range("P7") & vbTab & ActiveWorkbook.Sheets("Data").Range("Q7") & vbTab & ActiveWorkbook.Sheets("Data").Range("R7") & vbTab & ActiveWorkbook.Sheets("Data").Range("s7") & vbTab & ActiveWorkbook.Sheets("Data").Range("T7") & vbTab & ActiveWorkbook.Sheets("Data").Range("u7") & vbLf & _
ActiveWorkbook.Sheets("Data").Range("m8") & vbTab & ActiveWorkbook.Sheets("Data").Range("n8") & vbTab & ActiveWorkbook.Sheets("Data").Range("O8") & vbTab & ActiveWorkbook.Sheets("Data").Range("P8") & vbTab & ActiveWorkbook.Sheets("Data").Range("Q8") & vbTab & ActiveWorkbook.Sheets("Data").Range("R8") & vbTab & ActiveWorkbook.Sheets("Data").Range("s8") & vbTab & ActiveWorkbook.Sheets("Data").Range("T8") & vbTab & ActiveWorkbook.Sheets("Data").Range("u8")
Me.Label13.Visible = True
End Sub
Daarbij worden deze regels pas geupdate als Textbox1, het veld achter "Object" heb ingevuld en doorenter. Is er een mogelijkheid dat dit ook automatisch gebeurt? Dus als ik een invoerregel verder ga, van 1 naar 2, van 2 naar 3, etc. etc.
Ik zou het fijn vinden als iemand mij zou kunnen helpen, hiervoor alvast mijn dank!
Michael