Fomül değerini kontrol edip başka bir makro çalıştırma

[alp_platin]

Merhabalar,

Bana bir makro lazım ama benze bir örnek bulamadım.
Çokta anlamıyorum yardımcı olabilirseniz sevinirim.
Sayfa1 de A1,A2,A3 hücreleri formülle gelen sonuç değeri 1.

Buton çalışan bir makro istiyorum modüle eklenecek.
Bu makro önce gidecek A1 deki formülün neticesi 1 ise makro1' i çalıştıracak 1 değilse işlem yapmadan devam edip A2 hücresini kontrol edecek buradaki formül neticesi 1 ise makro2' yi çalıştırıracak 1 değilse çalıştırmadan devam edecek.

 

[Ömer BARAN]

Merhaba.

-- Bahsettiğiniz, A1,A2 ve A3 hücrelerinin bulunduğu sayfaya bir adet şekil/metin kutusu, düğme ekleyin,
-- ALT+F11 tuşlarına basarak VBA ekranını açın ve üstteki MENÜ'den INSERT>>MODULE yi seçin,
-- Sağdaki boş alana aşağıdaki kod blokunu yapıştırın,
-- Sayfaya eklediğiniz nesneye fareyle sağ tıklayıp MAKRO ATA yı seçin,
-- Açılan küçük ekranda aşağıdaki makronun adını (MAKRO_SEC) seçerek işlemi onaylayın.
Artık bu nesneye fareyle tıkladığınızda, belirtilen hücrelerin değerlerine göre istenilen işlem gerçekleşir.

Aşağıdaki kod'da ilgili satırlarda (MAKRO1, MAKRO2, MAKRO3 yazan yerlere)
asıl makroların isimlerini olması gereken konumlara yazın.
.

Sub MAKRO_SEC()
    If ActiveSheet.[A1] = 1 Then
        Call MAKRO1
    ElseIf ActiveSheet.[A2] = 1 Then
        Call MAKRO2
    ElseIf ActiveSheet.[A3] = 1 Then
        Call MAKRO3
    Else
        MsgBox "Hiçbir makro çalışmadı."
    End If
End Sub

 

[Orion1]

Merhabalar,

Bana bir makro lazım ama benze bir örnek bulamadım.
Çokta anlamıyorum yardımcı olabilirseniz sevinirim.
Sayfa1 de A1,A2,A3 hücreleri formülle gelen sonuç değeri 1.

Buton çalışan bir makro istiyorum modüle eklenecek.
Bu makro önce gidecek A1 deki formülün neticesi 1 ise makro1' i çalıştıracak 1 değilse işlem yapmadan devam edip A2 hücresini kontrol edecek buradaki formül neticesi 1 ise makro2' yi çalıştırıracak 1 değilse çalıştırmadan devam edecek.

Dosyanız linktedir.

DOSYAYI INDIR

Sub DoluÇerçeve1_Tıklat()
If Range("A1").Value = 1 Then
    Call makro1
ElseIf Range("B1").Value = 1 Then
    Call makro2
ElseIf Range("C1").Value = 1 Then
    Call makro3
End If
End Sub

 

[alp_platin]

Çok teşekkür ederim ilginiz için .

 

[Orion1]

3 nolu mesajda bende yanıt vermiştim.
Bende teşekkür isterim .

 

[alp_platin]

3 nolu mesajda bende yanıt vermiştim.
Bende teşekkür isterim .

Her iki makroda da ikinci makroyu çalıştıracak hücredeki değer 1 değilse makronun devamı çalışmıyor. Üçüncü makro çalışmıyor.

 

[Ömer BARAN]

Makronun çalışmadığı basit bir örnek belge yükleyin ki bakılabilsin değil mi?
Örnek belge olmadan ne dememiz bekleniyor merak ediyorum doğrusu.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[Orion1]

Her iki makroda da ikinci makroyu çalıştıracak hücredeki değer 1 değilse makronun devamı çalışmıyor. Üçüncü makro çalışmıyor.

3ncü makronun çalışması için c1 hücresinde 1 değerinin olması gerekiyor.

 

[alp_platin]

3ncü makronun çalışması için c1 hücresinde 1 değerinin olması gerekiyor.

Denedim hatta birinci makrodan sonrası çalışmadı sizin örnek dosyayı indirdim. Yani a1 de 1 yazıyorsa makro1 çalışıyor, ama b1 de yazsada yazmada devam etmiyor çalışmaya, Ama benim istediğim her makroyu çalıştırmadan sayfa1 seçip sayfa 1deki a1 =1 makro 1i çalıştır. Eşit değil ise içindeki formül hava veriyorsa yada boşsa onu atlayıp b1 i kontrol edip aynı şekilde 1 yazıyorsa makro2 yi çalıştırsın böyle devam etsin döngüye.

 

[Orion1]

Denedim hatta birinci makrodan sonrası çalışmadı sizin örnek dosyayı indirdim. Yani a1 de 1 yazıyorsa makro1 çalışıyor, ama b1 de yazsada yazmada devam etmiyor çalışmaya, Ama benim istediğim her makroyu çalıştırmadan sayfa1 seçip sayfa 1deki a1 =1 makro 1i çalıştır. Eşit değil ise içindeki formül hava veriyorsa yada boşsa onu atlayıp b1 i kontrol edip aynı şekilde 1 yazıyorsa makro2 yi çalıştırsın böyle devam etsin döngüye.

Böylemi istediniz.

If Range("A1").Value = 1 Then Call makro1
If Range("B1").Value = 1 Then Call makro2
If Range("C1").Value = 1 Then Call makro3

 

[alp_platin]

Teşekkürler

Böylemi istediniz.

If Range("A1").Value = 1 Then Call makro1
If Range("B1").Value = 1 Then Call makro2
If Range("C1").Value = 1 Then Call makro3

Teşekküeler.

 

[Orion1]

Teşekkürler

Teşekküeler.

Teşekkürü yanlış yazmışsınız.