Userform üzerine sayfadan veri alma

[marlalı1]

Arkadaşlar ekteki dosyayı incelermisiniz.çok araştırdım yapamadım.ilginiz için hepiniz teşekkürler

 

[fedeal]

Sorularınız imkansız değilde bende dahil çoğu kişide 2007 yok 2003 olarak eklerseniz ilgilenen çok olacaktır.

 

[marlalı1]

dosya 2003 eklenmiştir

 

[fedeal]

aylık maliyetin altındaki combobox2 başlangıç tarihi combobox1 ise başlangıç tarihi olarak düşünüldü.iki tarih arasındaki kurların ortalaması alındı.

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then Exit Sub
tutar = 0
sayı = 0
ComboBox1 = Format(ComboBox1, "DD.MM.YYYY")
Set bul = Sheets("KURLAR").Range("A1:A65000").Find(CDate(ComboBox1), LookAt:=xlWhole)
If Not bul Is Nothing Then
TextBox2.Text = Sheets("KURLAR").Cells(bul.Row, 2).Value
End If
If ComboBox2.Text = "" Then Exit Sub
Set bul2 = Sheets("KURLAR").Range("A2:A65000").Find(CDate(ComboBox2), LookAt:=xlWhole)
If Not bul2 Is Nothing Then
For i = bul2.Row To bul.Row
tutar = CDbl(tutar) + CDbl(Sheets("KURLAR").Cells(i, 2).Value)
sayı = CDbl(sayı) + 1
Next
If sayı = 0 Then Exit Sub
TextBox14.Text = tutar / sayı
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox1.Text = "" Then Exit Sub
If ComboBox2.Text = "" Then Exit Sub
tutar = 0
sayı = 0
ComboBox2 = Format(ComboBox2, "DD.MM.YYYY")
Set bul = Sheets("KURLAR").Range("A1:A65000").Find(CDate(ComboBox1), LookAt:=xlWhole)
If Not bul Is Nothing Then
TextBox2.Text = Sheets("KURLAR").Cells(bul.Row, 2).Value
End If
Set bul2 = Sheets("KURLAR").Range("A2:A65000").Find(CDate(ComboBox2), LookAt:=xlWhole)
If Not bul2 Is Nothing Then
For i = bul2.Row To bul.Row
tutar = CDbl(tutar) + CDbl(Sheets("KURLAR").Cells(i, 2).Value)
sayı = CDbl(sayı) + 1
Next
If sayı = 0 Then Exit Sub
TextBox14.Text = tutar / sayı
End If
End Sub


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "KURLAR!A2:A10"
ComboBox2.RowSource = "KURLAR!A2:A10"
End Sub

deneyin umarım olur.iyi çalışmalar.

 

[marlalı1]

hocam olmadı ya yapamadım.siz ekli dosyada yapabilirmisiniz.

 

[fedeal]

dosyaekte,