Satır gizle ve kopyala

[AS3434]

İyi Günler

Aşağıdaki makro ile satır gizleme yapıyorum. Toplamda 50 satırım var ve gizleme sonucu ortalama 10~15 satırlık bir veri oluşuyor. Yapmak istediğim bu 10~15 satırlık veriyi C2 hücresindeki değer adıyla yeni bir sayfa açıp kopyalamak. Sayfayı açıyorum ama bir türlü veriyi istediğim gibi kopyalayamıyorum. 50 satırın tümünü kopyalıyor, yani gizlenmiş olan boş satırları da kopyalıyor. Benim istediğim gizlenmiş satırların kopyalanmaması.
Bu konuda yardımcı olursanız sevinirim.

Sub SatırGizle()
For Each i In [G2:G50].Cells
If i.Value = "" Then
i.EntireRow.Hidden = True
End If
Next i
[a1].Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Hangi veri aralığını kopyalamak istiyorsunuz ?

 

[AS3434]

A1:J50 aralığı

Bu arada aklıma başka bir fikir geldi.
Komple sayfayı kopyalayıp, kopyaladığım sayfada istemediğim satırları silmek. Herhalde bu daha kolay olacak gibi. Biraz da bunun üzerinde çalışayım.

Sn COST_CONTROL

İlginiz için teşekkür ederim.