Hicredeki değeri gün olarak textboxa yazdırma

[kelkitli]

Selamlar,

Private Sub ComboBox1_Change()
Set no = Worksheets("ARAÇ").Range("A1:A15")
Set ara = Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If
TextBox1 = ActiveCell.Offset(0, 1)
TextBox2 = ActiveCell.Offset(0, 2)
TextBox3 = ActiveCell.Offset(0, 3)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 3)
End Sub

Yukarıda Textbox3 e yazılacak hücrede bir tarih değeri yazılı. Ben o değeri TextBox3 e gün olarak yazdırmak istiyorum. Mesela tarih 01.02.2012 ise TextBox3 e 01 olarak yazdırmak istiyorum. Nasıl bir değişiklik olması gerekir.

 

[Husgvarna]

Selamlar,

Yukarıda Textbox3 e yazılacak hücrede bir tarih değeri yazılı. Ben o değeri TextBox3 e gün olarak yazdırmak istiyorum. Mesela tarih 01.02.2012 ise TextBox3 e 01 olarak yazdırmak istiyorum. Nasıl bir değişiklik olması gerekir.

Şöyle denedinizmi?

 TextBox3 = Format(ActiveCell.Offset(0, 3), "dd")

 

[kelkitli]

Teşekkür ederim Sayın Husgvarna