İ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

 

[pitchoute]

Merhaba, şu makro ile deneyip sonucu paylaşabilir misiniz;

Private Sub CommandButton3_Click()
    Dim s As Long
    Dim selectedSheet As Worksheet

    If LstSayfalar.ListIndex = -1 Then
        MsgBox "Lütfen bir sayfa seçin.", vbExclamation
        Exit Sub
    End If

    Set selectedSheet = Sheets(LstSayfalar.Value)

    s = selectedSheet.Cells(selectedSheet.Rows.Count, "B").End(xlUp).Row + 1

    If s < 21 Then s = 21

    selectedSheet.Range("B" & s).Value = DTPicker1.Value
    selectedSheet.Range("D" & s).Value = TXTfıyat.Text
    selectedSheet.Range("F" & s).Value = TXTadet.Text

    TXTfıyat.Text = ""
    TXTadet.Text = ""
End Sub

 

[tufan18]

MAALESEF HATA VERDİ

 

[pitchoute]

Hata nedir hocam, paylaşabilir misiniz?

 

[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