TARİH FORMATINI METİNE ÇEVİRME

[Erdinç FIRTINA]

Sayın forum üyeleri,
BB2 hücresinde yer alan 1.12.2021 tarih formatını BT2 hücresine 1122021
BB3 hücresinde yer alan 5.12.2021 tarih formatını BT3 hücresine 5122021
BB4 hücresinde yer alan 19.12.2021 tarih formatını BT4 hücresine 19122021
BB5 hücresinde yer alan 23.12.2021 tarih formatını BT5 hücresine 23122021
olarak yazılmasını ve
bundan sonraki BB2000 e veya daha fazlasına kadar olan satırlardaki tarih formatlarının BT2000 veya daha fazlasına kadar olan satırlara tarih formatı gibi değil metin formatı gibi 23102022 gibi yazılmasını istiyorum.

Örnek dosyam ekte sunulmuştur.

Yardımlarınız için şimdiden çok çok teşekkür ederim.

 

[Erdinç FIRTINA]

Yine aynı şekilde BC sütununda-satırında yer alan 09:00 saat formatının BU sütunu ve satırlarına 9 gibi aktarılmasını istiyorum.

1 nolu gönderide ekte sunulmuştur dediğim dosya ekte sunulmuştur.

Yardımlarınız için çok çok teşekkürler...

 

[sward175]

[TR][TD]
Günaydın,
Ekteki şekilde kullanabilirsiniz.
Kolay Gelsin.
sward175
[/TD][/TR]

 

[sward175]

Kusura bakmayın dosyayı eklememişim.

 

[Erdinç FIRTINA]

Sayın sward175,
Yardımlarınız için çok teşekkür ederim. Kusura bakmayın hemen cevap yazamadım ancak dosyaya da şimdi bakabildim. Aynı işlemi, formül yerine makro kodlar ile yapabilir miyiz?

 

[sward175]

Erdinç FIRTINA,

Ben kod konusunda bilgili olmadığım için üzgünüm.
Yardım edecek arkadaşlara gıyabınızda ben de teşekkür ederim.
Sağlıcakla kalın.
sward175

 

[ÖmerFaruk]

Aşağıdkai kodu modül içine ekleyip (ben module2 oluşturup oraya attım) Userformunuzdaki butondan aşağıdaki gibi çalıştıtabilirsiniz.
Call Module2.TarihleriDegistir

Tarih ve Saati birlikte yaptım.

Sub TarihleriDegistir()
With Worksheets("PRG")
    Veri = .Range("BB2:BC" & .Range("BA2").End(xlDown).Row).Value
    ReDim Liste(1 To UBound(Veri), 1 To 2)
    For i = 1 To UBound(Veri)
        Liste(i, 1) = Format(Veri(i, 1), "dmyyyy")
        Liste(i, 2) = Hour(Veri(i, 2))
    Next i
    .Range("BT2").Resize(UBound(Liste), 2) = Liste
End With
End Sub

 

[Erdinç FIRTINA]

Sayın ÖmerFaruk, yardımlarınız için çok çok teşekkür ederim. Elinize, yüreğinize sağlık...

 

[ÖmerFaruk]

Eyvallah. Önemli olan sorunuzun çözülmesiydi.