tarihten saat temizleme

[Barons]

merhaba
ekteki dosyada veri olan kolonlarda makro ile tüm kolonu kontrol edip,sadece tarih kalacak şekilde saatleri temizlemek mümkünmüdür?

yani; 21.08.2009 15:33:00 yerine sadece
21.08.2009 olacak şekilde tüm sütunu düzeltmek

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub TARİHLERİ_DÜZENLE()
    Dim HÜCRE As Range, SON_SATIR As Long
 
    SON_SATIR = Range("S65536").End(3).Row
 
    For Each HÜCRE In Range("S2:T" & SON_SATIR, "AF2:AG" & SON_SATIR)
        If HÜCRE.Value <> Empty Then
            If Len(HÜCRE.Value) > 5 Then
            HÜCRE.Value = CDate(Mid(HÜCRE.Value, 1, 10))
            End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Barons]

Korhan bey çok teşekkürler...elinize sağlık

 

[baydeniro]

Ben de çok teşekkür ederim sayın Korhan Ayhan.

 

[Barons]

tarih temizle

Sn.Korhan bey

Size gönderdiğim ilk dosyada kolonların sağ ve solundaki verileri karışıklık olmasın diye silmiştim ve öyle göndermiştim.Bu durumda kod çalışıyor ancak veriler olunca iş karışıyor ve bazı sütunların formatı değişmeye başlıyor ve kod hata veriyor.

Aslında tüm sayfada her bir hücrede formuller var ancak bu bağlantılı formullerle göndermek çok MB tutacağından ben yine sayfayı kopyala/özel yapıştır/değerler yapıp gönderdim .

Ekteki dosyada düğmeye tıklarsanız ne demek istediğim daha iyi anlaşılacaktır.

Çok teşekkürler
iyi çalışmalar

 

[Necdet]

Merhaba,

Ne demek istediğinizi anlamadım ama kodları aşağıdaki şekilde kısaltmak olası

Sub TARİHLERİ_DÜZENLE()
    Dim HÜCRE As Range, SON_SATIR As Long
 
    SON_SATIR = Range("S65536").End(3).Row
 
    For Each HÜCRE In Range("S2:T" & SON_SATIR, "AF2:AG" & SON_SATIR)
        If IsDate(HÜCRE.Value) = True Then
            HÜCRE.Value = CDate(Int(HÜCRE.Value))
        End If
    Next
 
    MsgBox "İşleminiz Tamamlanmıştır.", vbInformation
End Sub

 

[Barons]

Necdet bey teşekkürler,

hızlı bir şekilde baktım ve problem çözülmüş gözüküyor.Elinize sağlık,çok Teşekkürler

Korhan bey'ede tekrar teşekkürler

 

[Barons]

Sn.Necdet bey,
Problemi tariflerken bir yerde hata yapmışım...sadece S ve AF kolonlarında temizleme yapması gerekiyor.
Bu şekilde tekrar yardımcı olabilirmisiniz?

teşekkürler

 

[Necdet]

Merhaba,

Sub TARİHLERİ_DÜZENLE()
    Dim HÜCRE As Range, Son_Satir As Long
 
    Son_Satir = Range("S65536").End(3).Row
 
    For Each HÜCRE In Range[B]("S2:S" & Son_Satir & ", AF2:AF" & Son_Satir[/B])
        If IsDate(HÜCRE.Value) = True Then
            HÜCRE.Value = CDate(Int(HÜCRE.Value))
            [B]HÜCRE.NumberFormat = "m/d/yyyy"
[/B]        End If
    Next
 
    MsgBox "İşleminiz Tamamlanmıştır.", vbInformation
End Sub

 

[Barons]

Şahsınızda bu forum ve forumu oluşturan herkese minnettar olduğumu belirtir, hiç bir menfaat beklemeksizin sizin gibi büyük yürekli yardımsever insanlara teşekkürü bir borç bilirim.

 

[Necdet]

Şahsınızda bu forum ve forumu oluşturan herkese minnettar olduğumu belirtir, hiç bir menfaat beklemeksizin sizin gibi büyük yürekli yardımsever insanlara teşekkürü bir borç bilirim.

Teşekkürler Sayın Barons, benbirşey yapmadım, Sayın Korhan Ayhan'ın kodlarını kullandım. Asıl teşekkürü Korhan bey hak etti.