takvim ve hücreye bağlı makro

[burhancavus61]

Aşağıdaki makro ile hem takvimi çağırıp hemde diğer makroyu aynı anda çalıştırabilirmiyim.
Yani duruma göre hangi hücreye tıklarsa o makro çalışsın. Bişeyler yapmaya çalıştım ama kurgulayamadım.
Sağlıklı çalışmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Not Intersect(Target, Range("$D$15")) Is Nothing) Then
    UserForm1.Show 0
    
    If Target.Address = "$D$3" <> Empty Then
    Call seflik_sil
    End If
    End If
End Sub

 

[Muzaffer Ali]

Merhaba.
D15 hücresi seçilirse form açılır
d3 hücresi boş değilse seflik_sil kodları çalışır

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$D$15")) Is Nothing Then
             UserForm1.Show 0
    End If
    If Target.Address = "$D$3" <> Empty Then
             Call seflik_sil
    End If
End Sub

 

[burhancavus61]

Hata verdi hocam olmadı. başka şekilde çalıştırmıştım ama
seflik_sil makrosu çalışıyor ama takvim mesela bi çalışıyo bi çalışmıyordu.

 

[Muzaffer Ali]

Ne hata verdi? Hata metnini de paylaşır mısınız?

Form ShowModal false(UserForm1.Show 0) olarak çalıştırdığınız için form arkaplanda kalıyor olabilir, kontrol edin.

Bir de false yapmadan (UserForm1.Show şeklinde)formu açmayı deneyin.

 

[burhancavus61]

Tekrar denedim çalışıyor fakat hücreye çift tıklayınca takvim geliyor. Hücreye tıklar tıklamaz yani tek tıkla açılmasını nasıl sağlarım.
Şu an çalışıyor. Ama çift tıkla.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$D$15")) Is Nothing Then
             UserForm1.Show 0
    End If
    If Target.Address = "$D$3" <> Empty Then
             Call seflik_sil
    End If
End Sub

Sub seflik_sil()
    Range("D4").Select
    Selection.ClearContents
    Range("D4").Select
End Sub

 

[Muzaffer Ali]

Şöyle olmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("$D$15")) Is Nothing Then
             UserForm1.Show 0
    End If
    If Target.Address = "$D$3" <> Empty Then
             Call seflik_sil
    End If
End Sub

Sub seflik_sil()
    Range("D4").Select
    Selection.ClearContents
    Range("D4").Select
End Sub

 

[burhancavus61]

Hocam her iki şekildede D15 hücresine çift tıklamadan çalışmıyor. Tek tıkla olması gerek.