Userform'da textbox'ları belli bir hücre doluysa gösterme ve gizleme

[ekremmk]

Herkese kolay gelsin
Benim userform'umda bazı textbox'ların belli bir hücre doluysa gösterilmesi lazım boşsa gösterilmemesi lazım örneğin userform1
sayfa1!B4 dolu ise gösterilmesi boş ise gösterilmemesi lazım.
Şimdiden teşekkür eder iyi günler dilerim.

 

[Mdemir63]

Selamlar
Sayın Uzman arkadaşlarım daha iyi çözümler üretebilirler ama ben bildiğim kadarıyla aşağıdaki şekilde yapmaya çalıştım.
Sayfanın kod penceresine kopyalayıp Sayfa1 B4 hücresine herhangi bir giriş yaparak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B4")) Is Nothing Then
        If Range("B4") <> "" Then
        UserForm1.Show
        End If
    End If
End Sub

Bu kodları da Userform1 initialize olayına yapıştırarak Sayfa1 B1 hücresine giriş yaparak Textbox sın durumunu gözlemleyin

Private Sub UserForm_Initialize()
    If Sheets("Sayfa1").Range("B1") <> "" Then
        Me.TextBox1.Visible = True
    Else
        Me.TextBox1.Visible = False
    End If
End Sub