Soru Userform ile Çalışan Hatırlatma Programı

[TURKOLOG]

Arkadaşlar herkese Merhaba
Elinde userform yöntemi ile çalışan bir hatırlatma programı olan var mı . Günü ve zamanı geldiğinde veya zamanı gelmeden önce benim belirlediğim kadar gün önce userformu çalıştırıp hatırlatma yapacak bir programa ihtiyacım var. Yardımcı olabilecek varsa çok sevinirim.

 

[Seyit Tiken]

Yıllarr önce bir AJANDA yapmıştım, UserFormsuzdur.

 

[TURKOLOG]

Sayın @Seyit Tiken paylaşımınız icin çok tesekkur ederim . Elinize emeğinize saglik . Ama ben exceli arka planda kullanacağımdan bana userform lazim. Ama alakaniz için cok teşekkür ederim.

 

[TURKOLOG]

Herkese Merhaba ekteki dosyada
Vadesine 5 gün kalan işleri listelemesi gerekirken,sadece tam 5 gün geçmiş işleri listeliyor.
Uygulamayı, vadesine 5 gün kalanları 5 gün 4 gün 3 gün 2 gün 1 gün kala 5 günden sonra her açılışta uyarı verip listeleyecek şekilde değiştirmek istiyorum. Yardım edebilecek olan varsa çok sevinirim.

 

[TURKOLOG]

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    With Sayfa1
    Me.Caption = "SİGORTA HATIRLATMALARI"
    ListBox1.ColumnWidths = "70;120"
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, 1) <= Date And Cells(X, 1) >= Date - 5 Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, 1), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 2)
                 Satır = Satır + 1
            End With
        End If
    Next
    'Call PlayIt("C:\Windows\Media\Tada.wav ", 1) BU SATIR HATA VERİYOR
    End With
End Sub

kodlarda nasıl bir değişiklik yapmam gerekiyor acaba.

 

[TURKOLOG]

Bu şekilde sorun çözülmüştür.

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    With Sayfa1
    Me.Caption = "SİGORTA HATIRLATMALARI"
    ListBox1.ColumnWidths = "70;120"
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, 1) <= Date And Cells(X, 1) >= Date + 5 Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, 1), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 2)
                 Satır = Satır + 1
            End With
        End If
    Next
    'Call PlayIt("C:\Windows\Media\Tada.wav ", 1) BU SATIR HATA VERİYOR
    End With
End Sub

 

[TURKOLOG]

Bunu kendi başıma yapamam ama biri lütfen yardım etsin alttaki koniyu nasıl yapacağımı bilmiyorum.

Userform, excel kitabi her açıldığında ekrana geliyor. Ama benim istediğim listboxta veri varsa eğer (gününün gelmesine 5 gün kalanlar listboxa geliyor ) userform, excel kitabi açıldığında ekrana gelsin

 

[TURKOLOG]

Arkadaşlar bir türlü yapamadım yardımcı olabilecek olan var mı
Userform, excel kitabi her açıldığında ekrana geliyor. Ama benim istediğim listboxta veri varsa eğer (gününün gelmesine 5 gün kalanlar listboxa geliyor ) userform, excel kitabi açıldığında ekrana gelsin

 

[Korhan Ayhan]

Dosyanızda 5-4-3-1 gün kala şeklinde bir açıklama var.

Kurgunuzda bir terslik yok mu? Kontrolün daha Userform açılmadan yapılması gerekir. Bunun içinde yardımcı bir sütun kullanmanız daha sağlıklı olur.

 

[metin_0606]

Arkadaşlar bir türlü yapamadım yardımcı olabilecek olan var mı
Userform, excel kitabi her açıldığında ekrana geliyor. Ama benim istediğim listboxta veri varsa eğer (gününün gelmesine 5 gün kalanlar listboxa geliyor ) userform, excel kitabi açıldığında ekrana gelsin

Deneyiniz

 

[TURKOLOG]

Deneyiniz

Hocam güzel olmuş elinize sağlık yalnız

If var = True Then
        UserForm1.Label1.Caption = "ASAGIDAKİ İŞLEMİN VADESİNE " & 5 & " GUN KALMISTIR."
        UserForm1.Show
    End If

bu kısım 4 gün kaldı 3 gün 2 gün 1 gün şeklinde ayrı ayrı kod kullanmak ve ayrı ayrı form açmak yerine form tek seferde açılsa misal 5 gün ve daha az kalanları 1 kerede gösterse daha mantıklı olmaz mı

 

[TURKOLOG]

Dosyanızda 5-4-3-1 gün kala şeklinde bir açıklama var.

Kurgunuzda bir terslik yok mu? Kontrolün daha Userform açılmadan yapılması gerekir. Bunun içinde yardımcı bir sütun kullanmanız daha sağlıklı olur.

Hocam ben çıkamadım işin içinden.

 

[metin_0606]

Hocam güzel olmuş elinize sağlık yalnız

If var = True Then
        UserForm1.Label1.Caption = "ASAGIDAKİ İŞLEMİN VADESİNE " & 5 & " GUN KALMISTIR."
        UserForm1.Show
    End If

bu kısım 4 gün kaldı 3 gün 2 gün 1 gün şeklinde ayrı ayrı kod kullanmak ve ayrı ayrı form açmak yerine form tek seferde açılsa misal 5 gün ve daha az kalanları 1 kerede gösterse daha mantıklı olmaz mı

 

[TURKOLOG]

Sayın @metin_0606 dosyada sütun yerlerini değiştirdiğimde userform çalışmadı . Bakma imkanınız var mı acaba.

 

[metin_0606]

Sayın @metin_0606 dosyada sütun yerlerini değiştirdiğimde userform çalışmadı . Bakma imkanınız var mı acaba.

 

[TURKOLOG]

Hocam @metin_0606 elinize sağlık. Kod müstakil dosya şeklinde çalışyor ama bir türlü kendi projeme adapte edip çalıştıramadım.

 

[metin_0606]

Hocam @metin_0606 elinize sağlık. Kod müstakil dosya şeklinde çalışyor ama bir türlü kendi projeme adapte edip çalıştıramadım.

Sayın Türkolog mutlaka bir yerde eksik yaptığınız bir şey vardır thisworkbook kısmına gerekli kodları ekliyormusunuz

 

[TURKOLOG]

Sayın Türkolog mutlaka bir yerde eksik yaptığınız bir şey vardır thisworkbook kısmına gerekli kodları ekliyormusunuz

Aynen ekliyorum ama sorun nerede çözemedim.

 

[metin_0606]

Aynen ekliyorum ama sorun nerede çözemedim.

Proğramınıza eklediğiniz kodları eklediğiniz hali ile ve veri tablonuzun örneğini tekrar paylaşırmısınız bakalım belki gözden kaçırdığınız bir şey vardır

 

[TURKOLOG]

Proğramınıza eklediğiniz kodları eklediğiniz hali ile ve veri tablonuzun örneğini tekrar paylaşırmısınız bakalım belki gözden kaçırdığınız bir şey vardır

Hocam ofiste dosydaki dosyadan kodları yarin size atayım.