Koşullu makro

[torik52]

aşşağıdaki kod Hücre boş iken makro 1 dolu iken makro2 yi çalıştırıyor bu kodu hucrede 1 yazarsa makro biri hücrede 2 yazarsa makro2 yi çalıştıracak şekilde değiştirmek istiyorum yardımlarınızı bekliyorum saygılar



Sayfanın kod kısmına
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B3").Value = "" Then
Call Makro1
Else
Call Makro2
End If
End Sub

Sub Makro1()
MsgBox "Selam"
End Sub

Sub Makro2()
MsgBox "Günaydın"
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B3").Value = "1" Then Call Makro1
If Range("B3").Value = "2" Then Call Makro2
End Sub

 

[torik52]

deneyeceğim sağolun

 

[torik52]

seçenekler sorunumu çözmedi bende dosya ekledim dosyada gereknleri yazdım ilgilenenlere şimdiden teşekkür ederim.
excel 2007 dir

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ tarafa aşağıdaki kodu yapıştırın.

Sonuç alamazsanız, örnek belgede, gerçek belgenizin F1 ve G1 hücrelerinde
olduğunu belirttiğiniz formüller içerisinde ve çalışır durumda olacak şekilde örnek belgenizi yenilemenizi öneriyorum.
.

[B]Private Sub Worksheet_Calculate()[/B]
    If [F1] = 0 Then Cells(Cells(Rows.Count, "J").End(3).Row + 1, "J") = [E1]
    If [G1] = 0 Then Cells(Cells(Rows.Count, "K").End(3).Row + 1, "K") = [E1]
[B]End Sub[/B]

 

[torik52]

koşullu biçimlendirme

sn baran dediklerinizi yaptım ancak çalışmadı formüllerle çalışması için gündüz denemem lazım.
elle sıfır yaptım hücreleri ama çalışmadı ilginize teşekkür ederim

Merhaba.

-- Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ tarafa aşağıdaki kodu yapıştırın.

Sonuç alamazsanız, örnek belgede, gerçek belgenizin F1 ve G1 hücrelerinde
olduğunu belirttiğiniz formüller içerisinde ve çalışır durumda olacak şekilde örnek belgenizi yenilemenizi öneriyorum.
.

[B]Private Sub Worksheet_Calculate()[/B]
    If [F1] = 0 Then Cells(Cells(Rows.Count, "J").End(3).Row + 1, "J") = [E1]
    If [G1] = 0 Then Cells(Cells(Rows.Count, "K").End(3).Row + 1, "K") = [E1]
[B]End Sub[/B]

 

[Ömer BARAN]

Elle 0 yazdığınızda çalışmaması normal, çünkü hesaplama (Calculate) ile tetiklenme söz konusu.
O hücrelere veya başka bir hücreye basit bir =1+1 formülü yazın ve formül yazılan hücreye F2=>ENTER yapın.
Sayfada her formül hesaplaması yapıldığında bu iki hücre kontrol edilir ve işlem yapılır.
Belirttiğiniz formüllerin etkilendiği diğer hücreleri bilemediğimizden (formülleri vermemişsiniz)
mecburan bu şekilde kod oluşturdum.
Ben denedim sorun olmaması lazım.

 

[torik52]

Elle 0 yazdığınızda çalışmaması normal, çünkü hesaplama (Calculate) ile tetiklenme söz konusu.
O hücrelere veya başka bir hücreye basit bir =1+1 formülü yazın ve formül yazılan hücreye F2=>ENTER yapın.
Sayfada her formül hesaplaması yapıldığında bu iki hücre kontrol edilir ve işlem yapılır.
Belirttiğiniz formüllerin etkilendiği diğer hücreleri bilemediğimizden (formülleri vermemişsiniz)
mecburan bu şekilde kod oluşturdum.
Ben denedim sorun olmaması lazım.

evet sn baran haklısınız formülle oldu elinize sağlık hayırlı sahurlar, yakın olsanız sizi sahura davet ederdim.
çok teşekkür ederim.

 

[Ömer BARAN]

Eyvallah, Allah kabul etsin.

Samsun'a selamlar.

Samsun deyince Mustafa Kemal ATATÜRK'ü saygı, özlem, rahmetle anmadan geçmek olmaz.
.

 

[torik52]

SN BARAN merhaba dünkü formül çalışıyor ancak hücrede sıfır değeri değişinceye kadar bir tana kopyalamıyor bazen 10 tanyi buluyor bunu nasıl çözebiliriz saygılar