Veriyi İstenilen Sayfaya Kayıt Etme

[manly]

Ek'te göndermiş olduğum EVRAK dosyasının içindeki Menüye tıklayınca açılan Userformdaki verileri doldurunca KIRMIZI renkli Textboxa hangi sayfa adı yazılacaksa verilerin o sayfanın sırasına kayıt etmesini istiyorum.

 

[vardar07]

Buyurun.

Private Sub CommandButton1_Click()
syf = TextBox11
Set sh = Sheets(syf)
son = sh.Cells(Rows.Count, 1).End(3).Row + 1
For i = 1 To 10
sh.Cells(son, i) = Controls("TextBox" & i)
Next i
End Sub

 

[muygun]

Merhaba;
Soru cevaplanmış ama alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[manly]

Buyurun.

Private Sub CommandButton1_Click()
syf = TextBox11
Set sh = Sheets(syf)
son = sh.Cells(Rows.Count, 1).End(3).Row + 1
For i = 1 To 10
sh.Cells(son, i) = Controls("TextBox" & i)
Next i
End Sub

Çok teşekkür ederim. Ellerinize sağlık...

 

[manly]

Merhaba;
Soru cevaplanmış ama alternatif olsun.
İnceleyin.
İyi çalışmalar.

Çok teşekkür ederim.