Userformda geçmişe yönelik kayıt

[lodos63]

değerli arkadaşlar üzerinde çalıştığım bir program var bunun kayıt formunda (ekteki dosyada) Calendar nesnesi yardımıyla geçmişe yönelik kayıtlar girmek istiyorum ama şu haliyle örneğin bugün programı çalıştırdığımızda düne veya iki gün öncesine ya da bir ay öncesine yönelik bir veri girdiğimde başka bir kaydın üzerine yazmakta bununla ilgili ne bir şeyler yapmamız mümkün mü?

 

[lodos63]

yardım edecek yok mu acaba?

 

[ugurcadir]

dosyada hata var

 

[lodos63]

hocam nasıl bi hata var anlayamadım...

 

[lodos63]

arkadaşlar hala yardımlarınızı bekliyorum aşamadım bir türlü problemi...

 

[lodos63]

anlaşılan zor bir soru oldu veya kimse ilgilenmek istemedi uzman hocalarım lütfen hiç değilse yorumlarınızı yazın...

 

[lodos63]

sanırım bugün kimseye sesimi duyuramıyorum...

 

[lodos63]

iki gün oldu ama hala kimse yardım etmiyor uzman hocalarım en azından böyle bir şeyin olup olamayacağı ile ilgili yorumlarınız olursa sevinirim...

 

[Emir Hüseyin Çoban]

iki gün oldu ama hala kimse yardım etmiyor uzman hocalarım en azından böyle bir şeyin olup olamayacağı ile ilgili yorumlarınız olursa sevinirim...

. . .

Merhaba.
Aşağıda kırmızı ile belirttiğim satırı kodlarınıza ilave ederek deneyiniz.

Private Sub CommandButton1_Click()
'.................kaydet...............
Sheets("SAYFA1").Select
[COLOR="Red"]ActiveSheet.ShowAllData[/COLOR]
Dim sat, son, deg, say As Integer
If TextBox1 = "" Then MsgBox "Önce MİKTAR girmelisiniz", vbInformation: Exit Sub
son = Cells(65536, "A").End(xlUp).Row + 1
Sheets("SAYFA1").Cells(son, "B") = Calendar1.Year
Sheets("SAYFA1").Cells(son, "C") = Calendar1.Month
Sheets("SAYFA1").Cells(son, "D") = Calendar1.Value
Sheets("SAYFA1").Cells(son, "E") = TextBox6
Sheets("SAYFA1").Cells(son, "F") = CDbl(TextBox1)
TextBox1 = Empty
TextBox2 = Empty
TextBox6 = Empty
'*****sıranover
[a2:a65536] = Empty
deg = WorksheetFunction.CountA(Range("b2:b65536"))
s = 1
Do While [B2] <> ""
Cells(s + 1, "a") = s
s = s + 1
If s > deg Then Exit Do
Loop
'***** listboxu yenile
say = WorksheetFunction.CountA(Range("A2:A65500"))
    For i = 2 To say
        Cells(i + 1, 1) = i
    Next i
MsgBox "KAYIT İŞLEMİ YAPILMIŞTIR. GİTTİ PARACIKLAR.", vbInformation
Call listele
TextBox2 = Sheets("sayfA3").Range("H2").Value
TextBox2 = Format(TextBox2, "#,##,#0 TL")
'TextBox3 = Sheets("sayfA11").Range("H5").Value
TextBox3 = Format(TextBox3, "#,##,#0 TL")
'TextBox4 = Sheets("sayfA11").Range("H4").Value
TextBox4 = Format(TextBox4, "#,##,#0 TL")
'TextBox5 = Sheets("sayfA11").Range("H6").Value
TextBox5 = Format(TextBox5, "#,##,#0 TL")

'*****sıranover
End Sub

. . .

 

[lodos63]

çok teşekkür ederim çok sağolun kaç gündür kafa patlattım bu kadar kolaymış demek elleriniz dert görmesin