Çözüldü Kod Yardımı

[cavanoos]

Merhaba;

'Bir satır yukarı çıktık ve satırı seçtik ve kopyaladık
ActiveCell.Offset(0, 0).Select
ActiveCell(0).EntireRow.Select
Selection.Copy
'Bir satır aşağıya indik ve yapıştırdık.
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Yukarıdaki kod ile A dan Z sütununa kadar düşünün ve arada gizli sütunlarda var, kopyala yapıştır yapıyor. Gayet güzel çalışıyor.
Fakat D sütununda tarih filtresini çalıştırdığımda, gizli sütunlardaki verileri kopyalamıyor, sadece görünenleri kopyalıyor ve görünmeyen hücrelerde dahil yapıştırıyor.

Gizli sütunlardaki verileri de kopyalamak ve yapıştırmak için kod nasıl yazılmalı ?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapın.
5. satırı 7. satıra aktarır.

Sub test()
    Rows("7:7").Value = Rows("5:5").Value
End Sub

 

[muhasebeciyiz]

Sub KopyalaYapistir()
Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Sheets("Sayfa1")

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

ActiveCell.Offset(-1, 0).EntireRow.Select
Selection.Copy

ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).EntireRow.PasteSpecial xlPasteAll

ws.Rows("2:" & lastRow).SpecialCells(xlCellTypeVisible).Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

SpecialCells(xlCellTypeVisible) ifadesi, sadece görünür hücreleri seçer. Bu sayede gizli sütunlardaki verileri atlamadan kopyalayabilirsiniz.

 

[cavanoos]

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

Kullandığım kodun sonuna kısa bir kod girilse düzelir gibi gelmişti bana meğer öyle değilmiş.