userform'u pasifleştirmek

[uzmanamele]

merhaba
sayfa aktif olunca Userform ekrana gelsin ama aynı zamanda excel sayfasında manuel çalışmaya izin versin.
yani, açık olan UserForm ekranda görünsün ama pasif halde kalsın. gerektiğinde UserForm üzerindeki nesnelerin kullanımınada olanak sağlasın.
bu mümkün mü?

Private Sub Worksheet_Activate()
UserForm1.Show
'UserForm1.Passive
'UserForm1.Inactive
End Sub

 

[N.Ziya Hiçdurmaz]

Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub

 

[Zeki Gürsoy]

Şu başlıktaki fikirler işinize yarar mı?

http://www.excel.web.tr/showthread.php?t=23867&highlight=pasif

 

[uzmanamele]

merhaba
syn N.Ziya Hiçdurmaz, çok teşekkür ederim.

Private Sub Worksheet_Activate()
UserForm1.Show 0
End Sub

yukarıdaki şekilde UserForm pasif halde kalıyor ama sayfa değiştiğinde ekranda kalıyor. başka sayfaya geçerken UserForm'u nasıl kapatırız?

Private Sub Worksheet_Deactivate()
'UserForm1.Show.Close
End Sub

 

[uzmanamele]

merhaba
syn Zeki Gürsoy, çok teşekkür ederim

Private Sub Worksheet_Deactivate()
UserForm1.Hide
End Sub

 

[uzmanamele]

merhaba
aktif sayfada UserForm pasif halde ama form ekranı ortaladığı için fare ile ona yeni bir park yeri bulmak gerekiyor.
userform ekrana geldiğinde C5 hücresinin altında parketmesini sağlayabilir miyiz?

 

[N.Ziya Hiçdurmaz]

Yanıt

Rakamlarla oynayarak istediğiniz yere getirebilirsiniz

Private Sub UserForm_Activate()
UserForm1.Left = 150
UserForm1.Top = 250
End Sub

 

[Zeki Gürsoy]

Böyle de olabilir,

With Me
    .StartUpPosition = 0
    .Top = [c6].Top + 120
    .Left = [c6].Left + 40
End With

 

[uzmanamele]

merhaba
syn N.Ziya Hiçdurmaz ve syn Zeki Gürsoy, ilginize teşekkür ederim.
önerdiğiniz kodlarla userfor'un belirli bir adreste açılmasını sağlıyoruz ama parkettiremiyoruz. sayfa içersinde aşağıya veya sağa hareket ettiğimizde peşimizden geliyor.
ilk park ettiği yerde sabit kalmasını nasıl sağlarız?

 

[karagöz55]

Sub maro_adı()
UserForm1.StartUpPosition = 0
UserForm1.Left = 600
UserForm1.Top = 100
UserForm1.Show 0
End Sub

kodu sanırım işinizi görür
ama bunu module sayfasına yazmanız gerekiyor

 

[uzmanamele]

merhaba
syn karagöz55 teşekkür ederim.

sanırım tek yol C5 hücresi üzerine boton koyarak ihtiyacımız olduğu anda userformu çağırmak. diğer türlü userform,A250 hücresinde işlem yaparken peşimizden gelmekte.

Sub Düğme1_Tıklat()
UserForm1.Show 0
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$5" Then
UserForm1.StartUpPosition = 0
UserForm1.Left = 70
UserForm1.Top = 148
UserForm1.Show 0
Else
Unload UserForm1
End If
End Sub

 

[karagöz55]

C5 hücresi üzerine koyacağınız buton için klavyeden kısayol tuşu atarsanız butonun görünmediği hücrelerde çalışırken bile klavye kısayol tuşu ile istediğiniz zaman rahatlıkla userformu çalıştırabilirsiniz

 

[uzmanamele]

merhaba
syn Seyit Tiken, teşekkür ederim.
userform'un açılması için C5 hücresinin tıklanması gerekiyor, buda bir alternatif.
yapmaya çalıştığım, başka kullanıcıların userform'u kullanabilmesini sağlamak.
kendim çalışırken birçok alternatif kullanabilirim ama dosyayı ilkkez kullanacak olan başka bir kullanıcı ne C5 hücresinin tıklanacağını bilebilir nede klavye kısayolunu.
galiba en mantıklısı formçağır adında buton oluşturarak bu butondan userform'u aktifleştirmek.