Kod ile tarih aktarma

[sirkülasyon]

Sheets("Zarf Açma Ve Kontrol").Range("C6").Value = Target.Offset(0, 22).Value & " - " & Target.Offset(0, 23).Value & " "

Target.Offset(0, 23).Value yazan yer saat ve formatı da 00:00 şeklinde

ama aktarma yapınca saat şeklinde aktarmıyor. Nasıl bir format verilmesi lazım. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

İstediğiniz şekilde aktarmıyor çünkü aktarma yaptığınız değerler birleştikten sonra metin formatını alıyor.

Aşağıdaki kodu kullanın.

Sheets("Zarf Açma Ve Kontrol").Range("C6").Value = FormatDateTime(Target.Offset(0, 22).Value, vbShortTime) & " - " & FormatDateTime(Target.Offset(0, 23).Value, vbShortTime) & " "

 

[sirkülasyon]

Sayın dalgalikur
Teşekkür ederim. Ellerine sağlık. Sağ olasın