Çözüldü Yeni veri eklendiğinde yeni listeye eklenmesi

[tanertujna2687]

Merhaba;

Cümleten hayırlı ramazanlar diliyorum Sayfa1 a2:a14 hücre aralığında mevcutta kullandığım banka listem var. Sayfa2 deki ac2:ac90000 hücre aralığına yeni banka eklendiğinde a15 sütunundan itibaren altına eklenmesi gerekiyor. Filtre fonksiyonu ile yapabilirim gibi geliyor ancak koşul olarak a2:a14 hücre aralığındaki bankaları haricindekileri getir demeyi nasıl yapacağımı bilmiyorum kıymetli desteklerinizi rica ederim.

 

[1Al2Ver]

Merhaba,

Sayfa1 "A2" hücresine ;

=BENZERSİZ(FİLTRE(Sayfa2!AC2:AC90000;(Sayfa2!AC2:AC90000<>"")))

deneyiniz, Sayfa2 "AC2:AC9000" arasına eklenen farklı banka isimlerini Sayfa1'de "A" sütununa ekler, boşlukları da yok sayar.

Kolay gelsin.

Örnek Dosya İçin ;

İndir Benzersiz Filtre xlsx

Dosyayı indir Benzersiz Filtre xlsx

dosya.co

 

[tanertujna2687]

Merhaba,

Sayfa1 "A2" hücresine ;

=BENZERSİZ(FİLTRE(Sayfa2!AC2:AC90000;(Sayfa2!AC2:AC90000<>"")))

deneyiniz, Sayfa2 "AC2:AC9000" arasına eklenen farklı banka isimlerini Sayfa1'de "A" sütununa ekler, boşlukları da yok sayar.

Kolay gelsin.

Örnek Dosya İçin ;

İndir Benzersiz Filtre xlsx

Dosyayı indir Benzersiz Filtre xlsx

dosya.co

Cevabınız için öncelikle teşekkür ederim. Sorumda da belirttiğim gibi Sayfa1 a2:a14 arasındaki liste belirli bir düzende sıralanmış durumda olduğu için Sayfa1 a2:a14 aralığındaki bankalar haricindeki banka ad ve/veya adlarını a15 hücresi itibariyle yazması gerekiyor.

 

[tanertujna2687]

Yardımcı olabilecek kıymetli üstatların desteklerini bekliyorum.

 

[dEdE]

Merhaba,
VBA ile yapılabilir.
Aşağıdaki kodu bir Modul'e yapıştırarak dener misiniz?

Sub Test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
ss = s2.Cells(Rows.Count, "AC").End(3).Row
myArr = s2.Range("AC2:AC" & ss)

For i = 1 To ss - 1
Aranan = myArr(i, 1)
Set c = s1.Range("A:A").Find(Aranan, , xlValues)
    If c Is Nothing Then
        ss1 = s1.Cells(Rows.Count, "A").End(3).Row + 1
        s1.Cells(ss1, 1) = myArr(i, 1)
    End If
Next i
End Sub

 

[tanertujna2687]

çok teşekkür ederim alakanı için kod çalıştı.

 

[tanertujna2687]

Merhaba,
VBA ile yapılabilir.
Aşağıdaki kodu bir Modul'e yapıştırarak dener misiniz?

Sub Test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
ss = s2.Cells(Rows.Count, "AC").End(3).Row
myArr = s2.Range("AC2:AC" & ss)

For i = 1 To ss - 1
Aranan = myArr(i, 1)
Set c = s1.Range("A:A").Find(Aranan, , xlValues)
    If c Is Nothing Then
        ss1 = s1.Cells(Rows.Count, "A").End(3).Row + 1
        s1.Cells(ss1, 1) = myArr(i, 1)
    End If
Next i
End Sub

çok teşekkür ederim alakanız ve desteğiniz için kod çalıştı.