makroda düzeltme;

[abbasonline]

Sub gelismis_filtre()
Sheets("Sayfa4").Range("A:A").ClearContents
[e6] = "KAPI DUVARI"
Range("E7:E35000").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("K7"), Unique:=True
Range("K7:K35000").Copy Sheets("Sayfa4").Range("A1")

Range("K7:K35000").ClearContents
Application.CutCopyMode = False
End Sub


(Makronun bulunduğu sayfanın ismi 'CAMLI EV' filitre uygulayıp E7 ile E35000 arasındaki benzersiz verileri 'Sayfa4' e 'A1' den itibaren yapıştırıyor, ancak makronun bulunduğu sayfada 'K7 ile K35000' arası verileri siliyor silmemesi için ayrıca makronun bulunduğu sayfada hehangi bir işlem yapmaması için sadece benzersiz verileri 'Sayfa4' e 'A1' den itibaren yazması için makroda nasıl bir düzenleme yapmamız gerekli.)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub GELİŞMİŞ_FİLTRE()
    Sheets("Sayfa4").Range("A:A").ClearContents
    Sheets("CAMLI EV").Range("E6") = "KAPI DUVARI"
    Sheets("CAMLI EV").Range("E6:E35000").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets("Sayfa4").Range("A1"), Unique:=True
End Sub

 

[abbasonline]

Korhan bey teşekkürler, düzeldi.

 

[abbasonline]

Korhan bey, sizden bir ricam var !

Bu Makro olayını nasıl baştan itibaren öğrenebiliriz.
Çocuklara öğretmek istiyorum, onlarda merakla izliyorlar, (lise ve orta okul)

Öğrenmenin sınırı yok.

 

[Korhan Ayhan]

Selamlar,

Forumumuzun kitap ve video bölümü bulunmaktadır. Bu kaynakları kullanarak öğrenebilirsiniz. Ayrıca netten başka kaynaklarada ulaşabilirsiniz.