tarih birleştirme

[igultekin2000]

iyi akşamlar; gelen verilerde tarih gün, ay , yıl ve tutar giden çıkan şeklinde geliyor. onun üzerinde işlem yapmak için sadeleştirmek istiyorum. Gelen ve Giden sütunundaki verileri B sütununa aktarmak ancak Giden sütunu - (eksi) değer olarak aktarmak, C, D, E sütunundaki tarihi A sütununda tarih olarak birleştirmek istiyorum. işlem yapılan sütunları silmek şeklinde. çeşitli örnekler inceledim ama sonuçlandıramadım. iyi akşamlar.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
For a = 2 To Range("C65500").End(3).Row
    Cells(a, "B").Value = Cells(a, "F").Value - Cells(a, "G").Value
    Cells(a, "A").Value = DateSerial(Cells(a, "E").Value, Cells(a, "D").Value, Cells(a, "C").Value)
Next
Range("C:G").Delete
End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
For a = 2 To Range("C65500").End(3).Row
    Cells(a, "B").Value = Cells(a, "F").Value - Cells(a, "G").Value
    Cells(a, "A").Value = DateSerial(Cells(a, "E").Value, Cells(a, "D").Value, Cells(a, "C").Value)
Next
Range("C:G").Delete
End Sub

Teşekkür ederim, sorunsuz çalışıyor, iyi çalışmalar.