Şarta bağlı 2 makro çalıştırma

[ockucukay]

Arkadaşlar forumu araştırdım ama daha önce böyle birşey verilmemiş sanırım.

Örneğin M3 hücre değeri N2'ye eşit olursa aa ve bb makrosu çalışsın
M3 hücre değeri N3'e eşit olursa aa ve cc makrosu çalışsın gibi bir kodu nasıl yazabiliriz?

 

[Ali]

........................
If Range("M3") = Range("N2") Then
Call aa
Call bb
End If
If Range("M3") = Range("N3") Then
Call aa
Call cc
End If
......................

ilgili kısmı kodlarınıza ilave etmeniz gerekir.

 

[ockucukay]

Sayın fructose

Yardımlarınız için çok teşekkür ederim. Ama aşağıdaki makro tek başına çalıştığı halde başka bir makronun içinde sizin yazdığınız gibi Call komutuyla çalışmadı. Neden olabilir?

Sub Makrobb()
Application.ScreenUpdating = False
Sheets("Data").Select
Range("O2:O100").Select
Selection.ClearContents
Sheets("Liste").Select
Range("A2:A28").Select
Selection.Copy
Sheets("Data").Select
Range("O2").Select
ActiveSheet.Paste
Columns("A:J").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("O1:O28"), CopyToRange:=Range("R1"), Unique:=False
Columns("A:J").Select
Selection.ClearContents
Columns("R:AA").Select
Selection.Copy
Columns("A:A").Select
ActiveSheet.Paste
Columns("R:AA").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

 

[Ali]

Sn ockucukay yazdığınız bu kodların call komutunun çalışmasını engellemesi gibi bir durum olmaması lazım. Call Makrobb komutu bunu çağırması gerekir.
Eğer olmazsa örnek dosya üzerinden gidebiliriz.

 

[ockucukay]

Çalışmadı derken makro çalışıyor gibi görünüyor ama işlemi istenilen şekilde yapmıyor demek istedim. Ama ben dosyayı hazırlayıp öyle sorumu sorayım.

 

[ockucukay]

Dosya ekte. Yapılmak istenilen ise şu: Ana sayfada Parça no olarak 4,5,6 gibi rakamlar seçildiğinde parça adı kısmında bulunan bölüme ait tüm veriler data sayfasına çekilecek. Bu çekme işlemi sırasında yaptığım süzme makroları (Call ile çalıştırılanlar) istediğim gibi çalışmadı. Umarım bir çözüm bulabiliriz.

 

[ockucukay]

arkadaşlar, çözebilen var mı?