userform

[emrebengul]

şimdi userformu oluşturdum orada tarih ve vardiyayı seçtiğinde o tarihe ve vardiyaya karşılık gelen bilgileri otomatik alttaki kutucuklara yazacak yardımcı olur musunuz?Ekli dosyayı görüntüle userform.xlsm

 

[emrebengul]

Yardımcı olabilrmisiniz?

 

[xydoca]

Merhaba Emre Bey,

ComboBox ile tarih girmek çok pratik değil. O yüzden TextBox ile değiştirdim.

Sub getir()
Dim Satir As Integer, indis As Integer

Satir = Application.WorksheetFunction.Match(CDbl(CDate(TextBox1)), Range("A:A"), 0)
If OptionButton1.Value = True Then indis = 0
If OptionButton2.Value = True Then indis = 1
If OptionButton3.Value = True Then indis = 2

Me.TextBox2.Value = Application.Sheets("Sayfa1").Cells(Satir + indis, 4)
Me.TextBox3.Value = Application.Sheets("Sayfa1").Cells(Satir + indis, 12)
Me.TextBox4.Value = Application.Sheets("Sayfa1").Cells(Satir + indis, 13)
Me.TextBox5.Value = Application.Sheets("Sayfa1").Cells(Satir, 14)

End Sub
Sub OptionButton1_Change()
    Call getir
End Sub
Sub OptionButton2_Change()
    Call getir
End Sub
Sub OptionButton3_Change()
    Call getir
End Sub

http://s6.dosya.tc/server11/s5m50n/userform__1_.rar.html

 

[emrebengul]

Hata veriyor hala anlamadım

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[emrebengul]

öncelikler teşekkür ederim.
Fakat Tarih kısmında sıkıntı oluyor anlamadım niye öyle oluyor

 

[xydoca]

Yüklediğim dosyada userform'u çalıştırıpTextBox'a tarihi 05.07.2017 gibi girin. Vardiya seçince değerler gelmeli.

Gelen hata mesajını paylaşırsanız sorunu bulmak daha kolay olur. Dosya benim bilgisayarımda şu an sorunsuz çalışıyor.

Listede olmayan bir tarih girmeniz durumunda da hata mesajı alabilirsiniz.