makro ile silme ve yedekleme

[MİKAYİL34]

merhaba arkadaşlar,

Bir dosya hazırlamam lazım bunun için ekteki dosyada pasif gözükenlerin genel listeden silinmesi ve arşiv sekmesine kayıt edilmesi lazım yardımcı olursanız sevinirim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Option Compare Text
Sub Aktar()
    Dim i       As Long, _
        j       As Long, _
        Adet    As Integer, _
        Liste   As Worksheet, _
        Arşiv   As Worksheet
    
    Set Liste = Sheets("genel liste")
    Set Arşiv = Sheets("arşiv")
    Liste.Select
    
    j = Arşiv.Cells(Rows.Count, "B").End(3).Row 'Arşiv sayfasının son dolu satırı
    
    For i = Liste.Cells(Rows.Count, "B").End(3).Row To 1 Step -1
        If Cells(i, "K") Like "Pasif*" Then
            j = j + 1
            With Range("B" & i & ":K" & i)
                .Copy Arşiv.Range("B" & j)
                .Delete xlUp
            End With
        End If
    Next i
End Sub

 

[a_self_lion]

Sayın Necdet bey deneme şansım oldu da Pasif deki p harfi kücük yazılınca çalıştı aksi taktirde kopyalamadı. Arkadaşımızın buna dikkat etmesini rica ederim.

 

[MİKAYİL34]

merhabalar Çok teşekkürler "necedet bey" ve " a_self_lion " üç sorum olacak umarım yüzsüzlük etmiyorumdur,
1.arşiv sekmesini adını değiştirmek istesek hangilerini değiştirmemiz lazım?
2.genel listeden verileri silmemesi için bunu silmemiz yeterlimi?(.Delete xlUp)
3.k sutununda aktif olanlar ve lokasyon kısmına göre sayfa açmak istesem ne yapmam lazım.

 

[Korhan Ayhan]

Selamlar,

1. sorunuz için sadece alttaki kodu değiştirmeniz gerekir.

Set Arşiv = Sheets("[COLOR=red]arşiv[/COLOR]")

2. sorunuz için .Delete xlUp satırını silmeniz gerekiyor.

3. sorunuz için forumda sayfa+eklemek ya da sayfalara+aktarmak ifadeleri ile arama yapınız. Bu konuda birçok örnek forumda var.

 

[MİKAYİL34]

Selamlar,

1. sorunuz için sadece alttaki kodu değiştirmeniz gerekir.

Set Arşiv = Sheets("[COLOR=red]arşiv[/COLOR]")

merhaba onu denedim "genel "yaptığımda çalışmıyor ( arşiv1 yaptığımda çalışıyor anlamadım gitti.