dtpicker

[ofbayoglu]

arkadaşlar dtpicker de ki tarihi geri çektiğimizde hata veriyor çözümünü nasıl yapabliriz.

Sub BilgileriGetir1_Siparisler()

Call temizle1_SiparişBilgilieri

On Error Resume Next
KayıtSatırı = WorksheetFunction.Match(Tb1_Sipno, wsSiparis.Range("A:A"), 0)
If Err.Number > 0 Then
Err.Number = 0

Else

Tb1_Sipno.Value = wsSiparis.Cells(KayıtSatırı, 1)
DTPicker1 = wsSiparis.Cells(KayıtSatırı, 2)
DTPicker2.Value = wsSiparis.Cells(KayıtSatırı, 3)
Cb1_Firma.Value = wsSiparis.Cells(KayıtSatırı, 4)
cb1_Tahsilat.Value = wsSiparis.Cells(KayıtSatırı, 5)
Cb1_Ürun.Value = wsSiparis.Cells(KayıtSatırı, 6)
Tb1_Sipmik.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 7)))
Tb1_Koliad.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 8)))
Tb1_KoliTop.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 9)))
Tb1_Bfiyat.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 10)))
Tb1_Öfiyat.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 11)))
Tb1_Toplam.Value = FormatNumber(SayıKontrol(wsSiparis.Cells(KayıtSatırı, 12)))
Cb1_SipDur.Value = wsSiparis.Cells(KayıtSatırı, 14)
Cb1_Uredur.Value = wsSiparis.Cells(KayıtSatırı, 15)
Tb1_Not.Value = wsSiparis.Cells(KayıtSatırı, 13)


End If
End Sub

 

[mancubus]

dosya yükleme imkanı var mı?

 

[ofbayoglu]

hatayı buldum hocam teşekkür ederim. DTPiker'İ temizleme komutuyla temzileye çalıştığım için hata veriyordu bu işlem bağlı olarak orda düzelttim. teşekkür ederim..