veri süzme

[sinemomec]

örneğin a hücresine veriler geliyor aynı sayfada başka bir hücreye mesela c hücresine bu gelen verilerden tekrarlayan verileri silip sadece farklı olanları bir kere göstermesini sağlayabilir miyim? Teşekkür ederim şimdiden

 

[Greenblacksea53]

Sub Benzersiz()
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy Range("C1")
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

İşinizi görecektir

 

[sinemomec]

bunun otomatik olarak çalışmasını istiyorum yani komutla değil. teşekkür ederim. fonksiyon gibi

 

[ÖmerBey]

Merhaba,
İlgili sayfanın kod bölümüne uygulayınız...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:A"), Target) Is Nothing Then Range("A:A").AdvancedFilter 2, , Range("C1"), 1
End Sub

 

[sinemomec]

teşekkür ederim

 

[sinemomec]

yalnız a satırına başka sayfadan veri alıyorum o zaman hata veriyor.
=GELENEVRAK!G1 gibi oldumu hata veriyor.

 

[Korhan Ayhan]

Linklerde formülle çözümler var. İnceleyiniz.

Tekrarsız liste

Merhaba arkadaşlar =İNDİS($A$5:$A$20;KAÇINCI(0;EĞERSAY($B$4:B4;$A$5:$A$20);0)) bu formül ile A sütunundaki verileri B de yeni liste yapıyorum. Bu yeni liste oluşturulur iken olmaması gereken 0 (sıfır) sayısıda listeye dahil oluyor 2. olarak veri oluşturulamayan hücrelerde YOK hatası alıyorum. bu...

www.excel.web.tr

Formülü birleştirme hk.

Selamlar Ekteki dosyada firma isimlerini yardımcı sütun kullanarak benzersiz sıralayabiliyorum. Ancak yardımcı sütun kullanmadan bu iki formülü birleştirmek istiyorum Nasıl yapabilirim?

www.excel.web.tr

 

[sinemomec]

Sub Benzersiz()
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy Range("C1")
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

İşinizi görecektir

ASLINDA ÇOK GÜZEL ÇALIŞIYOR ANCAK =GELENEVRAK!A1 VERİ ALINCA HATA VERİYOR NEDEN OLABİLİR.

 

[Korhan Ayhan]

Eğer sayfanızda başlık kullanıyorsanız kod içindeki bold bölüme XlYes yazmalısınız.

Ayrıca verileri almak için kullandığınız formülü de aşağıdaki gibi değiştirmelisiniz.

=EĞER(GELENEVRAK!G1="";"";GELENEVRAK!G1)

Option Explicit

Sub Benzersiz()
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
    Range("C1").PasteSpecial xlPasteValues
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

 

[YUSUF44]

ASLINDA ÇOK GÜZEL ÇALIŞIYOR ANCAK =GELENEVRAK!A1 VERİ ALINCA HATA VERİYOR NEDEN OLABİLİR.

Kod kopyala/yapıştır yapıyor, formül olduğunda formülü kopyalıyor, malum formülle kopyalandığında eğer $ işaretleri kullanılmamışsa adresleri de kaydırıyor. Bu nedenle istediğiniz sonucu alamıyorsunuz. Kopyala yapıştır yerine kopyala/özel yapıştır/değerleri yöntemini deneyebilirsiniz.

 

[sinemomec]

teşekkür ederim.

 

[sinemomec]

Option Explicit

Sub Benzersiz()
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
Range("C1").PasteSpecial xlPasteValues
Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

ancak otomatik olarak getirmesini istiyorum.

 

[Korhan Ayhan]

Bu işlemi yapmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Sayfayı açtığınızda işlem otomatik olacaktır.

Option Explicit

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
    Range("C1").PasteSpecial xlPasteValues
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

 

[sinemomec]

bunu sayfayı açmadan nasıl çalıştırabilirm

 

[Korhan Ayhan]

Kodları butona atayarak kullanabilirsiniz. Sadece kodun sağlıklı çalışması gereken sayfa adını koda adapte etmek gerekecektir.

 

[sinemomec]

şimdi benim sizin anlattığınızdan anladığım userformda buton yap oradan komut ver ve çalışsın ama ben userformda çalışıyorum bir excel sayfasına veriler gidiyor ve tekrar combobax a mükerrer olmayan veri veriyor ancak belirtiğim gibi excel sayfasını açmaz isem yeni verileri vermiyor ve ben bunu düzeltmek isityorum.

 

[Korhan Ayhan]

Ben açtığınız başlığı incelediğimde USERFORM ifadesi göremiyorum.

Bir başlık açıyorsunuz ve en önemli detayı en son mesajınızda yazıyorsunuz. Bu şekilde sizi nasıl doğru yönlendirmemizi bekliyorsunuz anlamıyorum.

Forumda combobox+mükerrer ifadeleri ile arama yaparsanız örnek konulara erişebilirsiniz.

 

[sinemomec]

teşekkür ederim vba çok bilgim yok sinirlenmenizde gerek yok

 

[Korhan Ayhan]

Sinirlenmiyorum..

Sadece sizleri doğru yönlendirebilmek adına çabalıyorum.

 

[sinemomec]

teşekkür ederim gerçekten çok faydalandım buradaki arkadaşlardan herkese çok teşekkür ederim.