Kamera kutucuklarının hareket etmesi

[gedavet]

Iyi günler dilerim
listenin altındaki kamera kutucuklarının sadece aşağıya doğru hareket etmesini istiyorum listeye satır ekledikce yardımlarınız için şimdiden teşekkür ederim

 

[gedavet]

Dosyayı eklemeyi unutmuşuyum ekledim

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Son_Satır As Long
    Son_Satır = Range("B65536").End(3).Row
    ActiveSheet.Shapes("Picture 10").Top = Cells(Son_Satır + 2, 2).Top
    ActiveSheet.Shapes("Picture 11").Top = Cells(Son_Satır + 2, 5).Top
    ActiveSheet.Shapes("Picture 12").Top = Cells(Son_Satır + 2, 8).Top
End Sub

 

[gedavet]

Private Sub Worksheet_Change(ByVal Target As Range)
teşekkür ederim ancak baştaki koddan aynı başka bir kod vardı hata verdi
yanlız sadece bukodu uyguladım oldu ancak 2. kodla birleştirmem lazım

 

[gedavet]

iyi günler diliyorum korhan beyin yaptığı kodu uyguladım hancak bundan dolayı excelde bir yavaşlam oldu bunu nasıl hızlandırırız