fonksiyon içerisinden macro çalıştırılabilir mi?

[hackeremo]

bi şarta bağlı olarak macro çalıştırabilirmiyim ör: IF (A1="10" MACRO1 çalıştırı)
:kafa:

 

[Levent Menteşoğlu]

Diyelimki formülünüz B1 hücresinde ve formülünüzde şöyle;

=IF (A1="10";1;0)

Bu durumda formülün yazılı bulunduğu sayfanın kod sayfasına aşağıdaki kodu yazın.

[vb:1:c5b9d2bfe1]Private Sub Worksheet_Calculate()
If [b1] = 1 Then makro1
End Sub
[/vb:1:c5b9d2bfe1]

 

[hackeremo]

Worksheet_Calculate() event i ne zaman çalışır ?

 

[hackeremo]

yaa benim asıl problemim bi şarta bağlı olarak validation ı nasıl değiştirebilirim
yani şöyle : A1="1983" ise B1 için x validation ının kullan A1="1652" ise y validation ını kullan...

bunu nası yaparım
birde sadece a1 için değil tüm a kolonu için geçerli olacak :agla:

 

[gkseren]

Sayın hackeremo
Umarım Doğru anlmışımdır (Geçen verdiğim bir cevaptan dolayı bir arkadaşa çok kötü mahcup oldum.)

Aşağıdaki kodları bir deneyin, Formül kısmına istediğiniz doğrulamayı yazarak uygulayabilirsiniz :

Kodlar,
------------------------------------------------------

If Range("A1") = 1983 Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=A1>B1"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = "Hata!!"
.ErrorMessage = "Hatalı veri Girişi"
.ShowError = True
End With
ElseIf Range("A1") = 1652 Then
With Range("B1").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=A1<B1"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = "Hatalı!!"
.ErrorMessage = "Hatalı veri Girişi"
.ShowError = True
End With
End If

---------------------------------------------------------------