Filtrelenmiş Verilerle Çalışma

[badmad34]

Merhaba arkadaşlar,

Bir excel çalışma kitabında filtreleme uygulayıp, kodların sadece filtrelenmiş verileri dikkate almasını nasıl sağlayabiliriz? Sözgelimi,

Workbooks("deneme.xls").Sheets("1").Range("B2").AutoFilter Field:=2, Criteria1:=w

şeklinde filtrelenmesini sağladımız bir çalışma kitabında,

For i = 2 To Sheets("TCM").Cells(65536, "A").End(xlUp).Row

şeklinde bir döngü yaptığımda, kodlar filtrelenmemiş olarak tüm verileri döngüye sokuyor ama benim istediğim sadece filtrelenmiş verileri dikkate alması. Bunu nasıl sağlayabilirim?

 

[Korhan Ayhan]

Merhaba,

For döngü satırından sonra aşağıdaki sorguyu ekleyerek işlem yapabilirsiniz. Bu şekilde satır yüksekliği sıfırdan büyük olan yani görünen satırları döngüye almış olursunuz.

If Sheets("TCM").Cells(i, "A").RowHeight > 0 Then

 

[Levent Menteşoğlu]

Korhan beyin önerisine alternatif olarak döngüyü aşağıdaki gibide kurabilirsiniz.

Set s1=Sheets("TCM")
For Each hucre In s1.Range("a2:a" & s1.[a65536].End(3).Row).SpecialCells(xlCellTypeVisible)
.
.
.
Next

 

[badmad34]

Teşekkürler yardımlarınız için. Peki bu noktada başka bir soru daha sormam gerekecek:

Ekteki dosyanın "Tasks" sayfasının "TASKS" sütunundaki verileri, userform'a girilecek kriterlere göre filtrelenmiş "TCM" sayfasının "TASK NO" sütunundaki veriler içinde aratıp; karşılık bulamadığı verileri "TASKS" sütunundaki "WP (MISSING INFO)" sütununa alt alta kaydetsin istiyorum.

Karşılık bulduğu verilerin bulunduğu satırları "WP" sayfasına kaydediyor şu andaki kodlar ama karşılık bulamadığı verilerle ilgili yardıma ihtiyacım var. Çözemedim bir türlü. Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Merhaba,

Dosyanız ekte yok!

 

[Orion1]

Bir alternatifte benden olsun.
C sütunu siliniyor.Sonra a sütununda 3 rakamı sorgulanıyor(autofilter vasıtası ile
sonra C sütununa yapıştırılıyor.

Set s1 = Sheets("TCM")
'burada kriter olarak 3 sayısı sorgulanıyor.
Application.ScreenUpdating = False
s1.Range("A1").AutoFilter
s1.Range("C:C").Clear
s1.Range("a1:a" & s1.[a65536].End(3).Row).AutoFilter field:=1, Criteria1:=3
Range("A1").CurrentRegion.Copy s1.Range("C1")
s1.Range("A1").AutoFilter
Application.ScreenUpdating = True

 

[badmad34]

Merhaba,

Dosyanız ekte yok!

Merhaba,

Kusura bakmayın, eklemeyi atlamışım. Buradan ulaşabilirsiniz.

 

[Orion1]

benim 6 numaralı mesajdaki kodlarımı gördünüzmü?

 

[badmad34]

benim 6 numaralı mesajdaki kodlarımı gördünüzmü?

Gördüm ama sanırım benim uyarlayamamdan kaynaklı istediğim sonucu alamadım. Siz benim eklediğim dosyaya bakabilir misiniz fırsatınız varsa?