aktif sayfa ve hedef hücrelerde tarih formatı Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim DateStr As String

On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    Exit Sub
End If
If Target.Cells.Count > 1 Then
    Exit Sub
End If
If Target.Value = "" Then
    Exit Sub
End If

Application.EnableEvents = False
With Target
If .HasFormula = False Then
    Select Case Len(.Formula)
        Case 4 ' e.g., 9298 = 2-Sep-1998
            DateStr = Left(.Formula, 1) & "/" & _
            Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2)
        Case 5 ' e.g., 11298 = 12-Jan-1998 NOT 2-Nov-1998
            DateStr = Left(.Formula, 1) & "/" & _
                Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2)
        Case 6 ' e.g., 090298 = 2-Sep-1998
            DateStr = Left(.Formula, 2) & "/" & _
                Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2)
        Case 7 ' e.g., 1231998 = 23-Jan-1998 NOT 3-Dec-1998
            DateStr = Left(.Formula, 1) & "/" & _
                Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4)
        Case 8 ' e.g., 09021998 = 2-Sep-1998
            DateStr = Left(.Formula, 2) & "/" & _
                Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4)
        Case Else
            Err.Raise 0
    End Select
    .Formula = DateValue(DateStr)
End If

End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid date."
Application.EnableEvents = True
End Sub

Benzer Sonuçlar
No	Makro Adı
1	aktif sayfa ve hedef hücrelerde tarih formatı
2	aktif sayfa ve hedef hücrelerde saat formatı
3	aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler
4	aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları siler
5	aynı makroyla birden çok sayfaya kayıt yapmak
6	sayfa aktif olunca mesaj verme
7	aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın
8	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
9	aktif sayfada sağ fare'de menü
10	sayfa aktif olunca sol üstbilgi olarak tarihi ekleme
11	ayın son gününü bulur aktif hücreye yazar
12	listbox'tan seçilen hücreyi silmek.
13	aktif hücreden aşağıya doğru sayfalara köprü atılır
14	aktif hücrenin cinsini bulma
15	aktif sayfada belli hücrelere girilen sayıların başına çift sıfır ekler
16	aktif sayfa ve hücreden itibaren tüm sayfaların isimlerini yazar ve sayfalara link ekler
17	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
18	a1:c10 arasının aynısını aktif hücreden itibaren yaz
19	seçilen hücreler renklenir
20	ayları sayfa olarak ekler ayın günlerini de yazar ve aktif ay ve güne gider

Benzer Sonuçlar

Makro Adı

aktif sayfa ve hedef hücrelerde tarih formatı

aktif sayfa ve hedef hücrelerde saat formatı

aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler

aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları siler

aynı makroyla birden çok sayfaya kayıt yapmak

sayfa aktif olunca mesaj verme

aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

aktif sayfada sağ fare'de menü

sayfa aktif olunca sol üstbilgi olarak tarihi ekleme