Tekstvak op ander blad wegschrijven

[patrickje]

Hoi

Ik heb momenteel 3 tekstvakken gemaakt.
Elke tekstvak op mijn userform zou op een ander blad weg gescheven moeten worden.

.Cells(lRij, "B") = T1.Value

Hoe kan ik dit het beste oplossen ???

 

[Cobbe]

Door er telkens de sheet-name voor te voegen?

 

[patrickje]

Ok dank je

Ik heb het nu zo gedaan

Private Sub Cmd_Opslaan_Click()

Set ws = Worksheets("blad1")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
 With ws
  .Cells(lRow, 2).Value = Me.T1
  .Cells(lRow, 3).Value = Me.T2
   End With

Set ws = Worksheets("blad2")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
 With ws
  .Cells(lRow, 2).Value = Me.T1
  .Cells(lRow, 3).Value = Me.T3


End With
WisTextboxes
MsgBox "gegevens zijn toegevoegd"
End Sub

Als iemand over deze vraag heen loopt tips zijn altijd welkom.

Misschien doen ik het wel te moeilijk

M.V.G.

 

[patrickje]

Een klein foutje ontdenkt.

Als ik nieuwe waardes wil invoeren dan overschrijft hij de huidige waardes in de cel

Wat heb ik fout gedaan ???

 

[sylvester-ponte]

hallo patrickje
verander

lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

in

lRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row

dan kijk je in kolom 2 ipv in kolom 1
groet sylvester

 

[patrickje]

**** wat een fout zeg keek er telkens overheen

Bedankt