Aynı kodu birçok tabloya ayrı ayrı uygulama

[DrsnDrsn]

Selamlar, aşağıda ki kodu aynı sayfada ayrı ayrı tablolara uygulamak istiyorum. Çalıştırdığımda hepsi aynı anda çalışması lazım. Yardımlarınızı bekliyorum

Teşekkürler..

Sub Listele() Dim Veri, Liste(), i As Integer, Say As Integer, k As Integer Veri = Range("A1").CurrentRegion.Value For i = 2 To UBound(Veri, 2) If Veri(UBound(Veri), i) <= WorksheetFunction.Small(Range(Cells(UBound(Veri), 2), Cells(UBound(Veri), UBound(Veri, 2))), 3) Then If Veri(3, i) / Veri(2, i) = 1 Or Veri(3, i) / Veri(2, i) = 2 Then Say = Say + 1 ReDim Preserve Liste(1 To UBound(Veri), 1 To Say) For k = 1 To UBound(Veri) Liste(k, Say) = Veri(k, i) Next k End If End If Next i 'Ben sayfa2 A1 hücresinden itibaren listeledim, siz kendinize göre uyarlarsınız Worksheets("Sayfa2").Cells.Clear If Say > 0 Then Worksheets("Sayfa2").Range("A1").Resize(UBound(Liste), Say) = Liste Erase Veri: Erase Liste: Say = Empty: i = Empty: k = Empty End Sub

 

[ÖmerFaruk]

Örnek dosyanızı da paylaşma şansınız var mı?

 

[DrsnDrsn]

Örnek dosyanızı da paylaşma şansınız var mı?

Birinci makroya uyguladığım kodu düğme 1 ile çalıştırıyorum. Benim istediğim birden fazla tablolara aynı anda uygulamak. Tek düğmeye bastığımda bütün hepsine uygulasın istiyorum.

 

[ÖmerFaruk]

Bu birden fazla olan tablolarınızı belli bir düzende mi koyacaksanız sayfaya?

Tavsiye edeceğim seçenekler
1. Tablolarınız hep başlık dahil 25 satır ve 10 sütunsa ardından gelecek tablo ile arasında belli bir sayıda boşluk bırakabilirsiniz.
Mesela ilk tablo A1-J25, ikincisi A31-J55, üçüncüsü A61-J85 gibi devam edebilir.
2. Tabloları birbirinden ayıracak bir kriter belirlemesiniz. Mesela hepsinde B sütununda ilk satırda Plan-1 yazıyor ya da hespinde 2.satır başlığı "A"
3. Ya da bunlardan başka ayır edici bir kriter
4. Bence en doğrusu tablolarınızı Ekle menüsünden Tablo olarak ekleyip her birine Tablo1-Tablo2 vb. sırasıyla isim vermek.

Bununla ilgili karar verebilirseniz kodları ona göre yazalım.

 

[DrsnDrsn]

Bu birden fazla olan tablolarınızı belli bir düzende mi koyacaksanız sayfaya?

Tavsiye edeceğim seçenekler
1. Tablolarınız hep başlık dahil 25 satır ve 10 sütunsa ardından gelecek tablo ile arasında belli bir sayıda boşluk bırakabilirsiniz.
Mesela ilk tablo A1-J25, ikincisi A31-J55, üçüncüsü A61-J85 gibi devam edebilir.
2. Tabloları birbirinden ayıracak bir kriter belirlemesiniz. Mesela hepsinde B sütununda ilk satırda Plan-1 yazıyor ya da hespinde 2.satır başlığı "A"
3. Ya da bunlardan başka ayır edici bir kriter
4. Bence en doğrusu tablolarınızı Ekle menüsünden Tablo olarak ekleyip her birine Tablo1-Tablo2 vb. sırasıyla isim vermek.

Bununla ilgili karar verebilirseniz kodları ona göre yazalım.

1. Satır sayıları eşit, sütun sayıları farklılık göstermektedir. (Bazı durumlarda boş tabloda olabilir.)

2. Satır adları bütün tablolarda A,B,C... şeklinde. Sütun adları ise Plan-1, Plan-2.... diye devam etmektedir.

 

[ÖmerFaruk]

Sorduklarımı bir kez daha okusanız ve tabloları birbirinden ayırabilmek - satır ve sütun sayılarını bilebilmem (kodlar bilecek ben değil) için kriter verseniz işler daha kolaylaşacak.

Bence doğru çözüm 4 nolu maddedir.