Soru userform_activate ile koşullu değeri combobox'a çağırmak

[seckinb]

İyi bayramlar,

combobox'ta 3 tane seçenecek var, bu koşullara göre hücreye veri giriliyor.
Sayfayı yeniden başlattığımda hangini seçtiğimi göremiyorum.

Private Sub tbBINR_Change()
    Select Case tbBINR
        Case "<1,7"
            X = 1
        Case "1,7 - 2,2"
            X = 2
        Case ">2,2"
            X = 3
    End Select
    Sheets("Kimlik").Range("D7") = X
End Sub

bu kod ile girdiğim veriyi nasıl koşul ile geri çağırırım?

Me.tbBINR.Value = ThisWorkbook.Sheets("Kimlik").Range("D7").Value

haliyle çalışmıyor.

 

[seckinb]

Aynı koşulu tersten yazdığımda "UserForm_Initialize"'da bir türlü onu çağıracak kombinasyonu oluşturamadım.

Sub tbil_cek()
Dim sayi1 As Integer, tbil1 As String

sayi1 = Sheets("Kimlik").Range("D9")
If sayi1 = 1 Then tbil1 = "<2 mg/dl"
ElseIf sayi1 = 2 Then tbil1 = "2-3 mg/dl"
ElseIf sayi1 = 3 Then tbil1 = ">3 mg/dl"
End If
Me.tbBbil.Value = tbil1
End Sub

 

[Haluk]

tbBINR = Choose(Sheets("Kimlik").Range("D7"), "<1,7", "1,7 - 2,2", ">2,2")

.

 

[seckinb]

tbBINR = Choose(Sheets("Kimlik").Range("D7"), "<1,7", "1,7 - 2,2", ">2,2")

.

Elinize sağlık. çok iyi çalışıyor.

 

[seckinb]

Aynı durumu değer aralığı şeklinde tanımlayabilir miyim?

şu eğer fonksiyonu yerine

=EĞER(B8>9;"C";EĞER(B8>6;"B";"A"))

B8'deki değeri görüp seçebilir mi? tbCPS isimli textbox?

B8'in içindeki formülü silmeden ama.

 

[Haluk]

tbCPS = IIf(Sheets("Kimlik").Range("B8") > 9, "C", IIf(Sheets("Kimlik").Range("B8") > 6, "B", "A"))

.

 

[seckinb]

tbCPS = IIf(Sheets("Kimlik").Range("B8") > 9, "C", IIf(Sheets("Kimlik").Range("B8") > 6, "B", "A"))

.

değerlerin ilişkili olduğu diğer comboboxları değiştirdiğimde dinamik olarak değer güncellenmiyor.

sanırım "
ControlSource
"
kullanmam gerekiyor ama nasıl?

bu albumin bilirubin falan değerleri değiştiriyor.

 

[Haluk]

UserForm'da kullandığınız bir nesne bende olmadığından, UserForm'u çalıştıramıyorum....

.

 

[seckinb]

Afedersiniz.
formlardaki command button ile bağlı

 

[Haluk]

Bunu demek istemedim, muhtemelen takvim nesnesi gibi birşey kullandınız herhalde .... bende olmadığı için problem oluyor.

.

 

[seckinb]

haklısınız
takvim kullanıyorum

Mevcut durumda kodu gönderebiliyor sanırım

 

[seckinb]

şöyle bir takvim eklentisi kullanıyorum

 

[seckinb]

takvim eklentisi ile ilgili sorunu çözebildiniz mi?

 

[Haluk]

Doğrusu, verdiğiniz eklentiyi kurmadım ....Umarım, Userform'u çalıştıran diğer üyeler size yardımcı olacaktır.

.

 

[seckinb]

Doğrusu, verdiğiniz eklentiyi kurmadım ....Umarım, Userform'u çalıştıran diğer üyeler size yardımcı olacaktır.

.

Datepicker'ı çıkararak dosyayı tekrar gönderdim. Başaramadım bir türlü. çok afedersiniz.

 

[Haluk]

Estağfurullah, ama UserForm yine çalışmadı.... üzgünüm.

.