Excel'de 2 ayrı tabloda ortak olan değerlerin silinmesi

Katılım
4 Kasım 2005
Mesajlar
158
Selam arkadaşlar;

Aslında ben bu mesajı acces soruları içine açmıştım ama access'ten anlamamam ve burada sonuç çıkmaması nedneniye burada açmayı uygun gördüm, inşallah kalabalık etmiyorumdur.

Sorunum, Ankara'ya yaptığımız banka havalelerini gösteren iki tablomuz var. Bunlarda İzmir ve Anakara tablolarındaki paraların büyük bölümü birbirini birebir sağlıyor(sadece bunları silebilmek bile benim bi hayli işime yarar çünkü 1000'in üzerinde para var), bazılarında ise İzmir'deki bir tane para Ankara tablosundaki birkaç paranın bileşiminden oluşuyor.(tabloda okla belirttim).Bunlar için de bir kombinasyon kullanarak kurulabir mi, bu şekilde birbirini sağlayan bir kombinasyon kurulabilirse birkaç günlük iş(hatta hatalı silme yaparsam herşeye baştan başlamak zorunda kalıyorum) bir saatte hallolmuş olacak
 
Katılım
4 Kasım 2005
Mesajlar
158
İZMİR
SIRA NO MF. NO TUTARI

1 8/776 50,566.13
2 8/775 23,412.99
3 8/775 44,415.52
4 8/775 35,433.10
5 8/776 13,705.00
6 8/777 23,838.00
ANKARA
SIRA NO MF. NO TUTARI

1 170 50,566.13
2 170 1,202.55
3 170 37.56
4 170 33,413.55
5 170 11,001.97
6 170 22,000.00
7 170 210.55
8 170 13,705.00
9 170 23,838.00


Arkadaşlar, tablo böyle birşey, benim istediğim sadece "TUTARI" sütununda mükerrer olan değerlerin satırlarının silinmesi.

Yardımcı olabilirseniz sevinirim...
 
Katılım
4 Kasım 2005
Mesajlar
158
mesela 50.556,13 hem izmir de var hem ankara'da

Benim istediğim bunların ikisinin de silinmesi.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,929
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sayın kasif2,

Diyelim ki ilk sütundaki 10 12 26 sayılarının toplamı ile başka diğer sütundaki 8 13 27 sayıların toplamıda 48 oluyor

ilk sütundaki sayı 10+12 =22 yaptı peki diğer sütundada 22 varsa o zaman 22 yimi silecek 48 imi silecek bu biraz kombinasyona giriyor ve bayağı zor görünüyor
 
Katılım
4 Kasım 2005
Mesajlar
158
Sayılar hep küsuratlı ve büyük sayılar, dediğin şeyin olma ihtimali çok düşük (ki olsa bile farkedilir)
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,929
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
kasif2' Alıntı:
dediğin şeyin olma ihtimali çok düşük (ki olsa bile farkedilir)
Nasıl peki ? Excel'de böyle bir yapay zeka varmı ?
Yüzlerce veri aldınız diyelim nasıl farkedilecek.?
Herhalde bir yolu vardır ama nasıl ...
 
Katılım
4 Kasım 2005
Mesajlar
158
Doğrusu bana da imkansızı istiyormuşum gibi geliyor;

Bunu excel ile sağlamam mümküm değil, sanırım makro kullanmak lazım ama ondan da ben anlamıyorum :?
 
Katılım
4 Kasım 2005
Mesajlar
158
Ama ikinci tablodaki gibi sadece birbirinin aynı değerlerin silinmesi bile benim işimi bi hayli kolaylaştıracaktır
 
Katılım
9 Ekim 2005
Mesajlar
6
Selam,

Ekte bi çözüm var. Eşleşen verileri silerseniz sadece eşleşmeyen veriler kalacaktır. Yanlış anladıysam uyarın.

Kolay gelsin.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,929
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sayın kamber, Eşleşen verileri silme sorun değil
Sn kasif2, 'in istediği toplam kombinasyonlarıda tutan verileride silmek
 
Katılım
4 Kasım 2005
Mesajlar
158
sağol kamber

bu da güzel bir yöntem.

veri-süz-otomatik süzden eşit değil #YOK dedim, sadece ortak değerler kaldı, onları da silince sadece ortak olmayan değerler kaldı.

Bir de kombinasyonla birbirini sağlayan değerleri bulabilsem süper olacak ama buna da şükür.

Tekrar teşekkürler....
 
Katılım
4 Kasım 2005
Mesajlar
158
Tabi aslında asıl problem birbirini sağlayanları uydurabilmek;

Bu şekilde ortak olanları silmek, hazırladığım tabloyla birkaç saatimi alıyordu ama eşleşenleri bulabilmek gerçekten çok vakit alıyor,

yine de bu bile beni kısmen rahatlatır...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,059
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu banka2 isimli dosyanızda deneyin.

[vb:1:c006a4e39b]Sub sil()
On Error Resume Next
ilk = [c5:c65536].End(1).Row
son = [c65536].End(3).Row
For a = ilk To son
deg = Cells(a, "c")
If WorksheetFunction.CountIf(Columns("c"), deg) > 1 Then
adr = "c" & a + 1 & ":c65536"
Rows(Range(adr).Find(deg).Row).Delete
Rows(Cells(a, "c").Row).Delete
GoTo 10
End If
Next
Exit Sub
10 Call sil
End Sub
[/vb:1:c006a4e39b]
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,059
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Benim verdiğim kod sadece eşleşenleri silmek ile ilgiliydi. Kombinasyon hesabı ile ilgilide bir kod yazılabilir, ama sadece dosyanızdaki gibi iki şehir mevcutsa, çok sayıda şehir sözkonusu ise kodun çalışması saatlerce sürebilirki buda işlemciyi çok zorlayacaktır.
 
Katılım
4 Kasım 2005
Mesajlar
158
Benim tabloda sadece iki şehir var (İzmir - Ankara), yani izmir den Ankaradaki genel müdürlüğe giden havalelerin kontrolü amaçlı.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,653
Excel Vers. ve Dili
Pro Plus 2021
ekteki örnekte 1-1 eşleşmeleri, 1-2 eşleşmeleri, 1-3 eşleşmeleri silen makrolar var
 
Katılım
4 Kasım 2005
Mesajlar
158
Çok sağol Veyselemre, :icelim:

Bu tablon da çok işime yarıyacak. Ben 1'e 3'ü ne olur ne olmaz 1'e 6'ya çıkardım.

Biz bu tabloları sağlayabilmek için 3 kişi 3 - 4 gün uğraşıyorduk. Þimdi sadece ben birkaç saatte halledicem gibi görünüyor. :eek:k::

Daha önce hazırlamış olduğun tahakkuk tablosunu da şu anda kullanıyorum, eskiden yanlış sütuna kopyalayabiliyordum, şimdi kesin rakamlar geliyor ve hata yapma ihtimalim ortadan kalktı.

Sonuçta veyselemre, senin hakkın ödenmez :dua:

İyi ki bu site var, iyi ki sizler varsınız.....

Not : Belki yeri değil ama ekte hotmail'i 250 Mb. ve türkçe yapan bir yazı dosyası var (legal yollardan). Paylaşmak istedim, ihtiyacı olanlara duyurulur
 
Katılım
4 Kasım 2005
Mesajlar
158
Not : Buradaki değerleri bilgisayara elle giriyorum. Birkaç saatte biter demem ondan, yoksa tablo oluştuktan sonra herhalde 5-10 dakikada bu iş hallolmuş olacaktır.
 
Üst