Nhờ các anh chị GPE gộp code cho gọn gàng (1 người xem)

[banhchuoichien]

Mình viết 1 cái code hơi thủ công. Nhờ các anh chị chỉ cách viết khác để gon hơn. Cảm ơn nhiều.

Code:
Sub XuatDuLieu()
Application.ScreenUpdating = False
Application.Cursor = xlWait
Application.Interactive = False
Worksheets("1").Select
Range("A2:H2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$H$1048576").AutoFilter Field:=1, Criteria1:=Worksheets("TSDA").Range("B22").Value
Range("$A$3:$H$1048576").Select
Selection.Copy
Sheet3.Select
Range("A4").Select
ActiveSheet.Paste
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Sheets("1").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$2:$H$17").AutoFilter Field:=1
Range("A2:H2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$H$1048576").AutoFilter Field:=1, Criteria1:=Worksheets("TSDA").Range("B23").Value
Range("$A$3:$H$1048576").Select
Selection.Copy
Sheet5.Select
Range("A4").Select
ActiveSheet.Paste
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Sheets("1").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$2:$H$17").AutoFilter Field:=1
Range("A2:H2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$H$1048576").AutoFilter Field:=1, Criteria1:=Worksheets("TSDA").Range("B24").Value
Range("$A$3:$H$1048576").Select
Selection.Copy
Sheet7.Select
Range("A4").Select
ActiveSheet.Paste
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Sheets("1").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$2:$H$17").AutoFilter Field:=1
Application.ScreenUpdating = True
Application.Cursor = xlDefault
Application.Interactive = True
End Sub

 

[khuongvietphong]

Bạn đưa File của bạn lên và nêu yêu cầu cụ thể để mọi người viết lại cho bạn đoạn code mới -- mình nghĩ cách này sẽ

khả thi hơn chứ bây giờ mà bảo ngồi đọc đoạn Code này của bạn rồi chỉnh bớt lại cho gọn thì e là hơi khó ....