Sayfa boyunca butonu aşağı doğru kaydırma

[mhmtfthnl]

Bunu yapması için aşağı doğru dolan satırları veri olarak alacak.Buton, dolan en son satırın yanına yerleşecek.Böylelikle konumu aşağı doğru kayacak.

 

[mhmtfthnl]

bu kod çalışması gerekmiyor mu.acaba hatası nerede

 Sub button()
If Range("$C$" & [C65536].End(3).Row + 1).Value = "" Then
CommandButton1.Top.Value = CommandButton1.Top.Value
Else: CommandButton1.Top.Value = CommandButton1.Top.Value + 1
End If
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Rows(1).Top
End Sub

 

[mhmtfthnl]

çalıştıramadım.

 

[Seyit Tiken]

İmleci aşağı/yukarı kaydırarak butonun haretini gözlemleyin. Ekli dosyayı inceleyiniz.

 

[mhmtfthnl]

slm.teşekkürler çok güzel.

ama benim selection aşağı doğru inmiyor .sadece değerler aşağı doğru akıyor.

 

[mhmtfthnl]

slm

Yazdığım aşağıdaki kod çalışıyor ama verilerin yazıldığı her sütun için buton aşağı kayıyor.Nasıl düzeltebilirim acaba.ben her satır için 1 satır genişliği butonun aşağı kaymasını istiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C3").Value = "" Then
CommandButton8.Top = CommandButton8.Top
Else: CommandButton8.Top = CommandButton8.Top + 1.82
End If
End Sub