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

[424242]

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

 

[ileriexcel]

Forumda kişiye özel soru başlığı yazmayınız böyle durumda özel mesaj menusunu kullanınız.

 

[hamitcan]

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.

 

[424242]

Ç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]

Aşağıdaki şekilde deneyin.

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

 

[424242]

Merhaba

:yardim: Üstad olmadı, ya da ben yapamadım. Excel dosyası olarak gönderebilir misiniz:yardim:

 

[hamitcan]

Eki inceleyin.

 

[424242]

Teşekkürler;

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