Gán tên Sheet trong code bằng giá trị của 1 ô cell

[namhandsome1]

Các bác ơi giúp em với! Em mới học vba, em có đoạn code như này:

Sub demo()
Dim endrow As Long
endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
...................
End Sub


Bây giờ em muốn thay thế cái chữ "Sheet2" bôi đỏ kia bằng 1 giá trị của 1 ô cell thì làm như nào ạ? Thanks các bác?

 

[huuthang_bd]

Các bác ơi giúp em với! Em mới học vba, em có đoạn code như này:

Sub demo()
Dim endrow As Long
endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
...................
End Sub
Bây giờ em muốn thay thế cái chữ "Sheet2" bôi đỏ kia bằng 1 giá trị của 1 ô cell thì làm như nào ạ? Cảm ơn các bác?

endrow = Sheets(SheetNaoDo.Range(ONaoDo)).Range("A" & Rows.Count).End(xlUp).Row

Muốn cụ thể hơn thì phải có thông tin chi tiết hơn.

 

[namhandsome1]

endrow = Sheets(SheetNaoDo.Range(ONaoDo)).Range("A" & Rows.Count).End(xlUp).Row

Muốn cụ thể hơn thì phải có thông tin chi tiết hơn.

file dinh kèm của mình đây ạ, mình muốn thay thế cái ô sheet1 trong code module bằng giá trị ô B3 trong sheet 1 ạ?

 

[huuthang_bd]

file dinh kèm của mình đây ạ, mình muốn thay thế cái ô sheet1 trong code module bằng giá trị ô B3 trong sheet 1 ạ?

Sub demo()
Dim endrow As Long
endrow = Sheets(Sheet1.Range("B3").Value).Range("A" & Rows.Count).End(xlUp).Row

'minh muon cho sheet1 ben tren duoc thay the tu dong bang gia tri cua o B3 trong sheet1
MsgBox Sheet1.Range("B3").Value & " co: " & endrow & " Dong"

End Sub

 

[namhandsome1]

Sub demo()
Dim endrow As Long
endrow = Sheets(Sheet1.Range("B3").Value).Range("A" & Rows.Count).End(xlUp).Row

'minh muon cho sheet1 ben tren duoc thay the tu dong bang gia tri cua o B3 trong sheet1
MsgBox Sheet1.Range("B3").Value & " co: " & endrow & " Dong"

End Sub

thansk bác nhiều nha!

Bài đã được tự động gộp: 21/9/18

Sub demo()
Dim endrow As Long
endrow = Sheets(Sheet1.Range("B3").Value).Range("A" & Rows.Count).End(xlUp).Row

'minh muon cho sheet1 ben tren duoc thay the tu dong bang gia tri cua o B3 trong sheet1
MsgBox Sheet1.Range("B3").Value & " co: " & endrow & " Dong"

End Sub

tiện thể cho mình hỏi luôn là có cách nào dùng vòng lặp để load hết các sheet đang có và trong ô B3 của sheet1 thành 1 list ko ah?