Aynı verileri toplu silme

[MCANU]

arkadaşlar elimde 2 tablo var. A tablosunda yaklaşık 60.000 seri numarası, B tablosunda ise yaklaşık 8.000 seri numarası mevcut. B tablosundaki serilerin aynıları A tablosundada mevcut. A tablosundan farklı olan serileri toplu bir şekilde nasıl ayırt edebilirim? Şimdiden teşekkürler

 

[baydeniro]

Merhaba MCANU. Bu tür excel dosyası üzerinde yapılacak işlemlere ilişkin yardım taleplerinde size daha kolay yardım edilebilmesi için lütfen dosya eklemeyi ihmal etmeyin.

 

[MCANU]

ekte örnek amaçlı 500 seri numarası koydum ve b tablosunada 5 seri numarasını koydum. bu 5 tane seriyi a tablosundan silip a tablosunda 495 seri numarası bırakması gerekiyor

 

[asi_kral]

arkadaşlar elimde 2 tablo var. A tablosunda yaklaşık 60.000 seri numarası, B tablosunda ise yaklaşık 8.000 seri numarası mevcut. B tablosundaki serilerin aynıları A tablosundada mevcut. A tablosundan farklı olan serileri toplu bir şekilde nasıl ayırt edebilirim? Şimdiden teşekkürler

Merhaba
İki farklı şey sormuşsunuz silinecek mi belli mi olacak_?
Silinecek ise makro yazılması gerekir. Belli Edilecek ise Koşullu Biçimlendirme ile yapılabilir diye düşünüyorum.
Soruma yanıt verdikten sonra lütfen küçük bir örnek dosya ekleyiniz.

 

[MCANU]

eğer koşullu biçimlendirme ile bunu yapabilirsek o halde filtreleme ilede verileri gizleyemezmiyiz? Benim istediğim sadece farklı olanların gözükmesi

 

[asi_kral]

eğer koşullu biçimlendirme ile bunu yapabilirsek o halde filtreleme ilede verileri gizleyemezmiyiz? Benim istediğim sadece farklı olanların gözükmesi

Merhaba
Bir ad tanımlayın. İsmi

Seri_Numaraları

( Dilerseniz değiştirirsiniz )
başvuru yerine

='B TABLOSU'!$A$5:$A$1048576

Bunu yazın ve ad tanımını kapatın.
A5'den itibaren kaç satırda bunu görmek istiyorsanız tarayın. Koşullu Biçimlendirme - Yeni Kural - Biçimlendirilecek hücreleri belirlemek için formül kullan - Formül kutucuğuna

=VE($A5<>"";EĞERSAY(Seri_Numaraları;$A5)<1)

Bu formülü yazın ve Biçimlendir'den ayarlarınızı yaparak koşulu kapatın.
Sonuçları Gözlemleyin. Dosyanız Ekte.

 

[baydeniro]

Sayın asi kral 1967. A Tablosunda 1 den fazla olanları B Tabnlosuna makro ile aktarabilir miyiz ?

 

[asi_kral]

Sayın asi kral 1967. A Tablosunda 1 den fazla olanları B Tabnlosuna makro ile aktarabilir miyiz ?

Biraz daha açıklama lütfen. Mesela şöyle mi aynı rakamdan 2 tane var biri öbür tarafa yazacak. Peki böyle olursa her iki tane olan mı oraya aktarılacak.
Yoksa B tablosuna tek liste mi istiyorsun.

 

[baydeniro]

Sayın asi_kral_1967 ilginize çok teşekkür ederim. sorunuz da cevplarınız kadar öğretici, ayrıca teşekkür ederim. Örneğin şöyle yapılabilir mi ?

B1 hücresinde verilen rakamdan fazla olanları B Tablosuna aktarmak mümkün mü ? Örneğin B1 hücresine 3 yazdık. A sütununda aynı kodda 3 adet ve daha fazla olanları uniqe kod ve tekrar sayısı olarak B tablosu sayfasına raporlayabilir mi ?

 

[MCANU]

Yaptığınız bilgilendirmeler için teşekkürler. Bir sorum daha olacak. Şimdi bunu filtrelendirme yoluyla ayırt etmek için mesela yandaki bir sütuna aynı olanlar için bir yazı düşürüp sonra filtrelemeden görüntülenenleri sadece boş hücreler yapma şansımız varmı?

 

[asi_kral]

Sayın asi_kral_1967 ilginize çok teşekkür ederim. sorunuz da cevplarınız kadar öğretici, ayrıca teşekkür ederim. Örneğin şöyle yapılabilir mi ?

B1 hücresinde verilen rakamdan fazla olanları B Tablosuna aktarmak mümkün mü ? Örneğin B1 hücresine 3 yazdık. A sütununda aynı kodda 3 adet ve daha fazla olanları uniqe kod ve tekrar sayısı olarak B tablosu sayfasına raporlayabilir mi ?

Sorunuzu bu şekilde anlayamadım. Ya daha uyanamadım yada yorgunluğum henüz gitmemiş bir dosya üzerinde örnekli anlatabilir misiniz_?

 

[asi_kral]

Yaptığınız bilgilendirmeler için teşekkürler. Bir sorum daha olacak. Şimdi bunu filtrelendirme yoluyla ayırt etmek için mesela yandaki bir sütuna aynı olanlar için bir yazı düşürüp sonra filtrelemeden görüntülenenleri sadece boş hücreler yapma şansımız varmı?

Merhaba
Yardımcı sütun kullanmanıza gerek yok. Excel 2007 ve üst sürümlerde bildiğim kadarı ile renge göre filtreleme mevcut.
A4 hücresini seçin - Sırala - Filtre Uygula seçin - Filtre deyin. - Filtre Ok'una tıkladığınızda Renge göre Filtre Seçeneği Çıkıyor oradan dilerseniz rengi dilerseniz dolgu yok seçerek filtre uygulayabilirsiniz.

 

[baydeniro]

Sayın asi_kral_1967 öncelikle nezaketiniz ve yardımseverliğiniz için çok teşekkür ederim. İnanın sizlerin sayesinde bireysel olarak çok ama çok şey öğrendiğimiz gibi, bunların bir kısmını başka insanlara da öğretme şerefine nail oluyoruz. Yani dolaylı yoldan pek çok kişiye yardım etmiş oluyorsunuz. Biz bu gidişle Avrupa'yı ezeriz. Örnel bir dosya ekledim. Değerli zamanınızı aldığım için şimdiden özür dilerim.

 

[asi_kral]

Sayın asi_kral_1967 öncelikle nezaketiniz ve yardımseverliğiniz için çok teşekkür ederim. İnanın sizlerin sayesinde bireysel olarak çok ama çok şey öğrendiğimiz gibi, bunların bir kısmını başka insanlara da öğretme şerefine nail oluyoruz. Yani dolaylı yoldan pek çok kişiye yardım etmiş oluyorsunuz. Biz bu gidişle Avrupa'yı ezeriz. Örnel bir dosya ekledim. Değerli zamanınızı aldığım için şimdiden özür dilerim.

Merhaba
Kandiliniz mübarek olsun
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tekrar_sayısına_göre_liste()
'Konu       :   C2 hücresinde belirlenen kritere göre Liste
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim s1 As Worksheet, s2 As Worksheet
Dim asi As Long, kral As Long
Application.ScreenUpdating = False
Set s1 = Sheets("TABLO A"): Set s2 = Sheets("TABLO B")
s2.Range("A2:C" & Rows.Count).ClearContents
kral = 2
For asi = 2 To s1.Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("A2:A" & asi), s1.Cells(asi, "A")) >= _
s1.Range("C1") Then
If WorksheetFunction.CountIf(s2.Range("A2:A" & kral), s1.Cells(asi, "A")) < 1 Then
s2.Cells(kral, "A") = s1.Cells(asi, "A")
s2.Cells(kral, "B") = WorksheetFunction.SumIf(s1.Range("A:A"), s1.Cells _
(asi, "A"), s1.Range("B:B"))
s2.Cells(kral, "C") = WorksheetFunction.CountIf(s1.Range("A:A"), s1.Cells _
(asi, "A"))
kral = kral + 1
End If: End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[baydeniro]

Harika, muhteşem, fevkalade. Allah sizleri bu vatandan eksik etmesin, emeğinize sağlık, Sağlıcakla kalın.

 

[asi_kral]

Harika, muhteşem, fevkalade. Allah sizleri bu vatandan eksik etmesin, emeğinize sağlık, Sağlıcakla kalın.

Kolay Gelsin.

 

[MCANU]

Merhaba, verdiğiniz örnek üzerine verileri eklediğim zaman doğru dolgulama yapmıyor kaydırmalar oluyor bunu nasıl çözebiliriz?

 

[asi_kral]

Merhaba, verdiğiniz örnek üzerine verileri eklediğim zaman doğru dolgulama yapmıyor kaydırmalar oluyor bunu nasıl çözebiliriz?

Dediğinizi anlamadım. Lütfen dosya üzerinde örneklerle anlatır mısınız_?

 

[memocanabi46]

excell yardım lütfen

merhaba,
yukarıda yine benim soruma yakın bir soru sorulmuş fakat benimkisi biraz farklı sanırım.
excell Sayfa1'de Sayfa2'de Sayfa3'de benim stoğumda bulunan 100bin tane malın seri numarası var. ben bunların içinden 10bin tanesini stoğumdan çıkarırken Sayfa4'e barkod okuyucuyla okutarak seri numaralarını yazdırdım. D stununda bulunan numaralar A,B,C stunlarının içinde serpiştirilmiş olarak bulunmaktadır. fakat ben bunları yani D stunundaki seri numaraları stoklarımdan yani A, B, C stunlarının seri numaralar içinden bulup düşmem gerek.