Çift Tıklama ile User Formun açılması

[siar]

Merhabalar,

Bir excel sayfası üzerinde verilerim var ve bu verileri bir user form ile giriyorum. Yapmak istediğim excel sayfası üzerinde o kişiye ait satır üzerinde çift tıkladığımızda User Formun açılması. Yardımlarınızı bekliyorum. Teşekkürlerimle,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanızın kod bölümüne uygulayınız. Bu kod sayfada A sütununda herhangi bir hücreye çift tıkladığınızda ilgili formu açar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
If Target <> "" Then UserForm1.Show
End Sub

 

[siar]

İlk önce ilginize teşekkür ederim Sn. Cost Control. Lakin A2 hücresini çift tıkladığımda, Compile Error ile karşılaşıyorum. Hata mesajı ise "Can't find project or library"

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [A1:A1000]) Is Nothing Then Exit Sub
UserForm1.Show 0
End Sub

 

[Korhan Ayhan]

Selamlar,

Yukarıdaki kodda ufak bir revize yaptım. A sütununda tıkladığınız hücre boş değilse çalışacaktır. Eğer yine hata mesajı alırsanız dosyanızı eklermisiniz.

 

[siar]

Maalesef bu kodu yazdığımda [A2:A65536] bölümünde bir hata oluşuyor ve formu açmıyor. Aynı şekilde Seyit Bey'in formülünde de [A1:A1000] bölümü hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Kodun çalışmamasının sebebi çift tıkladığınız hücrelerin boş olması. Hücre boşta olsa çift tıkladığınızda formun açılması için kodu aşağıdaki şekilde uygulayıp denermisiniz.

Not: Ben eklemiş olduğunuz örnek dosya üzerinde aşağıdaki kodu denedim çalışıyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "Ali" Then UserForm1.Show 0
End Sub

 

[siar]

Aslında yapmaya çalıştığım şey, excel sayfas üzerinde oluşacak listede, herhangi bir satırda değişiklik yapmak için liste üzerindeki ismi çift tıkladığımda, userform ile beraber o kişiye ait bilgilerin forma gelmesi.

 

[siar]

Ya da buna benzer bir örnek uygulama varsa görmek isterim. Ben bulamadım bir türlü

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[siar]

Bu örnek benim için çok açıklayıcı oldu. Teşekkür ederim.Sn. Cost Control

 

[siar]

Sn. Cost Control ilave ettiğiniz örnekteki kodları kendi formuma uyarlamaya çalıştığım zaman CommanButton1 e iki farklı kod ilave etmiş oluyorum ve işlem çalışmıyor. Örneğimi ekte sunuyorum. Hatamın nereden kaynaklandığını söyleyebilirseniz çok sevinirim. Saygılar,

 

[Korhan Ayhan]

Selamlar,

Veri sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, Range("A2:A65536")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

Hatanıza gelince CommanButton1 e iki adet kod yazmışsınız. Formunuzun üzerinde başka bir buton oluşturup ikinci kodları bu butona atamanızı öneririm. Ayrıca UserForm1_Initialize olayınada iki adet kod yazmışsınız. Bunları birleştirebilirsiniz.

 

[siar]

Galiba kodu formuma entegre ederken birşeyleri karştırdım lakin nerede hata yaptığımı bulamadım. Ekteki belge üzerinde yardımlarınızı rica edeceğim. Teşekkürlerimle.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızda nasıl bir sıkıntı yaşıyorsunuz. Eğer problem hücrede çift tıklayıp formunuzun açılmaması ise bir önceki mesajımdaki kodu güncelledim. Dosyanızdaki kodu silip güncellenen kodu kullanın.

 

[siar]

Sn. Cost Control

Dediğiniz gibi tüm kodları silip tekrarforma uyarladım lakin, CheckBox properties lerinde bir şeyi yapmıyorum galiba. Çünkü UserForm1 i çalıştırmak istediğimde, CheckBox özellikleri yanlış olamaz diye bir hata mesajı ile karşılaşıyorum. Çift tıklama ile sadece text boxları değil, DTPicker, CheckBox, ComboBox ve ListBoxları da çağırıyorum. Burada nesnenin özellikleri ile ilgili birşeyi eksikl yapıyorum ama maalesef nerede yaptığımı dün geceden beri çıkaramadım. Şimdiden teşekkür ederim.