Makro hücrede ki değere göre çalışsın yada çalışmasın.

[simetri.]

Merhabalar,
İyi haftasonları arkadaşlar.

Başlıkta da belirttiğim gibi
Mevcut makronun çalışmasını koşula bağlamak istedim
lakin yapamadım. Ekte ki dosya için yardım ederseniz
sevinirim. Teşekkür ederim.

 

[Murat OSMA]

İnceleyiniz;

http://www.excel.web.tr/f171/if-then-else-karar-yapysy-t100388.html

 

[Orion1]

alttaki krımızı satırı ekleyin.

Sub Makro2()
[B][COLOR="Red"]If UCase(Range("B1").Value) <> "ZORUNLU" Then Exit Sub[/COLOR][/B]
Range("D3").Select
Selection.Copy
Range("F3").PasteSpecial (xlPasteValues)
End Sub

 

[simetri.]

Alakanız için çok teşekkür ederim sayın Orion1 hocam.

Kod herhangi bir tepki vermiyor. Oysaki
B1 hücresinde ki değer "zorunlu" ise kodun kendiliğinden
devreye girmesi gerekiyor idi.
Kodu dosya ya siz bağlayabilir misiniz acaba?

 

[Murat OSMA]

Tepki vermiyor, çünkü B1 hücresinde zorunlu yazmıyor.

 

[simetri.]

Yok Murat hocam, denedim onuda.
Sanırım sorun başka.

 

[Orion1]

dosyanızı 3 nolu mesaja ekledim.

 

[Murat OSMA]

Bu konu da uzar gider böyle.

 

[simetri.]

Evet konu uzayacak gibi

Aşağıda ki açıklamaya B1 deki değer "zorunlu" ise kod kendiliğinden
çalışsın demem gerekiyordu sanırım.

Bu makro B1 deki değer "zorunlu" ise çalışsın
aksi durumda; hücre boş iken yada başka değer var iken
çalışmasın istiyorum.

Detaylandırayım o halde inşallah daha anlaşılır olur.

--- B1 deki değer formül sonucu (C3 ve D3 hücrelerinin değerlerine göre) oluşuyor.
--- B1 hücresinde ki değer eğer "zorunlu" ise mevcut kod otomatik olarak devreye girip çalışacak.
--- B1 hücresi boşsa yada "zorunlu" harici bir değer var ise kod çalışmayacak.

 

[Murat OSMA]

Evren Bey yardımcı olacaktır.