Soru Butonla formül yazdır butonla kaldır.

[yasarcan]

Örnek çalışmada sorunumu anlattım
yardımcı olacak arkadaşlara şimdiden teşekkürler

 

[Korhan Ayhan]

Siz 13.000 satırlık veriden diğer sayfaya neyi almak istiyorsanız onu belirtin. Makro ile o veri Sayfa2'ye aktarılsın.

Formülle uğraşmayın.

 

[yasarcan]

Üzerinde çalışıyorum bakalım yapabilecekmiyim.

 

[yasarcan]

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Sheets("rapor").Range("I:I").ClearContents
Set sh = Sheets("liste")
If sh.Range("F2:F100").SpecialCells(xlCellTypeVisible).Count > 0 Then
    sat = Sheets("rapor").Cells(Rows.Count, "I").End(xlUp).Row
    sh.Range("F2:F100").SpecialCells(xlCellTypeVisible).Copy Sheets("rapor").Range("I" & sat + 10)
End If
End Sub

Arkadaşlar

liste sayfasında ve rapor sayfasında gizlenmiş satırlar var
kod ile liste sayfasından gizli satırları kopyalamadan rapor sayfasına yapıştırılmasını sağlıyorum ancak
F SÜTUNUDA ilk kopyaladığı hücreyi I SÜTUNUNDA 1. VE 2. HÜCREYE
İKİNCİ hücreyi ı sütununda 3.4.
ücüncüyü ı da 5.6. gibi alt alta dizi oluşacak şekilde nasıl kopyalarım?

birde listede nasıl gizli olan satırları atlıyorsam rapor kısmında da gili olanlarını atlamam gerekiyor