Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
28 Mayıs 2021
1112
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın isimli kodu kullanarak sütunda herhangi hücreye tıklayarak UserForm'un açılmasını sağlarsınız.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Or Target.Column = 3 Then
UserForm1.Show
End If
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Üstteki kodlar herhangi bir sayfanın kod bölümüne yazılınca ve 1. ve 3. sütunda yer alan herhangi bir hücreye çift tıklayınca UserForm açılır.
1 ve 3 değeri sütun numaralarını ifade eder.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Veri Aralığının En Altına Gitme | Ctrl ↓ |
| Tablonun Satırını Seçme | Shift Space |
| Bir Ekran Yukarı Git | PgUp |
| Yapıştır / Alternatif | Shift Insert |
| Dosya Açma | Ctrl O |