Boş ssatırların gizli olduğu tablonunun Aktarma sorunu

[mcetinkaya65]

Hazırladığım proğramda yine bir noktada takıldım,excelde şansımı çok mu zorluyorum bilmiyorum.
Aşağıdaki makrolarla boş satırları gizleyip gösteriyorum.

Sub Gizle()
For Each t In Range("E3:E254").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

Sub Düğme3_Tıklat()
For Each t In Range("E3:E254, B11:B17").Cells
If t.Value <> "0" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

Ve yine aşağıdaki makrolarlada aktarma yapıyorum

Sub Dikdörtgen1_Tıklat()
şifre = InputBox("Şifre Girin")
If şifre <> 1 Then
MsgBox "Hatalı şifre"
Exit Sub
End If
Range("a1:k262").Copy Sheets("Ödeme").Range("A65536").End(3)(10, 1)
Sheets("Boş Liste").Select
End Sub

Sub Dikdörtgen1_Tıklat()
şifre = InputBox("Şifre Girin")
If şifre <> 1 Then
MsgBox "Hatalı şifre"
Exit Sub
End If
Range("a3:k254").Copy Sheets("TOPLU ARŞİV").Range("A65536").End(3)(2, 1)
Sheets("Boş Liste").Select
End Sub

Fakat yukardaki gizle makrosuyla gizlenmiş tabloda aktar dediğimizde gizli olan boş satırları açıp öylece aktarıyor.Manuel olarak boş satırları gizlerde aktar dersem problem yok.Makroyla gizlenen satırlar aktar butonuna tıklayınca neden açılıyor.
Saygılarımla..

 

[Erdem Akdemir]

Merhaba,

Fikir vermesi açısından gizli satırların seçilmesini istemiyorsanız, görünür hücreleri kopyalamanız gerekir. Tag'daki kodu inceleyin.

    Range("A5:A7").SpecialCells(xlCellTypeVisible).Copy Range("A14")