Filtreye Satır Ekleme

Vba ile pratik bir sekilde filtrelenmis alanin sonuna satir eklenebilirmi dedik ve bir ornek hazirladik.. Kodlarimizi ve dosyamizi inceleyiniz..

VBA Kodlari

Sub AddRowToFilter()
On Error Resume Next
With ActiveSheet.AutoFilter.Range
.Rows(2).Copy
With .Offset(.Rows.Count).Rows(1)
.PasteSpecial xlPasteFormats
.PasteSpecial xlFormulas
End With
End With
Application.CutCopyMode = False
If Err <> 0 Then MsgBox "Bu Sayfada Filtre Bulunmamakta.."
On Error GoTo 0
End Sub


Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Filtreye Satır Ekleme” için 2 yorum

  1. Ben iki excel sayfasında, birinden diğerine satırları kopyalamak istiyorum (Macro yardımıyla). Fakat macroyu HER ÇALIŞTIRDIĞIM BİR ALT SATIRA eklesin istiyorum bunun çözümünü hiçbir sitede bulamadım. Umarım siz yardımcı olabilirsiniz. Çok teşekkür ediyorum.

  2. Serkan Bey Merhaba,

    Calismanizla ilgili bir ornek hazirlayiniz ve Soru Sormak icin Tiklayin! formundan bize ulastiriniz. Bu sekilde sorunuz unutulmayacaktir.

    Sitemizde bu sekilde bir ornek olmadigindan sorunuzla ilgili cozum en yakin zamanda siteye eklenicektir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


6 + 7 =