DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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.
C++: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
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.Tamamdır çok teşekkür ederimMerhaba,
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.