Command Button: nhảy đến Cell định trước

[nguyenvnn]

Em cần ac giúp:
Ở sheet 1 em cần add 3 nút , khi bấm vào sẽ nhảy đến cell A10, A20, A30 ở sheet 2 ạ.

Xin cảm ơn

 

[huuthang_bd]

Application.Goto Sheet2.Range("A10")

 

[thanhphongtslocphat]

Bạn tạo 3 nút ở Sheet1 rồi rán code này vào

Sub Macro1()
' Macro1 Macro
Sheets("Sheet2").Select
Range("A10").Select
End Sub

Sub Macro2()
' Macro2 Macro
Sheets("Sheet2").Select
Range("A20").Select
End Sub

Sub Macro3()
' Macro3 Macro
Sheets("Sheet2").Select
Range("A30").Select
End Sub

 

[VetMini]

Nối cả 3 cái nút ấy vào macro này:

Sub Macro1()
Select Case Application.Caller
Case "Button 1"
Application.Goto Sheet2.Range("A10")
Case "Button 2"
Application.Goto Sheet2.Range("A20")
Case "Button 3"
Application.Goto Sheet2.Range("A30")
End Select
End Sub