Benzerleri bul ve değiştir.

[cihanyuruk]

Merhaba,

Ekteki dosyada da göreceğiniz üzere, a sütununda saatler var. Ben 23:00'dan daha büyük olanların(ya da 23'le başlayanları da diyebiliriz.) hepsini 00:00 yapmak istiyorum. bunu otomatik olarak nasıl yapabiliriz.

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

1) Hücrelere elle veri girişi yapıyorsanız ve veri yazdığınızda hücredeki değerin, sizin istediğiniz hale
otomatik olarak dönüştürülmesini istiyorsanız aşağıdaki kod'u ilgili sayfanın kod bölümüne uygulayın.
(Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi tıkladığınızda karşınıza gelecek
ekranın sağ tarafındaki boş alana yapıştırın)

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = 0 Or Target = "" Then Exit Sub
        If Target >= 23 / 24 Then
            Target = Format(0, "hh:mm")
        Else
            Target = Format(Target, "hh:mm")
    End If
End Sub[/FONT]

2) Sayfanızda zaten var olan değerlere aynı işlemi uygulamak için ise;
-- aşağıdaki kod'u aynı yere yapıştırın,
-- excel sayfanıza ekleyeceğiniz bir şekil/metin kutusuna fareyle sağ tıklayıp MAKRO ATA'yı seçtiğinizde
karşınıza gelecek küçük ekranda YİRMİÜÇ_BRN'yi seçip işlemi onaylayın,
-- sonra bu metin kutusuna/şekle fareyle tıklayarak kod'u çalıştırın.

[FONT="Trebuchet MS"]Sub[B][COLOR="Blue"] YİRMİÜÇ_BRN[/COLOR][/B]()
For satır = 2 To [A65536].End(3).Row
    If Cells(satır, 1) = 0 Then GoTo 10
        If Cells(satır, 1) >= 23 / 24 Then
            Cells(satır, 1) = Format(0, "hh:mm")
        Else
            Cells(satır, 1) = Format(Cells(satır, 1), "hh:mm")
        End If
10: Next
End Sub[/FONT]