Soru Filtreli sütunları sola kaydırma

[NADİR YILDIZ]

Merhaba
Filtreleme yapmadan AD sütununu AC ye ve AE sütununu AD ye aktarım yapıyorum
ancak mavi olanları filtreleme yaptığımda hata veriyor

 

[NADİR YILDIZ]

arkadaşlar bu konuda yardımcı olurmusunuz

 

[hamitcan]

Bir şey yaptım ama umarım işinizi görür.

Sub Filtrealnmis_Alani_Kopyala()
Set tbl = [ad9].CurrentRegion
    tbl.Offset(1, 3).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count - 6).Select
    For Each hcr In Selection.SpecialCells(xlCellTypeVisible).Cells
        
        hcr.Offset(0, -1) = hcr.Value
        hcr.ClearContents
    Next
End Sub

 

[NADİR YILDIZ]

hamitcan bey
desteğiniz için öncelikle teşekkür ederim

verdiğiniz kodlar filtreleme yapıldığında aktarım yapıyor
ancak şöyle bir sorun çıktı mavi sütunun solundaki alanlar dolu ise sola kaydırırken mavi sütundakileri siliyor

 

[hamitcan]

Böyle dener misiniz ?

Private Sub CommandButton1_Click()
    For Each hcr In Selection.Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells
        Cells(hcr.Row, "ac") = Cells(hcr.Row, "ad")
    Next
    For Each hcr In Selection.Offset(1, 0).SpecialCells(xlCellTypeVisible).Cells
        Cells(hcr.Row, "ad") = Cells(hcr.Row, "ae")
    Next
    Set tbl = [ae9].CurrentRegion
    tbl.Offset(1, 8).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count - 11).ClearContents
    MsgBox "Bitti"
End Sub