Açılır listeden seçim yapınca makronun otomatik çalışması

[dedenet]

Veri doğrulama ile oluşturduğum açılır listeden seçim yapınca, makronun otomatik çalışmasını istiyorum.
Bunun için mevcut makronun önüne nasıl bir kod yazmalıyım?

 

[Merhum İdris SERDAR]

.
Şeklinde olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)

       If Target.Address = "$D$4" Then ' Açılır liste hücresi.

    Makronuz.
    ......
    ......

.

 

[dedenet]

aşağıdaki şekilde yaptım ancak çalışmadı, sorun ne olaiblir?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then ' Açılır liste hücresi.

Sub Tekrar()
Dim say As Integer
For say = 1 To 20
Calculate
Next

Do
Calculate
Loop Until Range("AX1") = 1
MsgBox "Liste hazırlandı"
End Sub

 

[Merhum İdris SERDAR]

.

Bunu silerek deneyin.

Sub Tekrar()

Ayrıca End Sub'tan önce End If ekleyin.

.

 

[dedenet]

aşağıdaki gibi yaptım yine olmadı

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then ' Açılır liste hücresi.

Dim say As Integer
For say = 1 To 20
Calculate
Next

Do
Calculate
Loop Until Range("AX1") = 1
mSGbOX "Liste hazırlandı"
End If
End Sub

 

[Merhum İdris SERDAR]

.

Bu kodları Modüleye değil, sayfa koduna yazacaksınız.

.

 

[dedenet]

.

Bu kodları Modüleye değil, sayfa koduna yazacaksınız.

.

Şimdi oldu. Çok teşekkür ederim.