Tarih biçimi

[eminuslu]

Sevgili arkadaşlar tarihleri ekte gönderdiğim dosyamda olduğu şekilde makro ile veya başka bir şekilde yazdırmak mümkünmü? herkese teşekkür eder iyi akşamlar dilerim

 

[Ömer]

Merhaba,

Farklı bir hücredemi yoksa aynı hücre üzerinde değişiklik yaparak mı istediğiniz biçimde yazacak.

 

[eminuslu]

Eğer mümkünse bu sayfanın tüm hücrelerine yazsın

 

[Ömer]

Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo son
    Target = CDate(Format(Target, "00-00-0000"))
son:
    
End Sub

.

 

[eminuslu]

Ömerbey ilgi ve cevabınıza çok teşekkür ederim ama tarihlerin arasına nokta koyarak değilde / kesme işareti koyarak yazdırabilirmiyiz

 

[Ömer]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    On Error GoTo son
    With Target
        .ClearFormats
        .Value = CDate(Format(.Value, "00-00-0000"))
        .NumberFormat = "dd\/mm\/yyyy"
    End With
son:
    
End Sub

.

 

[eminuslu]

Ömer bey bazı hücrelerde arıza veriyor#####şeklinde yazıyor

 

[Ömer]

Sütun genişliğinden dolayı olabilir. Bu şekilde olan hücrelerin sütun genişliklerini artırın.

 

[eminuslu]

Çok teşekkürler ömer bey

 

[eminuslu]

Tamam Ömer bey teşekkürler

 

[kara_yagiz]

Tarih Biçimi

Ömer Bey, tarih biçiminin bütün sayfada değil de sadece belli bir hücrede olmasını istiyorum .vermiş olduğuz kodda nasıl bir düzeltme yapmalıyım bu konuda yardımcı olabilir misiniz

 

[kara_yagiz]

Ömer Bey, tarih biçiminin bütün sayfada değil de sadece belli bir hücrede olmasını istiyorum .vermiş olduğuz kodda nasıl bir düzeltme yapmalıyım bu konuda yardımcı olabilir misiniz

 

[Ömer]

Sadece A1:A10 arasında çalışır. Siz buna göre kendinize göre uyarlarsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("[COLOR=red]A1:A10[/COLOR]")) Is Nothing Then Exit Sub
 
    On Error GoTo son
    With Target
        .ClearFormats
        .Value = CDate(Format(.Value, "00-00-0000"))
        .NumberFormat = "dd\/mm\/yyyy"
    End With
son:
 
End Sub

.