Aynı tarih ve tutar olan satırın silinmesi

[erdalladre]

Merhabalar

Siteye yeni üye oldum ve önemli bir konuda yardımlarınızı almak istiyorum. Yardımcı olursanız sevinirim.

Elimde iki tane excel dosyası var. Biri sayfa 1 de diğeri sayfa 2 de.

Sayfa 1 ve Sayfa 2 de tarih açıklama ve tutarlar var. Tarih ve tutarlar aynı ama açıklamalar farklı.

Sayfa 2 de bulunan aynı satırdaki tarih ve tutarın Sayfa 1 de ki satırının bulunması ve Sayfa 1 de ki satırın olduğu gibi silinmesi ve altındaki bütün satırların bi yukarıya çıkarılmasını istiyorum.

Örnek vermek gerekirse :

sayfa1
sıra no tarih açıklama tutar
1 15.01.2014 aycan tekstil ft. ödemesi 10.000,00
2 29.04.2014 elbir temizlik gelen ödeme 15.500,00
3 09.08.2014 kardeşler gıda gelen ödeme 30.000,00
4 18.11.2014 bankadan nakit çekilen 5.000,00

sayfa2
sıra no tarih açıklama tutar
1 15.01.2014 aycan tekstil ft. ödemesi 10.000,00
2 09.08.2014 kardeşler gıda gelen ödeme 30.000,00

Şimdi Sayfa 2 de bulunan 15.01.2014 tarih ve 10.000 tl ile 09.08.2014 tarih ve 30.000 tl olan satırları Sayfa 1 de bulup o satırları olduğu gibi silmesini istiyorum.

Sonrasında ise oluşacak liste şöyle olmalı :

sayfa1
sıra no tarih açıklama tutar
2 29.04.2014 elbir temizlik gelen ödeme 15.500,00
4 18.11.2014 bankadan nakit çekilen 5.000,00

Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

Satırları silmesinden ziyade renklendirme işlemi olsa da olur. Ben silme işlemini yaparım.

Bu arada konuyu yanlış yere açmış olabilirim. Kusura bakmayın.

 

[erdalladre]

Arkadaşlar yardımcı olacak var mı acaba ?

 

[PLİNT]

Merhabalar

Siteye yeni üye oldum ve önemli bir konuda yardımlarınızı almak istiyorum. Yardımcı olursanız sevinirim.
Elimde iki tane excel dosyası var. Biri sayfa 1 de diğeri sayfa 2 de.
Sayfa 1 ve Sayfa 2 de tarih açıklama ve tutarlar var. Tarih ve tutarlar aynı ama açıklamalar farklı.
Sayfa 2 de bulunan aynı satırdaki tarih ve tutarın Sayfa 1 de ki satırının bulunması ve Sayfa 1 de ki satırın olduğu gibi silinmesi ve altındaki bütün satırların bi yukarıya çıkarılmasını istiyorum.
Örnek vermek gerekirse :
sayfa1
sıra no tarih açıklama tutar
1 15.01.2014 aycan tekstil ft. ödemesi 10.000,00
2 29.04.2014 elbir temizlik gelen ödeme 15.500,00
3 09.08.2014 kardeşler gıda gelen ödeme 30.000,00
4 18.11.2014 bankadan nakit çekilen 5.000,00

sayfa2
sıra no tarih açıklama tutar
1 15.01.2014 aycan tekstil ft. ödemesi 10.000,00
2 09.08.2014 kardeşler gıda gelen ödeme 30.000,00

Şimdi Sayfa 2 de bulunan 15.01.2014 tarih ve 10.000 tl ile 09.08.2014 tarih ve 30.000 tl olan satırları Sayfa 1 de bulup o satırları olduğu gibi silmesini istiyorum.

Sonrasında ise oluşacak liste şöyle olmalı :

sayfa1
sıra no tarih açıklama tutar
2 29.04.2014 elbir temizlik gelen ödeme 15.500,00
4 18.11.2014 bankadan nakit çekilen 5.000,00

Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

Satırları silmesinden ziyade renklendirme işlemi olsa da olur. Ben silme işlemini yaparım.

Bu arada konuyu yanlış yere açmış olabilirim. Kusura bakmayın.

Merhaba
Tutar ve tarih aynı açıklama farklı ise ne olacak belitmemişsiniz
Örnek dosya eklerseniz daha iyi olur
www.upturkey.com/

 

[erdalladre]

tabi örnek dosya olarak hazırladım.

https://www.dropbox.com/s/1masnix3yogibeb/deneme1.xlsx?dl=0

Açıklama ile ilgili birşey yapılmayacak.

İşin aslını açıklamak gerekirse eğer;

2014 yılı içinde Sayfa2 deki bilgiler muhasebe programına belge olarak girilmiş. Ancak sonra bankadan hesap ekstresi alınmış ve programın excelden transfer özelliği ile bütün bir liste olan Sayfa1 i programa transfer edeceğim ama yıl içinde bazı kalemler programa girildiği için girilmiş olan satırların yani Sayfa 2 deki satırların Sayfa 1 deki listeden çıkartılması gerekiyor.

 

[PLİNT]

Merhaba

Dosyanızın yedeğinde deneyin. (Dosyanızdaki gibi; "Sıra No" sütunu olmamalı.)

Sub sil()
Dim A, B As Worksheet
Set A = Sheets(1)
Set B = Sheets(2)
For c = 2 To B.Cells(B.Rows.Count, 1).End(xlUp).Row
For d = A.Cells(A.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If A.Cells(d, 1) = B.Cells(c, 1) And A.Cells(d, 3) = B.Cells(c, 3) Then
A.Select
A.Cells(d, 1).Select
A.Rows(d).EntireRow.Delete
End If
Next: Next
End Sub

http://www.upturkey.com/download.php?file=799Kopya Xl.zip

 

[erdalladre]

Bu kodu nasıl yapacağız. Bu konuda oldukça acemiyim.

 

[PLİNT]

Bu kodu nasıl yapacağız. Bu konuda oldukça acemiyim.

Örnek dosya eklemiştim.

 

[erdalladre]

Örnek dosya eklemiştim.

Biraz araştırdım Alt + F11 yapıp insert module kısmına yapıştıdım verdiğiniz kodu ve sonra tekrar Alt +F11 yapıp geri excel dosyasına gelip Görünümden Makroyu tıklayıp sil komutunu çalıştırdım ve silme işlemini yaptı ama Sayfa 2 de sadece C sütununda bulunan tutarın olduğu satırı dikkate aldı. hem C hem de D sütunundaki tutarı dikkate alabilir mi ?

Bu arada verdiğiniz örnek dosya linki boş çıkıyor. Sanırım arada boşluk var.

Bu arada çok teşekkür ediyorum zaman ayırıp ilgilendiğiniz için.

 

[PLİNT]

Biraz araştırdım Alt + F11 yapıp insert module kısmına yapıştıdım verdiğiniz kodu ve sonra tekrar Alt +F11 yapıp geri excel dosyasına gelip Görünümden Makroyu tıklayıp sil komutunu çalıştırdım ve silme işlemini yaptı ama Sayfa 2 de sadece C sütununda bulunan tutarın olduğu satırı dikkate aldı. hem C hem de D sütunundaki tutarı dikkate alabilir mi ?

Bu arada verdiğiniz örnek dosya linki boş çıkıyor. Sanırım arada boşluk var.

Bu arada çok teşekkür ediyorum zaman ayırıp ilgilendiğiniz için.

Merhaba
Şöyle değiştirip deneyin.

Dosyanızın yedeğinde deneyin. (Dosyanızdaki gibi; "Sıra No" sütunu olmamalı.)

http://www.upturkey.com/download.php?file=479Kopya Xl.zip

Sub sil()
 Dim A, B As Worksheet
Set A = Sheets(1)
Set B = Sheets(2)
For c = 2 To B.Cells(B.Rows.Count, 1).End(xlUp).Row
For d = A.Cells(A.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If A.Cells(d, 1) = B.Cells(c, 1) And A.Cells(d, 3) = B.Cells(c, 3) Then
A.Select
A.Cells(d, 1).Select
A.Rows(d).EntireRow.Delete
End If
If A.Cells(d, 1) = B.Cells(c, 1) And A.Cells(d, 3) = B.Cells(c, 4) Then
A.Rows(d).EntireRow.Delete
End If
Next: Next
End sub

 

[erdalladre]

Merhaba
Şöyle değiştirip deneyin.
http://www.upturkey.com/download.php?file=479Kopya Xl.zip

Sub sil()
 Dim A, B As Worksheet
Set A = Sheets(1)
Set B = Sheets(2)
For c = 2 To B.Cells(B.Rows.Count, 1).End(xlUp).Row
For d = A.Cells(A.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If A.Cells(d, 1) = B.Cells(c, 1) And A.Cells(d, 3) = B.Cells(c, 3) Then
A.Select
A.Cells(d, 1).Select
A.Rows(d).EntireRow.Delete
End If
If A.Cells(d, 1) = B.Cells(c, 1) And A.Cells(d, 3) = B.Cells(c, 4) Then
A.Rows(d).EntireRow.Delete
End If
Next: Next
End sub

Emek ve zaman ayırıp ilgilendiğiniz çok teşekkür ederim. Ellerinize sağlık. Mükemmel oldu. Teşekkürler.