İlgili sayfanın son satırındaki hücreye yazdırma

[tufan18]

Private Sub CommandButton3_Click()
s = ActiveSheet.Cells(Rows.Count, "B").End(3).Row + 1
If s < 21 Then s = 21
ActiveSheet.Range("B" & s).Value = DTPicker1
ActiveSheet.Range("D" & s).Value = TXTfıyat.Text
ActiveSheet.Range("F" & s).Value = TXTadet.Text
TXTfıyat.Text = ""
TXTadet.Text = ""
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub LstSayfalar_Click()
Sheets(LstSayfalar.ListIndex + 1).Select
End Sub

Private Sub UserForm_Initialize()
Me.DTPicker1.Value = Format(Date, "dd.mm.yyyy")
Dim x As Integer
For x = 1 To Sheets.Count
LstSayfalar.AddItem (Sheets(x).Name)
Next
End Sub

 

[tufan18]

sayın hocalarım ilgili sayfadaki hücrenin son satırına yazdıramadım bir türlü yardımlarınız bekliyorum

 

[tufan18]

MAALESEF HATA VERDİ

 

[tufan18]

 

[tufan18]

SAYFA LİSTESİ YOK VE TARİH YANLIŞ

 

[tufan18]

SAYIN HOCAM DOSYA YI PAYLAŞTIM ONUN ÜSTÜNDEN YARDIMCI OLABİLİRMİSİNİZ BELKİ DE KONUYU ANLATAMADIM