Tekrarı ayıran işlem

[zodehala]

aşağıda bir kısmı görüldüğü gibi bir stunda veriler var dikat ederseniz bu veriler her hücrede tekrarlı olduğunu grebilirsiniz.( dah iyi görülmesi açısıdan renklendirdiriyorum )

tekrar layan verileri silmek istiyorum (1000 e yakın var bu şekilde )



AMERITRAC TR AMERITRAC TR
GRABBER AT2 GRABBER AT2
GRABBER TR GRABBER TR
XP2000 US4 XP2000 US4
GRABBER TR GRABBER TR
SUPER ALL GRIP-PROFIL A SUPER ALL GRIP-PROFIL A
SUPER ALL GRIP-PROFİL B SUPER ALL GRIP-PROFİL B
GRABBER TR GRABBER TR
4X4 A/T 4X4 A/T

 

[Kemal Demir]

Şayet Bu veriler iki ayrı kolonda ise(Kolon başlıkları varsa) Sıralayınız.Sonra Aşagıdaki Formu işinizi Görür.
(A ve B Kolonu İçin Örnek)

=if(a2=b2;"Tekrar";"Farklı")
=Eğer(a2=b2;"Tekrar";"Farklı")

Bu Formull size mukerrer kayıtları Gösterir.

Umarım Sorunuz'un Çözümü Olmuştur.

 

[Seyit Tiken]

Veri > Filtre Uygula > Gelişmiş Filtre > Liste Aralığını seçin. > "Başka Bir Yere Kopyala"yı aktif edin. > "Hedef" kutucuğuna uygun bir hücre adresi giriniz. > "Yalnız Benzersiz Kayıtlar"ı aktif edin. Tamam deyin.

 

[zodehala]

Veri > Filtre Uygula > Gelişmiş Filtre > Liste Aralığını seçin. > "Başka Bir Yere Kopyala"yı aktif edin. > "Hedef" kutucuğuna uygun bir hücre adresi giriniz. > "Yalnız Benzersiz Kayıtlar"ı aktif edin. Tamam deyin.

sanıyorum ben yapamadım. dosyayı ekte veriyorum

 

[omerceri]

İlk Satır için Bilgilerin;

A Sütununda: AMERITRAC TR AMERITRAC TR şeklindemi?
veya
A Sütununda: AMERITRAC TR
B Sütununda: AMERITRAC TR şeklindemi?
yada
A Sütununda: AMERITRAC
B Sütununda: TR
C Sütununda: AMERITRAC
D Sütununda: TR şeklindemi?

 

[omerceri]

Sn Seyit Diken'in önerisi, aynı sütunda yine değerleri aynı olan satırları ayıklamak için kullanılabilir. Ama sizin sorununuzda çözüm değil, benim düşünceme göre

 

[Levent Menteşoğlu]

Aşağıdaki kodu eklediğiniz dosyada çalıştırarak deneyin.
[vb:1:48cb039b5c]Sub tekrar()
For a = 1 To [a65536].End(3).Row
uz = (Len(Cells(a, "a")) - 1) / 2
sol = Left(Cells(a, "a"), uz)
sag = Right(Cells(a, "a"), uz)
If sol = sag Then Cells(a, "b") = sol
Next
End Sub
[/vb:1:48cb039b5c]

 

[zodehala]

İlk Satır için Bilgilerin;

A Sütununda: AMERITRAC TR AMERITRAC TR şeklindemi?
veya
A Sütununda: AMERITRAC TR
B Sütununda: AMERITRAC TR şeklindemi?
yada
A Sütununda: AMERITRAC
B Sütununda: TR
C Sütununda: AMERITRAC
D Sütununda: TR şeklindemi?

her hücrede bi cümle var ve o cümle tekrarlıyo mesele ilk bi hücrede AMERITRAC TR AMERITRAC TR yazıyorsa bu demktirki AMERITRAC TR yazısı tekrar ediyo ( iki kere yazılmış ) ikinic yazılanı yani tekrar edni yandaki hücreye atmasını veya silmesini istiyorum

galiba herhalde inşallah sanursam anlatabilmişimdir derdimi


lvenetm nin verdiği kod işe yaradı. tekrar eden her kelimeyi sağdaki hücreye kopyaladı böylece soldaki tekrarlı sütünlerı silerek yalın haline ulaştım

peki bu işlemi kod yazmadan excelin kendi fonksiyonlarından yapbilrmiyim

 

[omerceri]

Öyle ise Leventm'in çözümünü kullanın, meseleyi doğru anlamış.

 

[Valuer]

Yukarıdaki kodlarları uygula.

 

[Levent Menteşoğlu]

peki bu işlemi kod yazmadan excelin kendi fonksiyonlarından yapbilrmiyim

Elbette yapabilirsiniz. Yukarıda eklediğiniz dosyanın B1 hücresine aşağıdaki formülü kopyalayın. Daha sonra bu formülü aşağıya doğru çoğaltabilirsiniz. Formül; yukarıda verdiğim makronun fonksiyonlarla oluşturulmuş şeklidir.

=EĞER(SOLDAN(A1;(UZUNLUK(A1)-1)/2)=SAĞDAN(A1;(UZUNLUK(A1)-1)/2);SOLDAN(A1;(UZUNLUK(A1)-1)/2);"")

 

[omerceri]

=EĞER(SOLDAN(A1;(UZUNLUK(A1)-1)/2)=SOLDAN(A1;(UZUNLUK(A1)-1)/2);SOLDAN(A1;(UZUNLUK(A1)-1)/2);A1)
yukarıdaki bir formülü B1 hücresine yapıştırır ve aşağı doğru çoğaltırsan daha sonrada kopyala özel yapıştır ve değerleri işlemini yapıp a1 sütununu silersen kod kullanmadan işi halledersin ama benim tercihim Leventimin kodlarını kullanmak.

 

[omerceri]

bayağı gecikmişim. leventim işi çözmüş eşitliğin birtarafını parçaal ile yapmıştım aceleden formül karışmış.
leventimin formülünü aşağıdaki şeklinde değiştirirsen boş hücreler olmaz.
=EĞER(SOLDAN(A1;(UZUNLUK(A1)-1)/2)=SAĞDAN(A1;(UZUNLUK(A1)-1)/2);SOLDAN(A1;(UZUNLUK(A1)-1)/2);A1)

 

[Necdet]

Fikri Sayın Leventm verdi, bende formülü kısaltayım dedim.

Değerlerin A sütununda olduğunu varsayarak B Sütununa şu formülü yazınız :

=LEFT(A1;INT(LEN(A1)/2))

=SOLDAN(A1;TAMSAYI(UZUNLUK(A1)/2))

 

[xlsx]

Selam Necdet Bey
formül gercekten cok güzel mantıklı.peki bazı yerde 3 adet nazı yerde 2 tekrar varsa bu durumda nasıl bir formül düzenlemesi yapmak gerekecek .
Bu dosyada yok ama eğer böyle bir verimiz oldugunu düşünürsek nasıl bir yöntem uygulamamız gerekir.

 

[Necdet]

Sayın falconia,

Soruyu bana sormuşsunuz, dolayısı ile hiç bir arkadaş bakmamış, bende başlangıçta bu soruya yanıt veremem demiştim ama kafama takıldı ve araştırıp buldum.

Eğer Tekrarlanan tümceler verilen örnekte olduğu gibi ise, sanırım doğru çalışır.

Formülü çok karmaşık hale getirmeden, adım adım açıklayarak anlatmaya çalıştım. Tek bir formüllede olur, ama sanırım biraz karmaşık olur. O yüzden sorunu parçalara ayırarak çözüm şeklinin nasıl olduğunun anlaşılmasını istedim.

Umarım yararlı olur.

 

[xlsx]

evet formülü inceledim.Uzatmak mümkün tabi ama zaten bu haliyle bile yeterli derece iş görecektir.
Bu formülü ben herhangi bir dosyada kullanmayacağım ancak sanırım siz de benim gibi aklınıza bişi takıldıgında onun cevabını bulmak için denemeye hazırsınız Ben bulamadıgım konularda forumu kullanıyorum.
Tşk..