Çek girişi ile ilgili formÜl dÜzenleme

Katılım
5 Mart 2007
Mesajlar
33
Excel Vers. ve Dili
OFİS 2003 EXCEL.COM.TR
Merhaba;
Üstad raporu çalıştırınca değerlerden sağdakini siliyor soldakini boyuyor.
Soldaki kalanlar da bakiyeyi veriyor. Bir kez çalıştırınca önce 74553379 nolu çeki 2 nci kez çalıştırınca da 4425587 nolu çeki siliyor. Bunları silirken çek numarasına göre siliyor. Aslında istediğimizde bunları silerken eşit çek numarasını ve eşit tutarlı olanları silsin. Burada sadece çek numarasına göre siliyor. 2 nci çalıştırdığımızda ise başka kayıt silmesin. Yani ekteki dosyadaki işlemi silerken çek numarası ve tutar eşit ise soldan silsin sağdakini boyasın (Daha önce bunu siz yapmıştınız) 2 nci çalıştığında eşit çek numarası ve ve eşit tutar yoksa hiç silme yapmasın. Şimdiden çok teşekkürler. Bu hali ile bile çoookkk sıkıntımı giderdi tekrar teşekkürler.:yardim: :yardim: :yardim:
Yardımlarınız için teşekkürler
 
Katılım
31 Ocak 2007
Mesajlar
228
Excel Vers. ve Dili
office xp tr
Forumda kişiye özel soru başlığı yazmayınız böyle durumda özel mesaj menusunu kullanınız.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayın ileriexcel, öncelikle uyarınız için teşekkürler. Sayın 424242, önce sizin belirttiğiniz gibi bana özel mesaj attı. Fakat çözümün uzayabileceğini düşündüğümden, dosya eklemesini istedim. Şahsen beni belirtmesinin sebebi de daha önce böyle bir makro yapmış olmamdan dolayıdır zannedersem. Ama başlık hoş olmamış gerçekten size katılıyorum. Herhalde arkadaşımız bundan sonra daha dikkatli olacaktır.

Sayın 424242, örneği inceleyin.

Not: Çek numaralarını ayrı bir sütunda gösterdim ve makroyu da bu şekilde düzenledim.
 
Katılım
5 Mart 2007
Mesajlar
33
Excel Vers. ve Dili
OFİS 2003 EXCEL.COM.TR
Çek kapatma ile ilgili

:yardim: Üstad ekli dosyayı inceler ve sorunu çözersen sevinirim.Emeğin için de çok teşekkürler size zahmet oldu...:yardim: :yardim:
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki şekilde deneyin.

Kod:
Sub CIKARTT()
For t = 2 To [a65536].End(3).Row
Set bul = Columns("F").Find(Cells(t, 2), LookAt:=xlWhole)
If Not bul Is Nothing Then
Cells(t, 2).Interior.ColorIndex = 6
Range("e" & bul.Row & ":g" & bul.Row).Delete Shift:=xlUp
End If
Next
End Sub
 
Katılım
5 Mart 2007
Mesajlar
33
Excel Vers. ve Dili
OFİS 2003 EXCEL.COM.TR
Merhaba

:yardim: Üstad olmadı, ya da ben yapamadım. Excel dosyası olarak gönderebilir misiniz:yardim:
 
Katılım
5 Mart 2007
Mesajlar
33
Excel Vers. ve Dili
OFİS 2003 EXCEL.COM.TR
Teşekkürler;

:hey: :hey: :hey: Üstad teşekkür ederim elinize sağlık
süperrrrrr olmuşşşşşşşşşşşşşş:hey: :hey: :hey:
 
Üst