Sayıyı tarih olarak değiştirmek

[muratekm]

Merhabalar; B sütunun her hangi bir satırına 2625 olarak yazdığım sayıyı makro ile bunu 02.6.2025 tarih olarak yazmasını istiyorum. yardımlarını için şimdiden teşekkürler.

 

[Necdet]

Merhaba,
Bu tür işlerlerle uğraşmayın. sütunu tarih olarak biçimlendirdikten sonra 2-6, 2/6 yazmanız yeterli olacaktır.
11125 yazsanız bunu 01.11.2025 mi yoksa 11.01.2025 mi olacağını nasıl anlamak gerek.
Bu tür yanlışlara neden vermemek için yukarıda önerdiğim yöntemi kullanın. Cari yılın dışında tarih girişi yapacaksanız 1/3/24 yada 1-3-24 ya da 1/3-24 gibi giriş yaptığınızda excel bunu doğru tarihe çevirir.

 

[ümit bektas]

bir dene şunu;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cell As Range

' B sütununu kontrol et
Set rng = Intersect(Target, Me.Columns("B"))

' Eğer B sütununda bir değişiklik varsa
If Not rng Is Nothing Then
Application.EnableEvents = False ' Olayları devre dışı bırak

For Each cell In rng
' Eğer hücre değeri 2625 ise
If cell.Value = 2625 Then
cell.Value = DateSerial(2025, 6, 2) ' 02.06.2025 tarihini yaz
cell.NumberFormat = "dd.mm.yyyy" ' Tarih formatını ayarla
End If
Next cell

Application.EnableEvents = True ' Olayları tekrar etkinleştir
End If
End Sub

 

[Necdet]

Merhaba,
2625 değerini tarihe çevirmek için bu kadar kod yazmaya gerek var mı?