Private Sub CommandButton a ek

[aydgur]

Private Sub CommandButton2_Click()

Dim sut As Range
Set sut = Sheets("STOK").[V2]
Do While sut <> ""
Set sut = sut.Offset(1, 0)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
Sheets("ANASAYFA").Select
Unload Me
End Sub.....Bu koda TextBox3 de yazanı STOK sayfası W2 den itibaren yzdır diye ekleme yapabilirmiyim ?

 

[aydgur]

Private Sub CommandButton2_Click()

Dim sut As Range
Set sut = Sheets("STOK").[V2]
Do While sut <> ""
Set sut = sut.Offset(1, 0)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing

Set sut = Sheets("STOK").[W2]
Do While sut <> ""
Set sut = sut.Offset(1, 0)
Loop
sut = TextBox3
TextBox3 = ""
TextBox3.SetFocus
Set sut = Nothing

Sheets("ANASAYFA").Select
Unload Me
End Sub Böyle yaptım oldu ,ilgilenenler için teşekkür ederim.