2 Makroyu Tek Düğme ile Çalıştırma

[bunyaming]

Merhaba,

Kayıt makro ile yaptığım dosyada iki kodun tek düğme ile aktif edilmesi konusunda yardımlarınızı rica ediyorum.
Dosya içine açıklamalarımı yazdım

teşekkürler

 

[yanginci34]

Bunu bir denermisiniz
Ekli dosyayı görüntüle RAPOR3deneme.xlsm

 

[Ömer BARAN]

Merhaba.

Makro2 (FİLTRELEME makrosu) 'nin End Sub satırından önce aşağıdakini yapıştırın.
(BENZERSİZ makrosundan alındı, sadece alanın hangi sayfada olduğu bilgisi eklendi)
.

[B][COLOR="Red"]    Sheets("Sayfa4").[/COLOR][/B]Range("C4:C175").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "Sayfa4!Criteria"), CopyToRange:=Range("Sayfa4!Extract"), Unique:=True

 

[bunyaming]

Ömer Bey

Çalıştı

Dolayısıyla formülle getirdiğimiz diğer dosyayı şimdi buradan çıkan sonuca göre formülleyip boş olsa bile tüm hesaplamaları yapacaktır.

ilgiliniz ve emeğiniz için çok teşekkür ederim

iyi geceler

 

[bunyaming]

Bunu bir denermisiniz
Ekli dosyayı görüntüle 193057

Teşekkür ederim yardımınız için

 

[yanginci34]

rica ederim iyi geceler

 

[bunyaming]

Tekrar Merhaba,

sorum belki busayfa ile alakalı olmayacak ama hazır siz uyumamışken sormak istedim.
Dolaylı işlemi ön taraftan filtrelediğimde boş kalan hücreler sıfır olarak kalıyor
Bu sıfır olanları boş hücreye çevirmek için eğer formülü denedim ama olmadı.
Sizce nasıl düzenlemeliyim sıfır olanların boş görünmesi için

teşekkürler

 

[bunyaming]

aşağıda ki şekilde formülü düzelterek sonuca ulaştım.

teşekkürler

=EĞER(DOLAYLI($A$1&"!"&ADRES(SATIR()+16;SÜTUN()))=0;"";DOLAYLI($A$1&"!"&ADRES(SATIR()+16;SÜTUN())))