matrakkisi
Yeni Üye
- Katılım
- 15 Haz 2023
- Mesajlar
- 29
- Aldığı beğeni
- 4
- Excel V
- Office 2021 TR
Konu Sahibi
Merhaba öncelikle herkese,
Şimdiden yardımlarınız emekleriniz için teşekkür eder, iyi akşamlar dilerim.
UserForm2 ve UserForm4 olarak 2 formu birbirine UserForm2'nin CommandButton1'i ile UserForm4.show diyerek bağladım bunu yaptığımda aynı zamanda başka kodlar da yazdım bunlar: bazı Checkboxlar Userform4 üzerinde visible bazıları ise visible=false idi. Visible'ları seçtiğim vakit bir hücreye tik şeklinde yazsın, seçmediğimde ise "x" şekli atsın diye komut verdim. Ancak önceki sayfadan visible olarak seçmediğim yani visible olmayan invisible olan değerler de sanki ben seçmemişim gibi "x" yazılıyor. Bu problemi nasıl çözebilirim, şimdiden yardımlarınızı beklerim değerli vaktinizi ayırıp yardımcı olabilirseniz çok memnun ve çok müteşekkir olurum. Şimdiden çok teşekkür ederim.
4 tane checkbox tanımladım ama diğerleri zaten visible değil zaten istesem de seçemem.
Ancak sanki ben isteyerek seçmemişim gibi visible ama ben tiklemedim deyip aşağıdaki gibi geliyor.
Problem yaşadığım kod burası olabilir. UserForm4 altında:
If UserForm4.CheckBox1.Value = True Then
Sheets("Datas").Cells(12, 8).Value = "R"
Else
Sheets("Datas").Cells(12, 8).Value = "Q"
End If
If UserForm4.CheckBox2.Value = True Then
Sheets("Datas").Cells(16, 8).Value = "R"
Else
Sheets("Datas").Cells(16, 8).Value = "Q"
End If
If UserForm4.CheckBox3.Value = True Then
Sheets("Datas").Cells(20, 8).Value = "R"
Else
Sheets("Datas").Cells(20, 8).Value = "Q"
End If
If UserForm4.CheckBox4.Value = True Then
Sheets("Datas").Cells(24, 8).Value = "R"
Else
Sheets("Datas").Cells(24, 8).Value = "Q"
End If
End Sub
NOT: R ve Q dememin sebebi Wingdings 2 Fontunda R nin tike Q'nun ise X ya karşılık gelmesiydi. Eğer bu şekilde tiklediğimde tik ve tiklemediğimde çarpı getiren başka bir öneriniz varsa memnuniyetle ve heyecanla incelemek isterim. Şimdiden çok teşekkürler çok sağ olun.
Şimdiden yardımlarınız emekleriniz için teşekkür eder, iyi akşamlar dilerim.
UserForm2 ve UserForm4 olarak 2 formu birbirine UserForm2'nin CommandButton1'i ile UserForm4.show diyerek bağladım bunu yaptığımda aynı zamanda başka kodlar da yazdım bunlar: bazı Checkboxlar Userform4 üzerinde visible bazıları ise visible=false idi. Visible'ları seçtiğim vakit bir hücreye tik şeklinde yazsın, seçmediğimde ise "x" şekli atsın diye komut verdim. Ancak önceki sayfadan visible olarak seçmediğim yani visible olmayan invisible olan değerler de sanki ben seçmemişim gibi "x" yazılıyor. Bu problemi nasıl çözebilirim, şimdiden yardımlarınızı beklerim değerli vaktinizi ayırıp yardımcı olabilirseniz çok memnun ve çok müteşekkir olurum. Şimdiden çok teşekkür ederim.
4 tane checkbox tanımladım ama diğerleri zaten visible değil zaten istesem de seçemem.
Ancak sanki ben isteyerek seçmemişim gibi visible ama ben tiklemedim deyip aşağıdaki gibi geliyor.
Problem yaşadığım kod burası olabilir. UserForm4 altında:
If UserForm4.CheckBox1.Value = True Then
Sheets("Datas").Cells(12, 8).Value = "R"
Else
Sheets("Datas").Cells(12, 8).Value = "Q"
End If
If UserForm4.CheckBox2.Value = True Then
Sheets("Datas").Cells(16, 8).Value = "R"
Else
Sheets("Datas").Cells(16, 8).Value = "Q"
End If
If UserForm4.CheckBox3.Value = True Then
Sheets("Datas").Cells(20, 8).Value = "R"
Else
Sheets("Datas").Cells(20, 8).Value = "Q"
End If
If UserForm4.CheckBox4.Value = True Then
Sheets("Datas").Cells(24, 8).Value = "R"
Else
Sheets("Datas").Cells(24, 8).Value = "Q"
End If
End Sub
NOT: R ve Q dememin sebebi Wingdings 2 Fontunda R nin tike Q'nun ise X ya karşılık gelmesiydi. Eğer bu şekilde tiklediğimde tik ve tiklemediğimde çarpı getiren başka bir öneriniz varsa memnuniyetle ve heyecanla incelemek isterim. Şimdiden çok teşekkürler çok sağ olun.
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.
