süzülmüş listeye veri yapıştırma

[ozgurcuce]

süzülmüş bir listede sadece görünen hücrelere, başka bir yerden kopyalanmış verileri yapıştırmak istiyorum. ne yaparsam yapayım süzme sonucunda gizlenen hücrelere de sıradan yapıştırıyor.

daha iyi anlaşılması açısından örnek bir dosya ekliyorum. Yardımlarınız için şimdiden teşekkürler.

 

[omerceri]

Dosyana baktım "diğer" sütununu süzgeçe dahil etmemişsin bir tane "y" kopyalayıp süzülmemiş satırları seç ve yapıştır.

 

[hamitcan]

Aşağıdaki kodu deneyin

Sub SEC()
For Each hucre In [a3:a12]
If Rows(hucre.Row).Hidden = False Then
k = k + 1
Cells(hucre.Row, 4) = Cells(k + 16, 5)
End If
Next
End Sub

 

[ozgurcuce]

tesekkürler

hamitcan çok teşekkür ederim. işe yaradı. sadece aralık kısmını "selection" olarak değiştirdim. daha kullanışlı oldu.

teşekkür, teşekkür, teşekkür.