İzin Günleri Hesap takibi

[ormann]

İyi günler,
Sayın Halit beyin yapmış olduğu ekteki izin süresi hesaplama programında userform1'de ComboBox3 deki tarihin gg/aa/yyyy karşılığını TextBox1'e gün olarak yazdırabilirmiyiz?.aynı şekilde ComboBox4'dekinide TextBox2'ye gün olarak nasıl yazdırabiliriz?

 

[halit3]

İyi günler,
Sayın Halit beyin yapmış olduğu ekteki izin süresi hesaplama programında userform1'de ComboBox3 deki tarihin gg/aa/yyyy karşılığını TextBox1'e gün olarak yazdırabilirmiyiz?.aynı şekilde ComboBox4'dekinide TextBox2'ye gün olarak nasıl yazdırabiliriz?

kod:

Private Sub CommandButton2_Click()
deg = ComboBox2.Text

For i = 2 To Worksheets("isci").Cells(Rows.Count, "A").End(3).Row
If CDate(ComboBox1.Text) = CDate(Worksheets("isci").Cells(i, 1).Value) Then
ComboBox3.Text = CDate(Worksheets("isci").Cells(i + deg - 1, 1).Value)
ComboBox4.Text = CDate(Worksheets("isci").Cells(i + deg, 1).Value)
[COLOR="Red"]TextBox1.Text = Format(ComboBox3.Text, "dddd")
TextBox2.Text = Format(ComboBox4.Text, "dddd")[/COLOR]
Exit For
End If
Next

End Sub

 

[ormann]

Teşekkür ederim.Halit Bey