UserForm üzerinde DTPickere çalışma sayfasından tarih almak

[Hakan ERDOST]

Sayfa1 isimli çalışma sayfamda 25 sütun ve 30 satır veri mevcut. Bu veriler ile güncelleme yapmaya çalıştığımda veri giriş formuna kayıt sırasında sorun yaşamıyorum ancak Combobox ile veri güncellemek için ver çağırdığımda ilk DTPicker da hata veriyor.

Private Sub ComboBox1_Change()
With Sheets("VERİ")
For Each BUL In .Range("C2:C" & Sheets("VERİ").Range("A65536").End(3).Row)
If CStr(BUL.Value) = CStr(ComboBox1.Value) Then
Label24.Caption = BUL.Offset(0, 0).Value
Label25.Caption = BUL.Offset(0, 37).Value & "    " & BUL.Offset(0, 28).Value

Label27.Caption = BUL.Offset(0, 1).Value
Label28.Caption = BUL.Offset(0, 6).Value
Label29.Caption = BUL.Offset(0, 43).Value & "    " & BUL.Offset(0, 34).Value
Label30.Caption = BUL.Offset(0, 38).Value & "    " & BUL.Offset(0, 29).Value
Label31.Caption = BUL.Offset(0, 26).Value
Label32.Caption = BUL.Offset(0, 13).Value & "    " & BUL.Offset(0, 14).Value
End If
Next BUL
End With
With Sheets("VELİ_VERİTABANI")
For Each BUL In .Range("B2:B" & Sheets("VELİ_VERİTABANI").Range("A65536").End(3).Row)
If CStr(BUL.Value) = CStr(ComboBox1.Value) Then
Label26.Caption = BUL.Offset(0, 8).Value & " " & BUL.Offset(0, 9).Value
End If
Next BUL
End With
With Sheets("GÖZLEM_VT")
For Each BUL In .Range("B2:B" & Sheets("GÖZLEM_VT").Range("A65536").End(3).Row)
If CStr(BUL.Value) = CStr(ComboBox1.Value) Then

ComboBox2.Value = BUL.Offset(0, 9).Value
ComboBox3.Value = BUL.Offset(0, 10).Value
ComboBox4.Value = BUL.Offset(0, 11).Value
ComboBox5.Value = BUL.Offset(0, 12).Value
ComboBox6.Value = BUL.Offset(0, 13).Value
ComboBox7.Value = BUL.Offset(0, 14).Value
ComboBox8.Value = BUL.Offset(0, 15).Value
ComboBox9.Value = BUL.Offset(0, 16).Value
ComboBox10.Value = BUL.Offset(0, 17).Value
ComboBox11.Value = BUL.Offset(0, 18).Value
ComboBox12.Value = BUL.Offset(0, 19).Value
ComboBox13.Value = BUL.Offset(0, 20).Value
ComboBox14.Value = BUL.Offset(0, 21).Value
TextBox16.Value = BUL.Offset(0, 22).Value
DTPicker1.Value = BUL.Offset(0, 23).Value
TextBox17.Value = BUL.Offset(0, 24).Value
DTPicker2.Value = BUL.Offset(0, 25).Value
TextBox18.Value = BUL.Offset(0, 26).Value
DTPicker3.Value = BUL.Offset(0, 27).Value
TextBox19.Value = BUL.Offset(0, 28).Value
DTPicker4.Value = BUL.Offset(0, 29).Value
TextBox20.Value = BUL.Offset(0, 30).Value



End If
Next BUL
End With

End Sub

Veri alırken bir hatamı yapıyorum acaba.

 

[Ömer BARAN]

Merhaba.

Örnek belge olmadığından;
ekteki belgede uygulama yaptım ve belge içerisine açıklama yazdım.
.

 

[Hakan ERDOST]

Merhaba.

Örnek belge olmadığından;
ekteki belgede uygulama yaptım ve belge içerisine açıklama yazdım.
.

Ömer bey kusura bakmayın yordum sizi de ... DEĞİŞTİR/GÜNCELLE kodunda hata varmış. Sorun çözüldü teşekkürler.