Hücre değerlerini tarih formatına çevirmek

[MKURU]

Merhaba arkadaşlar.
Bir çalışma kitabında DATA adlı sayfam var. Bu sayfadaki verileri bir kod ile DEFTER sayfasına aktarıyorum. Fakat DATA sayfasında O12:O21 aralığında tarihler var ve verileri aktardığımda tarih olarak değil de metin formatında aktarıyor. Bu nedenle de başka bir kod ile sıralama yapmak istediğimde sıralamayı düzgün yapmıyor. O12:021 aralığını tarih olarak aktarması için ne yapmalıyım.?

[uurozdemir]

Merhaba,

Örnek dosyanızı yüklerseniz yardımcı olabilirim.

[MKURU]

Kod: Tümünü seç

Private Sub Combobox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox2 = Format(ComboBox2, "dd/mm/yyyy") 'ComboBox tarih formatı ayarlıyoruz.
End Sub

Hocam bu şekilde ComboBox tarih formatı ayarlayınca sorun çözüldü. İlginiz için teşekkür ederim.

[islakates]

modül oluşturun ekleyin umarım işe yarar
Sub Tarihler()
Dim DataSheet As Worksheet
Dim DefterSheet As Worksheet
Dim Cell As Range

Rem sayfa isimleri ekle
Set DataSheet = ThisWorkbook.Sheets("DATA")
Set DefterSheet = ThisWorkbook.Sheets("DEFTER")

Rem**** DEFTER sayfasına kopyala****
For Each Cell In DataSheet.Range("O12:O21")
If IsDate(Cell.Value) Then
DefterSheet.Cells(DefterSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = CDate(Cell.Value)
End If
Next Cell
End Sub
kullandığınız formdaki butona Tarihler yazıp çalıştırırsınız End Sub

[MKURU]

modül oluşturun ekleyin umarım işe yarar
Sub Tarihler()
Dim DataSheet As Worksheet
Dim DefterSheet As Worksheet
Dim Cell As Range

Rem sayfa isimleri ekle
Set DataSheet = ThisWorkbook.Sheets("DATA")
Set DefterSheet = ThisWorkbook.Sheets("DEFTER")

Rem**** DEFTER sayfasına kopyala****
For Each Cell In DataSheet.Range("O12:O21")
If IsDate(Cell.Value) Then
DefterSheet.Cells(DefterSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = CDate(Cell.Value)
End If
Next Cell
End Sub
kullandığınız formdaki butona Tarihler yazıp çalıştırırsınız End Sub

Teşekkür ederim hocam.