Nöbet

[tetik57]

Merhabalar linkte gondermis oldugum resimdeki userformda 5 baslik var ve textboxlar var excelde 1nisandan 30 nisana kadar olan nobet tutacak personelin listesi var ben user fprmda guncelleye bastigimda bana user forma atiyorum bugun 21 nisan 21 nisanin nobet tutan personelin ismini textboxa yazacak yani rapor al dedigimde pdf olarak kaydedicek temizle kismini hallettim ama tarih kismi cok onemli guncelleye bastigim anda bugun ayin kaciysa o gunku personeli yazacak
https://www.hizliresim.com/prr8hlw
https://www.hizliresim.com/fve389u

 

[tetik57]

Yardım edecek yok mu

 

[tukayf]

ekran resmi yerine örnek dosyanızı yüklerseniz yardım alma ihtimaliniz çok yükselecektir.

 

[tetik57]

ekran resmi yerine örnek dosyanızı yüklerseniz yardım alma ihtimaliniz çok yükselecektir.

Merhabalar askeriyede oldugum icin programi atamiyorum karanet var askeri internet

 

[tukayf]

örnek dosya olmadan bişeyler uyarlamaya çalıştım umarım olmuştur.

Private Sub CommandButton1_Click()

With Sheets("Sheet1")
For Each bul In .Range("A2:A" & Sheets("Sheet1").Range("A65536").End(3).Row)
If CStr(bul.Value) = CStr(TextBox1.Value) Then
TextBox2.Value = bul.Offset(0, 1).Value
TextBox3.Value = bul.Offset(0, 2).Value
TextBox4.Value = bul.Offset(0, 3).Value
TextBox5.Value = bul.Offset(0, 4).Value
End If
Next bul
End With

End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub

 

[tetik57]

örnek dosya olmadan bişeyler uyarlamaya çalıştım umarım olmuştur.

Private Sub CommandButton1_Click()

With Sheets("Sheet1")
For Each bul In .Range("A2:A" & Sheets("Sheet1").Range("A65536").End(3).Row)
If CStr(bul.Value) = CStr(TextBox1.Value) Then
TextBox2.Value = bul.Offset(0, 1).Value
TextBox3.Value = bul.Offset(0, 2).Value
TextBox4.Value = bul.Offset(0, 3).Value
TextBox5.Value = bul.Offset(0, 4).Value
End If
Next bul
End With

End Sub


Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub

Eywallah hocam sorun çözülmüştür teşekkür ederim

 

[tukayf]

Rica ederim hayırlı görevler.