Gizli satırları olan sütundaki görünen bilgiler

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Gizlenmiş satırları olan sütundaki yaklaşık 400.000 civarındaki bilgilerin görünenlerini seçip almak istiyorum. Bunu Add-In c# ta nasıl elde edebilirim.
Ornek81.xlsx te Sayfa1 de manuel olarak yapılmış örnek var, istenen Sayfa2 de.
Saygılarımla
http://www.dosya.tc/server9/j59a9y/Ornek81.rar.html

 

[esalci]

Dosyayı göremedim. Fikir olsun diye şöyle bir sözde program yazılabilir.

Aşağıda verilen koşulun VBA kodu da 'If Sheets("SAYFAİSMİ").Rows(i).Hidden = FALSE' şeklindedir.

for i = 1 to sheets(1).sonsatır ' i 1den sheet 1 son satıra gitsin

if (sheets(1).row(i).hidden = FALSE) then 'Eğer i numaralı satır gizli değilse
sheets(2).cells(j,1).value = sheets(1).cells(i,1).value
j=j+1 ' Burada ilk sayfanın satır numarası sürekli artarken ikinci sayfanın satır numarası sadece eğer hücre gizli değilse yazdırılıp artırılıyor.

end if

next i

 

[Tevfik_Kursun]

Merhaba Sayın Esalci Arkadaşım,
İlginize teşekkür ederim. Dosyayı görebilmeniz için bağlantı verdim.
Saygılarımla

 

[esalci]

Selam,

Verdiğin örnekte Sayfa1 de gizli satır yok. Ben yanında rakam olmayanları gizledim.

Aşağıdaki kodu Sayfa2 deki değerleri sildikten sonra çalıştırabilirsin.

Sub asd()
Dim sht As Worksheet
Dim LastRow, i, j As Long
Set sht = ThisWorkbook.Worksheets(1)
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
j = 1
For i = 5 To LastRow
    If Sheets(1).Rows(i).Hidden = False Then
        Sheets(2).Cells(j + 4, 1).Value = j
        Sheets(2).Cells(j + 4, 2).Value = Sheets(1).Cells(i, 2).Value
        j = j + 1
    End If
Next i
End Sub

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim.
Saygılarımla