LİNDA
Gold Üye
- Katılım
- 4 Haz 2021
- Mesajlar
- 269
- Çözümler
- 1
- Aldığı beğeni
- 90
- Excel V
- Office 2019 TR
- Gold Bitiş
- 15 Nisan 2026
Konu Sahibi
Merhaba dosyamda userform3 üzerine combobox6 ekledim (evet/Hayır) seçenekleri ile evet seçilmesi durumunda textboxlara kontenjan yazmasını sağlayabiliyorum. Hayır seçeneğine gerek duymuyorum .Bu nedenle Checkbox ile yapmak daha fonsiyonel olacak gibi geliyor. Ama kodlayamadım. Check işareti olması durumunda Textbox5 ten itibaren Textbox14 e kadar "KONTENJAN" yazmasını kaydet ve yenileme tuşlarında nasıl sağlayabiliriz.
combobox6 da şu kodları kullandım
Private Sub ComboBox6_Change()
With Sheets("SONUÇ")
For Each bul In .Range("S2:S" & Sheets("SONUÇ").Range("S65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox6.Value) Then
TextBox5.Value = bul.Offset(0, 1).Value
TextBox6.Value = bul.Offset(0, 1).Value
TextBox7.Value = bul.Offset(0, 1).Value
TextBox8.Value = bul.Offset(0, 1).Value
TextBox9.Value = bul.Offset(0, 1).Value
End If
Next bul
End With
End Sub
Ama kaydet ve yenileme yaptığımda textboxlar boş olarak sayfa yenilenmiyor.
combobox6 da şu kodları kullandım
Private Sub ComboBox6_Change()
With Sheets("SONUÇ")
For Each bul In .Range("S2:S" & Sheets("SONUÇ").Range("S65536").End(3).Row)
If CStr(bul.Value) = CStr(ComboBox6.Value) Then
TextBox5.Value = bul.Offset(0, 1).Value
TextBox6.Value = bul.Offset(0, 1).Value
TextBox7.Value = bul.Offset(0, 1).Value
TextBox8.Value = bul.Offset(0, 1).Value
TextBox9.Value = bul.Offset(0, 1).Value
End If
Next bul
End With
End Sub
Ama kaydet ve yenileme yaptığımda textboxlar boş olarak sayfa yenilenmiyor.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.