tarih formadı

[igultekin2000]

iyi geceler; tarihi daha pratik girmek için B - C - D hücrelerindeki değerleri DateSerial kullanarak tarihe çevirmek istiyorum. kullandığım makro

Sub islem_kayit()

son = Sheets("cari_hareket").Range("B65556").End(3).Row + 1

Sheets("cari_hareket").Cells(son, 2).Value = Format(Sheets("Cari1").Range("E2"), "dd.mm.yyyy")
Sheets("cari_hareket").Cells(son, 3).Value = Sheets("Cari1").Range("A2"): ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 4).Value = Sheets("Cari1").Range("G2"): ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 5).Value = Sheets("Cari1").Range("H2"): ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 6).Value = Sheets("Cari1").Range("I2"): ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 7).Value = Sheets("Cari1").Range("J2") * 1: ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 8).Value = Sheets("Cari1").Range("K2") * 1: ActiveCell.Offset(0, 0) = ""
Sheets("cari_hareket").Cells(son, 9).Value = Sheets("Cari1").Range("L2"): ActiveCell.Offset(0, 0) = ""
    Range("F2").Select
    Selection.ClearContents
    Range("J2").Select
    Selection.ClearContents
    Range("K2").Select
    Selection.ClearContents
    Range("L2").Select
    Selection.ClearContents
    Range("A2").Select
End Sub

ilk satırda geçen makro, yapamadığım için önce E2 hücresine oluşturup oradan cari_hareket sayfasına aktarıyorum. Teşekkürler

 

[Orion1]

Buyurun.

Sheets("cari_hareket").Cells(son, 2).Value = CDate(Sheets("Cari1").Range("E2").Value)
Sheets("cari_hareket").Cells(son, 2).NumberFormat = "dd.mm.yyyy"

 

[igultekin2000]

Buyurun.

Sheets("cari_hareket").Cells(son, 2).Value = CDate(Sheets("Cari1").Range("E2").Value)
Sheets("cari_hareket").Cells(son, 2).NumberFormat = "dd.mm.yyyy"

merhaba, sorumu okuyunca biraz karışık yazmışım, şu şekilde detaylandırmak istiyorum. " cari1 sayfasındaki B-C-D hücrelerini kullanıp oluşan E hücresine gerek olmadan, bunları "B-C-D hücrelerini kullanarak direk " cari_hareket sayfasına tarih olarak almak. daha önce başka işlemde kullandığım şöyle makro vardı buna adapte edemedim. " Sheets("cari_hareket").Cells(son,2).Value= B/C/D "dd.mm.yyyy" olması şeklinde şöyle kod vardı " =DateSerial (Cells,a"E").Value, Cells(a,"C").Value, Cells(a,"D").Value) "

 

[Orion1]

merhaba, sorumu okuyunca biraz karışık yazmışım, şu şekilde detaylandırmak istiyorum. " cari1 sayfasındaki B-C-D hücrelerini kullanıp oluşan E hücresine gerek olmadan, bunları "B-C-D hücrelerini kullanarak direk " cari_hareket sayfasına tarih olarak almak. daha önce başka işlemde kullandığım şöyle makro vardı buna adapte edemedim. " Sheets("cari_hareket").Cells(son,2).Value= B/C/D "dd.mm.yyyy" olması şeklinde şöyle kod vardı " =DateSerial (Cells,a"E").Value, Cells(a,"C").Value, Cells(a,"D").Value) "

dateserial vba fonksiyonun çalışma tarzı aşağıdaki gibidir.Kendi dosyanıza uyarlayınız.

VBA.DateSerial(Yıl, Ay, Gün)

 

[igultekin2000]

dateserial vba fonksiyonun çalışma tarzı aşağıdaki gibidir.Kendi dosyanıza uyarlayınız.

VBA.DateSerial(Yıl, Ay, Gün)

Teşekkürler, tarih garip şekilde çıkıyordu, bu şekilde düzeldi, iyi çalışmalar.

 

[Orion1]

Teşekkürler, tarih garip şekilde çıkıyordu, bu şekilde düzeldi, iyi çalışmalar.

Rica ederim.
İyi çalışmalar.