UserForm Açılsın ya da açılmasın

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Altın Üyelik Bitiş Tarihi
22-03-2026
Arkadaşlar yardımınıza ihtiyacım var
A5 ile A250 arasındaki hücrelere tıklayınca UserForm açılıyor.
A5 ile A250 arasında bir hücreye tıkladığımızda, aynı hücreye karşılık gelen FK5:FK250 arasındaki değer hücre değeri, Eğer "z","c" ise form açılsın; değilse (0 ya da boş ise) tıklayınca form açılmasın. Aşağıdaki koda nasıl bir eklenti yaparsak bu şartı sağlayabiliriz?
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Then Exit Sub
    If Target.Column = 1 Then
        KemirgenFormu.Show 0
    Else
        Unload KemirgenFormu
End If
Şimdiden teşekkür ederim.
 

Ekli dosyalar

Son düzenleme:
Katılım
18 Ocak 2019
Mesajlar
234
Excel Vers. ve Dili
Office 2013
Merhaba @excellkurdu

Denermisiniz.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Then Exit Sub
    If Target.Column = 1 Then
      if sayfa1.cells(target.row, "fk")="z" or sayfa1.cells(target.row, "fk")="c" then
        KemirgenFormu.Show 0
       end if
    Else
        Unload KemirgenFormu
End If
 

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Altın Üyelik Bitiş Tarihi
22-03-2026
Merhaba @excellkurdu

Denermisiniz.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 1 Then Exit Sub
    If Target.Column = 1 Then
      if sayfa1.cells(target.row, "fk")="z" or sayfa1.cells(target.row, "fk")="c" then
        KemirgenFormu.Show 0
       end if
    Else
        Unload KemirgenFormu
End If
Merhaba Hocam teşekkür ederim. 3 gündür bunu yapamadım. (Sayfa1 mantığını anlamasamda) Allah razı olsun.
 
Katılım
18 Ocak 2019
Mesajlar
234
Excel Vers. ve Dili
Office 2013
Rica Ederim. Dönüş yaptığınız için, Teşekkür Ederim.
Allah c.c cümlemizden razı olsun.
 
Üst