çek takip proğramı

[marlalı1]

herkese selam.arkadaşlar ekte gönderdiğim çek dosyasında userform sayfasının yazdırılmasını istiyorum.dosyada çek ekranı nına tıklayınca açılan sayfanın yazdırılmasını istiyorum bilgileriyle birlikte.birde vade tarihine 2 gün kalan çeklerin kırmızı renkte gösterilmesini yapabilirmiyiz.

 

[marlalı1]

arkadaşlar yokmu yapacak olan.

 

[Husgvarna]

Aşağıdaki kodları;
"auto_open" ve "sheet activate" altına yazarak deneyin

For b = 2 To Sheets("cek").Cells(65000, 1).End(xlUp).Row
If CLng(CDate(Cells(b, 2))) - Date = 2 Then
Sheets("cek").Rows(b).Interior.ColorIndex = 3
Else
Sheets("cek").Rows(b).Interior.ColorIndex = xlNone
End If
Next

Formları yazdırmak istiyorsanız.

Private Sub CommandButton5_Click()
UserForm1.PrintForm
End Sub

 

[marlalı1]

dediğiniz yeri bulamadım hocam

 

[Husgvarna]

Dosya ekte; inceleyin.

 

[marlalı1]

hocam çok sağol,birde ben bu dosyaya çekleri giriyorum 7.sıradan sonra çekleri sırası karışıyor.bilgiler birbirine giriyor.birde ona bakabilirmisniz.

 

[marlalı1]

yok mu yardım eden

 

[Husgvarna]

Yukarıdaki örneği değiştirdim, bir deneyin.
Kayıt esnasında sıralama 7. sütuna kadar yapıldığı içindir.
ayrıca tarih girilen kodlar
"Range("b" & say) = CDate(TextBox2.Value)" şeklinde olmalıdır