debug mesajı hatası

[sandokan]

üstatlarım bu listemde ödeme listesi hepsi sayfasında bir sutun ekledim d sutundan sonra
ve uyarladım
fakat günü gelen ödemelerimizi cıkar dedigimde resimeki gibi hata veriyor bunu nasıl cozebilirim
dosyam zipli ekte
hatayıda resim olarak ekliyorum
yardımlarınızı bekliyorum

 

[Ömer]

Merhaba,

İlgili satırı aşağıdaki gibi değiştiriniz..

If CDate(sh2.Cells(1, "a").Value) <= CDate(sh1.Cells(i, "b").Value) _
And CDate(sh2.Cells(1, "b").Value) >= CDate(sh1.Cells(i, "b").Value) Then

.

 

[halit3]

Ödeme listesi sayfasında 97. satırda b hücresinde tarih olmadığı için bu hatayı alıyorsunuz yani hücre boş olduğu için hata alıyorsunuz aşağıdaki kodda kırmızı yerleri ekledim.

Sub ödemeleribul()
Set sh1 = Sheets("ÖDEME LİSTESİ HEPSİ")
Set sh2 = Sheets("GÜNÜ GELEN ÖDEMELERİMİZ")
sh2.Range("B5:J2222").ClearContents
sat = 5
If IsDate(sh2.Cells(1, "a").Value) = True Then
If IsDate(sh2.Cells(1, "b").Value) = True Then
For i = 2 To sh1.Cells(Rows.Count, "B").End(3).Row
If sh1.Cells(i, "b").Value <> "" Then
If CDate(sh2.Cells(1, "a").Value) <= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) & Chr(10) _
And CDate(sh2.Cells(1, "b").Value) >= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) Then
sh2.Cells(sat, "B").Value = sat - 4
sh2.Cells(sat, "C").Value = sh1.Cells(i, "B").Value
sh2.Cells(sat, "D").Value = sh1.Cells(i, "C").Value
sh2.Cells(sat, "E").Value = sh1.Cells(i, "D").Value
sh2.Cells(sat, "F").Value = sh1.Cells(i, "E").Value
sh2.Cells(sat, "G").Value = sh1.Cells(i, "F").Value
sh2.Cells(sat, "H").Value = sh1.Cells(i, "G").Value
sh2.Cells(sat, "I").Value = sh1.Cells(i, "H").Value
sh2.Cells(sat, "J").Value = sh1.Cells(i, "I").Value
sat = sat + 1
End If
End If
Next
End If
MsgBox "İşlem Tamamdır"
End If
End Sub

 

[sandokan]

çok teşekkür ederim ömer ve halit3 halit3 bu kodu uyarladım oldu..fakat bişey sorucam dgerlerindede bu hata verirrmi 97.satir bos olursa

 

[halit3]

hayır vermez

 

[halit3]

Esasında tarihlerin dizilişi doğru ise Ömer Beyin verdiği kodu kullanın ben kodunuzda bir değişiklik yapmadım sadece ilave yaptım.

 

[sandokan]

Teşekkür ederim..bir ufak sorunumuz olustu bu dosyada firmaz bazlı işlemler sayfasına girdigimizde mesala onceden ayarlanmıs odeme listesine aynı firma adını girince firmalar sayfasında filtre yapiyordu ve firma bazlı işlemler sayfasında tek firma adı cıkıyordu simdi ise firma adları mükerere cıkıyor
bunu düzeltmemimiz mümkünmü...yani firma bazlı işlemler sayfasında firma ismi tek cıkcak

RESMİNİDE cektim..
korhan ayhan sort işlemi yapmişti ben sutun ekleyince uyarladım ama mükerrer cıktı

 

[sandokan]

Yardım edebılırmısınız

 

[halit3]

firmalar sayfasında d sutünundaki verilerde cümlenin sonlarında boşluklar var ondan dolayı veriler mükerrer olarak gözüküyor aslında mükerrerlik yok boşluklu hücreleride benzersiz bir veri olarak görüyor kod

 

[sandokan]

Scania tek kelime bosluk yok ama

 

[halit3]

Bu kodu ÖDEME LİSTESİ HEPSİ sayfasının kod bölümüne koy ve bir adet komut düğmesi ekle çalıştır aradaki boşlukları alacaktır.

Private Sub CommandButton1_Click()
For i = 2 To Cells(65536, "d").End(xlUp).Row
Cells(i, "D").Value = WorksheetFunction.Trim(Cells(i, "D").Value)
Next i
MsgBox "işlem tamam"
End Sub

 

[sandokan]

Resimde ekledigim bölüme koydum ama olmadı

 

[halit3]

Resimde ekledigim bölüme koydum ama olmadı

söylediğim sayfanın içine koymamışsınız. ben dosyanıza bu işlimi yapıp dosyanızla birlikte gönderirdim ama amacım bu işlemi kendenizin yapmasıydı.

ekli dosyanıza bakınız.

 

[sandokan]

Pardon az once yanlıs yere koymustum yenıden dogru yere koydum ama olmaı halit3

 

[sandokan]

çok tesekkür ederim su buton eleme olayını cozemeim

cok güzel işimi gördü halit3 oldu yanı

tesekkur ediyorum

 

[halit3]

çok tesekkür ederim su buton eleme olayını cozemeim

cok güzel işimi gördü halit3 oldu yanı

tesekkur ediyorum

iyi çalışmalar