Değer değiştirme düğmesi

[mesutaygun70]

Kolay gelsin. Benim formumda a1 hücresinde başka sayfadan bilgiler var. 3500 den fazla satırımda veri var. Ben değer değiştirme düğmesi yaparak her seferinde bir satır alta geçmek istiyorum.
Örneğin Sayfa1!a1=(İZLEM!C1) düğmeye bastığımda (İZLEM!C2) olsun, tekrar bastığımda (İZLEM!C3) düğme Sayfa1 A1 üzerinden işlem yapacak

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Ilerlet()

    Dim S1 As Worksheet, sat As Long
    
    Set S1 = Sheets("Sayfa1")
    
    sat = Range(S1.Range("A1").Formula).Row
    
    S1.Range("A1") = "=İZLEM!C" & sat + 1
    
End Sub

.

 

[mesutaygun70]

Teşekkürler kod çalışıyor ama bir sıkıntı var. Hücre değerini metin olarak değiştiriyor ve şu şekilde kalıyor. İzlem!c10 . Bunun içindeki formülü görmüyor. Formatın formül olarak kalması için ne yapmam gerekir. Birde değer değiştirme düğmesi kullanmayı düşünüyorum. Aşağı ve yukarı yön tuşunda +1 yada -1 şeklinde nasıl ayarlayabilirim.
örnek dosya ekledim
http://s3.dosya.tc/server11/ak3skv/KisiListesi_07.04.2017__15-49.rar.html

 

[Ömer]

İstediğiniz bu mu?

Sub DeğerDeğiştirici2_Değiştir()

    Dim S1 As Worksheet, sat As Long
    
    Set S1 = Sheets("İZLEM")
    
    'sat = Range(S1.Range("C1").Formula).Row
    S1.Range("C1").NumberFormat = "General"

    S1.Range("C1") = "=VERİ!B" & ActiveSheet.Shapes("Spinner 2").ControlFormat

End Sub

.