satır dolu ise tüm satırı kaydetme

[irfem4]

örnek dosyada bulunan tabloda c sütununda dolu olan hücrelerin tüm satır olarak bir buton ile aynı sayfaya başka bir alana kaydetmek istiyorum. tablo her ay düzenleniyor, yıllık ve 6 aylık icmal alınıyor. orijinal dosya büyük olduğu için örnek dosya yükledim. şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A6:O" & Say).AutoFilter
    Range("$A$6:$O$" & Say).AutoFilter Field:=3, Criteria1:="<>"
    Range("B8:O42").Copy
    Range("B60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ActiveSheet.ShowAllData
End Sub

 

[irfem4]

Merhaba.

Sub Test()
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A6:O" & Say).AutoFilter
    Range("$A$6:$O$" & Say).AutoFilter Field:=3, Criteria1:="<>"
    Range("B8:O42").Copy
    Range("B60").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    ActiveSheet.ShowAllData
End Sub

emeğinize sağlık. diğer aylar için veri girişi yapıldığında alt alta kaydetmemizde mumkün müdür. örnekdeki gibi

 

[Muzaffer Ali]

Farklı bir sayfaya aktarılması daha uygun olur.

 

[irfem4]

Farklı bir sayfaya aktarılması daha uygun olur.

teşekkür ederim. emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.