Code cho Sheet Form (1 người xem)

[DMQ]

Nhờ các AC viết code chép dữ liệu từ sheet "HD" vào sheet2. Cám ơn các AC

 

[Ba Tê]

Nhờ các AC viết code chép dữ liệu từ sheet "HD" vào sheet2. Cám ơn các AC

Đặt tên sheet2 là GPE, thử code này:

Public Sub Gpex()
Dim sArr(), dArr(), I As Long, J As Long, K As Long
Dim SHD As String, KH As String, Ngay As Date, DK As Boolean
DK = IIf(Sheets("HD").Range("G60000").End(xlUp).Row > 12, True, False)
If DK = True Then
    With Sheets("HD")
        SHD = .[G3].Value: KH = .[G5].Value: Ngay = .[G7].Value
        sArr = .Range(.[G12], .[G12].End(xlDown)).Resize(, 4).Value
    End With
    ReDim dArr(1 To UBound(sArr, 1), 1 To 7)
    For I = 2 To UBound(sArr, 1)
        K = K + 1: dArr(K, 1) = SHD
        dArr(K, 2) = KH: dArr(K, 3) = Ngay
        For J = 1 To 4
            dArr(K, J + 3) = sArr(I, J)
        Next J
    Next I
    Sheets("GPE").[A60000].End(xlUp).Offset(1).Resize(K, 7) = dArr
    MsgBox "Da Luu xong", , "GiaiPhapExcel"
Else
    MsgBox "Khong co du lieu", , "GiaiPhapExcel"
End If
End Sub

 

[DMQ]

Thầy Ba Tê có thể giúp em sau khi chép xong thì xóa đi để nhập cho HD khác. (Cell G3 được chọn )
Em có thêm đoạn code này để xóa thì bị lỗi"400"
[CODE Range("G3") = "" Range("G5") = ""
Range("G7") = ""
Range("G13:J24") = ""
Range("K13:K24").SpecialCells(2).ClearContents
Range("G3").Select][/CODE]
Mong các AC giúp đỡ!!!!

 

[Ba Tê]

Thầy Ba Tê có thể giúp em sau khi chép xong thì xóa đi để nhập cho HD khác. (Cell G3 được chọn )
Em có thêm đoạn code này để xóa thì bị lỗi"400"
[CODE Range("G3") = "" Range("G5") = ""
Range("G7") = ""
Range("G13:J24") = ""
Range("K13:K24").SpecialCells(2).ClearContents
Range("G3").Select][/CODE]
Mong các AC giúp đỡ!!!!

Gởi file cho bạn luôn, tự chỉnh sửa vì "hết hạn bảo hành".
Híc!

 

[traicauhd]

em chỉ biết ghi macro còn không biết rút gọn macro vào anh chị giúp em với
Sheets("packing list").Select
Range("F6:G6").Select
Selection.Copy
Sheets("chia packing list").Select
Range("U10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Sheets("hang ton kho trong ke").Range("A6:L2725").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("A3:L3"), _
Unique:=False
Sheets("chia packing list").Select
Rows("7:56").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[traicauhd]

Sheets("packing list").Select    Range("F6:G6").Select    Selection.Copy    Sheets("chia packing list").Select    Range("U10").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False        Sheets("Sheet1").Select    Sheets("hang ton kho trong ke").Range("A6:L2725").AdvancedFilter Action:= _        xlFilterCopy, CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("A3:L3"), _        Unique:=False    Sheets("chia packing list").Select    Rows("7:56").Select    Selection.Copy    Sheets("Sheet2").Select    Range("A1").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False