Soru KAYAN METİN KUTUSUNU NASIL YAPILABİLİR?

[Avolkan0]

Merhaba

Bir metin kutusunun sürekli ekranda görünmesini istiyorum. Yani ben çalışma sayfasını aşağı doğru kaydırsam da metin kutusu sürekli görünsün. Mesela hep sağ üstte kalacak şekilde olabilir. Mümkün müdür?

 

[dEdE]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?
Hücreye tıkladığınızda Metin Kutusu ekranın sağ üst köşesine gelir. İsterseniz pasif satırı aktive ederek(bir üstekini de pasif yaparak) sol üst köşeye de alabilirsiniz. Metin kutusunun adını gerekliyse kendinize göre değiştirmelisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sut = ActiveWindow.ActivePane.VisibleRange.Columns.Count - 3
    With ActiveSheet.Shapes("Metin kutusu 1")
        .Top = ActiveWindow.ActivePane.VisibleRange.Offset(, Sut).Top
        .Left = ActiveWindow.ActivePane.VisibleRange.Offset(, Sut).Left'sağ üst köşe
       ' .Left = ActiveWindow.ActivePane.VisibleRange.Offset(, 0).Left'sol üst köşe
    End With
End Sub

 

[Avolkan0]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?
Hücreye tıkladığınızda Metin Kutusu ekranın sağ üst köşesine gelir. İsterseniz pasif satırı aktive ederek(bir üstekini de pasif yaparak) sol üst köşeye de alabilirsiniz. Metin kutusunun adını gerekliyse kendinize göre değiştirmelisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sut = ActiveWindow.ActivePane.VisibleRange.Columns.Count - 3
    With ActiveSheet.Shapes("Metin kutusu 1")
        .Top = ActiveWindow.ActivePane.VisibleRange.Offset(, Sut).Top
        .Left = ActiveWindow.ActivePane.VisibleRange.Offset(, Sut).Left'sağ üst köşe
       ' .Left = ActiveWindow.ActivePane.VisibleRange.Offset(, 0).Left'sol üst köşe
    End With
End Sub

Evet bu şekilde çalışıyo ama metin kutusunun bi kısmı ekran dışına çıkıyor.



Anca böyle metin kutusunu daraltırsam tamamı görünüyor. Ama bu şekilde de yazdıklarım düzensiz görünecek.

 

[dEdE]

Merhaba,
Metin kutusunun büyüklüğüne göre, Sut = ActiveWindow.ActivePane.VisibleRange.Columns.Count - 3 satırındaki 3 sayısını artırarak deneme/yanılma yoluyla istediğiniz şekilde ekrana yerleştirebilirsiniz.
Ayrıca sol üst köşeye yerleştirirseniz boyut sorun olmaz.

 

[Avolkan0]

Merhaba,
Metin kutusunun büyüklüğüne göre, Sut = ActiveWindow.ActivePane.VisibleRange.Columns.Count - 3 satırındaki 3 sayısını artırarak deneme/yanılma yoluyla istediğiniz şekilde ekrana yerleştirebilirsiniz.
Ayrıca sol üst köşeye yerleştirirseniz boyut sorun olmaz.

Tamamdır çok teşekkür ederim