Userform pozisyonu aktif hücreye göre ayarlamak

[tamer42]

Merhaba,
Ekli dosyada
sarı boyalı alanda dolu bir hücre seçildiği zaman Userform açılmakta;
Userform' un sol konumunu aktif hüzrenin sağına göre açılmasını nasıl sağlayabiliriz?
ekli görselde olduğu gibi..

teşekkürler,
iyi Çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS As Worksheet

If Intersect(Target, Range("D3:I11")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

UserForm1.Caption = " [ " & Target.Value & " ]"
UserForm1.Label1.Caption = Target.Value

UserForm1.Show

End Sub

 

[DoğanD]

Merhaba,

Dener misiniz?

Userform'un Activate olayına;
UserForm1.Left = ActiveCell.Left + ActiveCell.Width +15

Düzeltme: Denemeden yazmıştım, bende biraz sağlı duruyor. O yüzden 15 ekleyerek hizalayabildim.

 

[bmutlu966]

Alternatif olsun.

 

[tamer42]

Merhaba,

Dener misiniz?

Userform'un Activate olayına;
UserForm1.Left = ActiveCell.Left + ActiveCell.Width +15

Düzeltme: Denemeden yazmıştım, bende biraz sağlı duruyor. O yüzden 15 ekleyerek hizalayabildim.

Teşekkürler Hocam
yalnız bu durum aplikasyon full-screen (tam ekran) olunca oluyor,
yalnız applikasyonu ekran üzerinde küçültüp farklı boyutlara getirdiğimizde bu ayar kayıyor.
ekli ekran görüntüsü....
iyi çalışmalar.

 

[bmutlu966]

Deneyiniz.

 

[DoğanD]

Tekrar merhaba,

Sanırım aşağıdaki gibi işinizi görür, dener misiniz?

Private Sub UserForm_Activate()
Dim dd As Integer
If Application.Left > 0 Then
dd = Application.Left
End If
UserForm1.Left = ActiveCell.Left + ActiveCell.Width + 15 + dd
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu Sayfa1'in kod kısmına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D3:I11")) Is Nothing And Target <> "" Then
        Target.Interior.Color = RGB(255, 0, 0)
        With UserForm1
            .StartUpPosition = 0
            .Caption = " [ " & Target.Value & " ]"
            .Label1.Caption = Target.Value
            .Left = ActiveCell.Left + ActiveCell.Width + 14 + ActiveWindow.Left
            .Top = ActiveCell.Top + 170 + ActiveWindow.Top
            .Show
        End With
        ActiveCell.Interior.Color = RGB(255, 255, 0)
    End If
End Sub