Güncelleme

[honestguy25]

arkdaşlar dosyayı ekte gonderiyorum açıklama "ödemetablosu" sayfasında şifre"aha" istedim kod userforum 5te "ödemetablosu" sekmesinde güncelle kodu. her bir isim soyisme göre farklı sayfa olduu için karıştırdım yazamadım açıklamayı okursanız sevinirim

 

[honestguy25]

arkdaşlar çok pardon yine aynı userform 5 "ödeme tablosu" sekmesinde "bul" tuşu hata veriyor eger eksik yada yanlış birşey yazarsan hata veriyor dogru yazarsan buluyor. bu konuda kilitlendım yardım edersiniz sevinirim teşekkurler

 

[Skorpiyon]

Dosyanızı incelemedim ama,

Arama kodlarınızın başına ; (içinde find kelimesi geçen komut satırıdır)

On Error Goto Hata yazın.
Aynı kodda End Sub'un hemen üzerine de ;
Goto 10
hata :
Msgbox "Girdiğiniz veriyi kontrol edin. Yanlış veya eksik veri"
10

şeklinde yazarak bir deneyin.

 

[Skorpiyon]

Sayın honestguy25,

Güncelle butonunuzun altına da aşağıdaki kodları yazın.

Private Sub CommandButton12_Click()
If TextBox20 = "" Then
MsgBox "Lütfen Ad Soyad giriniz."
Exit Sub
End If
On Error GoTo hata
Sheets("Textbox20").Select
Range("B5").Value = TextBox21.Value
Range("C5").Value = TextBox35.Value
'diye devam ederek geri kalan kısmı siz kendiniz yazın.
GoTo 10
hata:
MsgBox "Adı Soyadı Kontrol Edin. Büyük İhtimal Yanlış Yazdınız"
10
End Sub

 

[honestguy25]

çok çok teşekkurler ediyorum elinize sağlık

 

[honestguy25]

şaban bey aynı userformda acaba ödemesi gecikenleri nasıl tespit edebilirim? takvime göre ödemesi gecikenleri otomatik belirleyebilirmi acaba??

 

[Skorpiyon]

Sayın honestguy25,

Aşağıda şekilde bir deneyin.

Userform5'te Bul butonu altındaki kodlarınız arasına, aşağıdaki kırmızı kısmı ekleyin.

TextBox92.Value = ActiveCell.Offset(0, 3).Value
TextBox93.Value = ActiveCell.Offset(0, 4).Value
If Date > CDate(TextBox21) Then
MsgBox "Ödeme gecikmesi var"
GoTo 10
End If
Exit Sub
End If
Next bak
MsgBox "Aradığınız isim bulunamadı. Lütfen Soyisimle birlikte yazarak deneyiniz."
10
End Sub


Yine bul butonu altındaki tarih textboxlarını aşağıdaki gibi düzenleyin.
TextBox21.Value = CDate(ActiveCell.Offset(4, 1).Value) 'TArih 1'

 

[honestguy25]

bunu da yaparım ama bu sadece tek bir kişinin geciken taksitlerini verir benim istediim kitapta ki butun geciken taksitler kime ait oldukları miktarları. bunu nasıl yapabılırım ? istatistik olarak atıyourm agustos ayında şu kadar ondemesi gerekirken ödenen taksit geciken taksit ve geciken taksitler kime ait.. yol gosterirseniz sevinirim teşekkurler

 

[Skorpiyon]

Sayın honestguy25,

Bir de bunu deneyin. Userform5'e bir buton koyulmuştur.

Userfom2' deki kriteri siz kendinize göre uyarlayın.

 

[honestguy25]

hocam elinize saglık uğraşmışsınız tarihler ödemesi geciken taksit derken. ödeme zamanı geçtiği halde odemesini yapmayanlar bunlarda bugünün tarihini baz alarak listboxa getirmek istesek. yanı bugun tarihi itibariyle ödeme tarihini geldiği halde ödeme yapılmayan taksitler. ? mümkünmü acaba. birde kodun yanına açıklama yazarsanız kısatlmaları çok ıyı bılmıyourm ben gerisini gelıştiririm inşallah. emenize sağlık herşey için teşekkur ederim