userform kod hatası için yardım

[ormanci_50]

merhaba
arkadaşlar daha önce ustalarımın yaptığı bir dosyada bir eksiklik oldu bunun içinde sizden tekrar yardım rica ediyorum.

sorun: aynı gün araç 2 kez gelmişse son kayıt seçilmesine rağmen mail de ilk kayıt çıkmakta

yardımlarınız için şimdiden teşekkür ederim.

 

[ormanci_50]

güncel form

 

[ugurcoskun]

Combobox3 rowsource kodu hatalıydı.

Düzeltilmiş hali ektedir.

 

[ormanci_50]

merhaba
hocam aynı sıkıntı devam ediyor.
aynı plakalı araç 2 defa çıkarsa ilk müşterinin adı çıkıyor.
teşekkürler

 

[ormanci_50]

merhaba arkadaşlar konu güncel
seçilen satırı nasıl mail atarım hala çözüm yok

 

[ormanci_50]

konu güncel arkadaşlar...

 

[ormanci_50]

merhaba
arkadaşlar plaka seçildiğinde listbox açılsa ve mail verilerini ordan seçilse sorun çözülürmü?

 

[halit3]

Private Sub ComboBox3_Change() kodunu aşağıdaki ko ile değiştirp denermisiniz.

Private Sub ComboBox3_[COLOR=red]Click[/COLOR]()
Set S = Sheets("KAYIT")
ADI = Trim(ComboBox3.Text)
On Error Resume Next
[COLOR=lime]'satir = S.Range("B:B").Find(ADI).Row[/COLOR]
[COLOR=red]satir = ComboBox3.ListIndex + 3[/COLOR]
If satir = 0 Then
Exit Sub
End If
[COLOR=lime]'Format(TextBox1, "dd.mm.yyyy") = Cells(Satır, "A")[/COLOR]
[COLOR=lime]'ComboBox3.Text = S.Cells(satir, "B")[/COLOR]
[COLOR=red]TextBox1.Text = Format(S.Cells(satir, "A"), "dd.mm.yyyy")[/COLOR]
TextBox12.Text = S.Cells(satir, "C")
TextBox3.Text = S.Cells(satir, "D")
TextBox4.Text = S.Cells(satir, "E")
TextBox5.Text = S.Cells(satir, "F")
TextBox6.Text = S.Cells(satir, "G")
ComboBox1.Text = S.Cells(satir, "H")
ComboBox2.Text = S.Cells(satir, "I")
TextBox7.Text = Format(S.Cells(satir, "J"), "hh:mm")
TextBox8.Text = Format(S.Cells(satir, "K"), "hh:mm")
TextBox9.Text = S.Cells(satir, "L")
TextBox10.Text = S.Cells(satir, "M")
TextBox11.Text = S.Cells(satir, "N")
End Sub

Değiştirdiğim yerleri kırmızı ile belirtim.

 

[ormanci_50]

hocam elinize sağlık
iyi günler