Waarde uit userform naar 2 bladen in een range

[Revdutchie]

Ik heb een userform met een tekstvak, nou wil ik de ingegeven waarde in de eerste lege cel op blad 1 in de range B10:B12 en dezelfde waarde op blad 2 in de range B50:B100

Ik heb gezocht hier op xlUP etc, maar in de meeste voorbeelden gaat het over meerdere kolommen en rijen.

 

[brutus]

Ik weet niet zeker of ik de vraag goed begrepen heb, maar onderstaade zou moeten kunnen werken.

Sub WaardeNaarBlad

Sheets("Blad 1").Activate
For a = 10 to 12
[INDENT]Range("B" & a).select
If Activecell.Text = "" Then
[INDENT] Activecell.FormulaR1C1=frmJouwFormulier.txtJouwTekstvak.Text
Exit For[/INDENT]
End If
[/INDENT]
Next a

Sheets("Blad 2").Activate
For b = 50 to 100
[INDENT]
Range("B" & b).Select
If Activecell.Text = "" Then
[INDENT]
Activecell.FormulaR1C1 = frmJouwFormulier.txtJouwTekstvak.Text
Exit For
[/INDENT]
End if
[/INDENT]
Next b

End Sub

 

[Revdutchie]

Brutus,

Erg bedankt voor het meedenken, ik heb net zelf ook wat gevonden wat lijkt te werken, maar alle commentaar is welkom.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("Blad2!B50")(Rows.Count, 1).End(xlUp).Offset(1) = TextBox1.Value
Range("B10")(Rows.Count, 1).End(xlUp).Offset(1) = TextBox1.Value
End Sub

HERSTEL !! Het werkt niet, is het uberhaupt mogelijk om een range aan te wijzen en xlUP te gebruiken zoals B10:B30 als er onder en boven nog data staat

 

[Roncancio]

Ik zou persoonlijk een commandbutton gebruiken.

Worksheets("Blad2").Range("B101").End(xlUp).Offset(1) = TextBox1.Value
Worksheets("Blad1").Range("B13").End(xlUp).Offset(1) = TextBox1.Value

Met vriendelijke groet,


Roncancio

 

[Revdutchie]

Roncancio, ook met jouw code pakt hij nog steeds gewoon de boveste vrij cel ipv vanaf B101, dus heb ik maar een workarround gemaakt

Met een button is niet handig in een tel systeem zonder muis voorhanden.

 

[Roncancio]

Roncancio, ook met jouw code pakt hij nog steeds gewoon de boveste vrij cel ipv vanaf B101

Dan begrijp ik eerlijk gezegd niet helemaal wat je vraag is.
Ik ging ervan uit dat je de eerst vrije cel zoekt tot 100.

Met vriendelijke groet,


Roncancio

 

[Revdutchie]

Dan begrijp ik eerlijk gezegd niet helemaal wat je vraag is.
Ik ging ervan uit dat je de eerst vrije cel zoekt tot 100.

Met vriendelijke groet,


Roncancio

Nee, eigenlijk eerste vrij cel in een range, dus bijvoorbeeld B30:B50
ook als er boven 30 en onder 50 nog data staat.