code nhập liệu (1 người xem)

[jthanhtung]

nhờ ac giúp 1 code nhập liệu từ sheet nay sang sheet khác, em cảm ơn nhiều.

 

[chuot0106]

nhờ ac giúp 1 code nhập liệu từ sheet nay sang sheet khác, em cảm ơn nhiều.

Bạn nên đưa file nên và nói thật rõ ràng yêu cầu của bạn nhé!

 

[jthanhtung]

em xin loi, co tai ma quen bam nut up

 

[chuot0106]

em xin loi, co tai ma quen bam nut up

Bạn chép đoạn code này vào File của bạn nhé!

Public Sub copy()
    Sheet2.Range("V3:Z3").copy Sheet4.Range("C3")
    Application.CutCopyMode = False
    Sheet2.Range("V3:Z3").ClearContents
End Sub

 

[jthanhtung]

Bạn chép đoạn code này vào File của bạn nhé!

Public Sub copy()
    Sheet2.Range("V3:Z3").copy Sheet4.Range("C3")
    Application.CutCopyMode = False
    Sheet2.Range("V3:Z3").ClearContents
End Sub

còn thiếu giúp em tí nữa nhé anh
'- CHO EM XIN CODE COPY VÙNG DỮ LIỆU TỪ V3:Z3, dán qua sheet "DATE" từ vùng C3:G3 rồi clear vùng V3:Z3 sheet "MAIN"
code chạy lần 2 nếu vùng C3:G3 có dữ liệu thì dán vùng tiếp theo từ H3:L3 và nối tiếp nhiều lần.
'-Nếu chưa có dữ liệu vùng V3:Z3 thì sheet MAIN thì thông báo "CHƯA CÓ DỮ LIỆU" và nếu dán thành công thì báo
em xin cảm ơn.

 

[jthanhtung]

có ac nào rảnh giúp tớ 1 xíu

 

[phihndhsp]

còn thiếu giúp em tí nữa nhé anh
'- CHO EM XIN CODE COPY VÙNG DỮ LIỆU TỪ V3:Z3, dán qua sheet "DATE" từ vùng C3:G3 rồi clear vùng V3:Z3 sheet "MAIN"
code chạy lần 2 nếu vùng C3:G3 có dữ liệu thì dán vùng tiếp theo từ H3:L3 và nối tiếp nhiều lần.
'-Nếu chưa có dữ liệu vùng V3:Z3 thì sheet MAIN thì thông báo "CHƯA CÓ DỮ LIỆU" và nếu dán thành công thì báo
em xin cảm ơn.

xem như vậy có đúng không?

Private Sub CommandButton1_Click()
   Dim i As Long
    If (Sheet2.Range("XFD3").End(xlToLeft).Column < 26) Then
    MsgBox "Chua co du lieu"
        Exit Sub
    End If
     i = Sheet4.Range("XFD3").End(xlToLeft).Column
     Sheet4.Range(Sheet4.Cells(3, i + 1), Sheet4.Cells(3, i + 5)).Value = Sheet2.Range("V3:Z3").Value
     Sheet2.Range("V3:Z3").ClearContents
    
End Sub