gizli satırları atlayarak kopyalama

[ergunfb]

Arkadaşlar selam, benim sorunum şöyle:
Yüklü bir datam var. buradaki bazı satırlar gizli. gizli olmayan satırları komple seçip yeni bir workbook'a kopyalamak istiyorum. ancak gizli olan hücreleri es geçsin, yani onların olduğu hücrelere hiçbir kopyalama işlemi yapmasın.
Ancak ne yaptıysam olmadı. Go to, special, select only visable cells yaptığım zaman, gizli satırları silerek eldeki verileri alt alta kopyalıyor. Ama gizli hücrelerin yerlerini silsin istemiyorum, sadece boş bıraksın.
Normal kopyalama da yapamıyorum, çünkü gizli satırlarda ihtiyacım olmayan ve yeni sheette görülmesini istemediğim veriler var.
Yardımcı olursanız çok sevinirim.
Şimdiden teşekkürler..

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Sayfa2.[a1:n1000] = Empty
Dim sat, s As Long
s = 1
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
        If Not Cells(sat, "a").EntireRow.Hidden = True Then
            Cells(sat, "a").EntireRow.Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

Kitap2 ye kopyalamak için

Sub test()
Sayfa2.[a1:n1000] = Empty
Dim sat, s As Long
s = 1
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
        If Not Cells(sat, "a").EntireRow.Hidden = True Then
            Cells(sat, "a").EntireRow.Copy [COLOR="Red"]Workbooks("Kitap2").Sheets("Sayfa1")[/COLOR].Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

 

[hamitcan]

Sub GizliOlmayanSatirlariAktar()
    Set wrk1 = Workbooks("Kitap1").Sheets(1)
    Set wrk2 = Workbooks("Kitap2").Sheets(1)
    For i = 1 To [a65536].End(3).Row
        If wrk1.Rows(i).Hidden = False Then wrk2.Rows(i) = wrk1.Rows(i).Value
    Next
End Sub

Not: İki dosyada açık olmalı.

 

[ergunfb]

Birinci kod "go to" ile aynı işlevi görüyor, o yüzden faydalı olmadı. Ancak hamitcan'ın gönderdiği kod tam olarak yapmak istediğimi gerçekleştirdi.
Yardımlarınız için teşekkür ederim arkadaşlar.

 

[lansor]

ctrl g yapınız çıkan ekrandan özel i seçiniz görünür hücreleri seçip tamam dedikten sonra kopyalayacağınız alanı seçip istediğiniz yere yapıştırın gizli satırlar kopyalanmayacaktır