DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton3_Click()
Sheets("JANTSAVERİ").Range("L15").Value = DTPicker1
Sheets("JANTSAVERİ").Range("P15").Value = TXTtutar.Text
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub CommandButton5_Click()
Unload Me
Anaform.Show
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
Private Sub CommandButton3_Click()
s = ActiveSheet.Cells(Rows.Count, "L").End(3).Row + 1
ActiveSheet.Range("L" & s).Value = DTPicker1
ActiveSheet.Range("P" & s).Value = TXTtutar.Text
End Sub
Private Sub CommandButton3_Click()
s = ActiveSheet.Cells(Rows.Count, "L").End(3).Row + 1
If s < 15 Then s = 15
ActiveSheet.Range("L" & s).Value = DTPicker1
ActiveSheet.Range("P" & s).Value = TXTtutar.Text
End Sub