kayan not eklemek istiyorum

[cühela1]

ekranın sol tarafına veri girişi yaparken sağ tarafa eklediğim notlar sayfa aşağı indikce otomatik sayfayla beraber hareket etsin aşağı insin istiyom.
Teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Notu nasıl ekliyorsunuz? Örnek dosya paylaşırsanız ona göre çözüm önerileri gelecektir.

 

[volki_112]

ekranın sol tarafına veri girişi yaparken sağ tarafa eklediğim notlar sayfa aşağı indikce otomatik sayfayla beraber hareket etsin aşağı insin istiyom.
Teşekkür ederim

hocam istediğin işi yapacak kod. Seçili hücrenin 5 sütun sağına metin kutusunu yerleştirir. Seçili hücre değiştikçe metin kutusunun yeri otomatik değişir. Metin Kutusunun adını mtn yapın. O şekilde çalışır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim shp As Shape
    Dim ws As Worksheet
    Dim cellTop As Double
    Dim cellLeft As Double
    
    ' Çalışma sayfasını tanımla
    Set ws = Me
    
    ' "mtn" adındaki şekli bul
    On Error Resume Next
    Set shp = ws.Shapes("mtn")
    On Error GoTo 0
    
    ' Eğer şekil bulunamazsa işlemi durdur
    If shp Is Nothing Then Exit Sub
    
    ' Seçili hücrenin koordinatlarını al
    cellTop = Target.Top
    cellLeft = Target.Offset(0, 5).Left
    
    ' Şekli yeni konuma taşı
    With shp
        .Top = cellTop
        .Left = cellLeft
    End With
    
End Sub