UserForm'un Aktif Hücrenin Solunda Açılması

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar, Userform'un "aktif hücrenin" solunda açılması için şöyle bir kod kullanıyorum,

UserForm4.Left = ActiveCell.Left

Yalnız şöyle bir sıkıntı var, "aktif hücre" sağ tarafa doğru gidikçe, Userform "aktif hücrenin" solunda sabit durmuyor, sağa doğru kayıyor. İstenilen aktif hücre nerede olursa, Userform daima "aktif hücrenin" solunda sabit olarak açılsın, teşekkür ediyorum, Allah razı olsun.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi denediniz mi acaba?

UserForm4.Left + UserForm4.Width = ActiveCell.Left

 

[Seyit Tiken]

Ömer bey olmadı, teşekkür ediyorum.

 

[Ömer BARAN]

UserForm4.Width kısmını NEGATİF olarak eşitliğin sağına alarak dener misiniz?
.

 

[Seyit Tiken]

Ömer abe değişen bir yok...

 

[Ömer BARAN]

-- Userform'un StartUpPozition özelliği değiştirilmeli.
-- Userform'un LEFT kısmı için ,bir minimum değer tespiti gerekecek (örneğin A sütununda bir hücre aktif, bu durumda solunda hücre yok)
-- Aktif hücre LEFT değeri - userformun genişliği şeklinde düşündüm.
Hiç kullandığım mevzu olmadı şimdiye kadar. Bir de böyle deneyin isterseniz.

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Left = ActiveCell.Left - Me.Width
    Me.Top = ActiveCell.Top
End Sub

 

[Seyit Tiken]

Ömer abe değerli vaktinizi ayırdığınız için teşekkür ediyorum, Allah razı olsun, olası nedenlerini araştırıyorum, daha tam çözüme ulaşmış değilim.

 

[Haluk]

Bahsettiğiniz UserForm4 modülüne aşağıdakini yapıştırıp, deneyin.

İyi-kötü idare eder...

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
    Me.Left = ActiveCell.Left - (Me.Width) / 2 - ActiveCell.Width
    Me.Top = ActiveCell.Top + Me.Height / 2
End Sub

 

[Seyit Tiken]

Haluk abe, boş sayfada yaptığım testlerde istenilen oluyor, ama, bu çalışma sayfasında tam olarak olmuyor, teşekkür ediyorum, Allah razı olsun.
Örnek dosyayı gönderiyorum.