butona her basışta bir alt satırın değerini alma ve yazdırma

[ilhan40]

istediğimi ekteki dosyada yazdım bu konudaki yardımlarınızı bekilyorum.şimdiden yardımlarınız için teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SayYaz()
Range("H1") = Range("H1") + 1
    Range("F2") = Range("H" & [H1] + 1)
    ActiveSheet.PrintOut
End Sub

.

 

[ilhan40]

ömer hocam teşekürler tam istediğim gibi eline ve emeğine sağlık.