cập nhật địa chỉ trong macro (1 người xem)

[kulyvn]

Sub diaban()
'
' diaban Macro
'


'
Range("B10:BJ456").Select
Range("BJ456").Activate
ActiveWorkbook.Worksheets("THA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("THA").Sort.SortFields.Add Key:=Range("J10:J456"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"V?nh Ði?n,Ði?n An,Ði?n Minh,Ði?n Nam B?c,Ði?n Nam Trung,Ði?n Nam Ðông,Ði?n Dýõng,Ði?n Ng?c,Ði?n Th?ng B?c,Ði?n Th?ng Nam,Ði?n Th?ng Trung,Ði?n Phýõng,Ði?n Phý?c,Ði?n Th?,Ði?n Ti?n,Ði?n H?a,Ði?n Quang,Ði?n Trung,Ði?n Phong,Ði?n H?ng,Khu Công Nghi?p" _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("THA").Sort
.SetRange Range("B10:BJ456")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Mình muốn thay danh sách địa chỉ đã tô đậm bằng địa chỉ đã nhập sẵn bên sheet THONGTIN từ ô A32:A41 thì phải làm thế nào?

 

[giaiphap]

Sub diaban()
'
' diaban Macro
'


'
Range("B10:BJ456").Select
Range("BJ456").Activate
ActiveWorkbook.Worksheets("THA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("THA").Sort.SortFields.Add Key:=Range("J10:J456"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"V?nh Ði?n,Ði?n An,Ði?n Minh,Ði?n Nam B?c,Ði?n Nam Trung,Ði?n Nam Ðông,Ði?n Dýõng,Ði?n Ng?c,Ði?n Th?ng B?c,Ði?n Th?ng Nam,Ði?n Th?ng Trung,Ði?n Phýõng,Ði?n Phý?c,Ði?n Th?,Ði?n Ti?n,Ði?n H?a,Ði?n Quang,Ði?n Trung,Ði?n Phong,Ði?n H?ng,Khu Công Nghi?p" _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("THA").Sort
.SetRange Range("B10:BJ456")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Mình muốn thay danh sách địa chỉ đã tô đậm bằng địa chỉ đã nhập sẵn bên sheet THONGTIN từ ô A32:A41 thì phải làm thế nào?

Up file lên đây đi cho dễ làm bạn ơi.

 

[kulyvn]

Up file lên đây đi cho dễ làm bạn ơi.

Mình muốn lấy danh sách địa bàn để lọc từ file THONG TIN chứ không phải nhập thủ công

 

[giaiphap]

Mình muốn lấy danh sách địa bàn để lọc từ file THONG TIN chứ không phải nhập thủ công

Mình nghĩ đưa biến vào thay thế cho đoạn văn đó nhưng lại báo lỗi, bó tay.

 

[kulyvn]

Mình nghĩ đưa biến vào thay thế cho đoạn văn đó nhưng lại báo lỗi, bó tay.

không có cách nào để đưa đường dẫn vào được hả bạn

 

[HieuCD]

chay code xep_tt, chú ý có thêm cột B trong Sheet thongTin