belirli satırları keserek başka bir sayfaya eklemek...

[tiryaki_44]

Merhaba Arkadaşlar,

excel formumdaki "Aktif Kayıtlar" adlı sayfadaki durum sütununda "Tamamlandı" şeklinde olan satırları keserek "Pasif Kayıtlar" adlı sayfaya "eklemesini" sağlayacak bir makro gerekiyor. ilgili excel tablosu ektedir.

yardımınız için şimdiden teşekkürler....

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub Tamamlanı_Aktar()
 
Dim Sp As Worksheet, sona As Long, sonp As Long
Application.ScreenUpdating = False
On Error Resume Next
If [B13] = "" Then Exit Sub
Set Sp = Sheets("Pasif_Kayıtlar")
 
sona = Cells(Rows.Count, "B").End(xlUp).Row
sonp = Sp.Cells(Rows.Count, "B").End(xlUp).Row + 1
 
[N12].AutoFilter Field:=13, Criteria1:="Tamamlandı"
 
With Range("B13:N" & sona).SpecialCells(xlCellTypeVisible)
    .Copy Sp.Range("B" & sonp)
    .EntireRow.Delete
End With
 
[N12].AutoFilter: [B12].AutoFilter
Application.ScreenUpdating = False
End Sub

.

 

[tiryaki_44]

çok teşekkür ederim....

sayenizde işlerim hızlı ve düzenli bir şekilde yapabiliyorum...

elinize sağlık...

 

[tiryaki_44]

tabloda tüm kalemler devam ediyor seçiliyken komut çalıştırıldığında devam edenleri alıyor.

ayrıca tablo boş iken komutlar uygulandığında hata veriyor.

ilgilenebilir misin?

 

[Ömer]

tabloda tüm kalemler devam ediyor seçiliyken komut çalıştırıldığında devam edenleri alıyor.

ayrıca tablo boş iken komutlar uygulandığında hata veriyor.

ilgilenebilir misin?

Tablo boşken gelen hatayı düzelttim. #2 nolu mesajdan tekrar deneyiniz.

Devam ediyor konusunda ise, şuan tekrar denedim. Bende bahsettiğiniz hatalı aktarım gerçekleşmedi.

.

 

[tiryaki_44]

merhaba,

bendeki orjinal dosyayı ekledim.

şuan tabloda hepsi devam ediyor şeklinde. komut çalıştığında hepsini alıyor.

ayrıca tablodaki değerleri sildikten sonra komut çalıştığında başlıkları siliyor.

yardımınız için teşekkürler...

 

[Ömer]

#2 nolu mesajı değiştirim, tekrar deneyiniz.

.