Lưu dữ liệu

[nguyenminhquang]

Dear các bậc thầy excel , giúp mình với, đến nay mình chưa làm được

 

[concogia]

Dear các bậc thầy excel , giúp mình với, đến nay mình chưa làm được

Bạn thử code này xem sao

Private Sub CommandButton1_Click()
    Dim Sh As Worksheet, Vung As Range, I As Integer, J As Integer, K As Integer
    Set Sh = Sheets("luu du lieu")
        With Sh.[a500].End(xlUp)(2)
            .Resize(, 16) = Application.WorksheetFunction.Transpose([d4:d19])
                For I = 1 To 11 Step 2
                    For J = 1 To 9 Step 4
                        .Offset(, 16 + K).Resize(, 3) = Application.WorksheetFunction.Transpose(Range(Cells(21 + J, I + 1), Cells(23 + J, I + 1)))
                        K = K + 3
                    Next
                Next
        End With
End Sub

Nhập dữ liệu, bấm nút
Thân

 

[nghiaphuc]

Dear các bậc thầy excel , giúp mình với, đến nay mình chưa làm được

Góp ý một chút nhé:
1. Bạn phải đưa ra câu hỏi rõ ràng, không nêu câu hỏi trong file thì ít nhất cũng nêu lên ở đây để mọi người biết bạn muốn giúp đỡ điều gì. Đừng để mọi người đoán già đoán non rồi cuối cùng trật lất.
2. Làm ơn sử dụng tiếng Việt và bỏ từ "bậc thầy" đi, nghe nó quan cách và khó ưa lắm. Bạn có thể thay bởi từ "bạn" hay "anh chị em",... (tôi không biết tuổi của bạn nên thôi cứ xưng "bạn" cho dễ nói).
Còn bây giờ, tôi "đoán già đoán non" một chút nhé: Hình như là bạn muốn tạo một nút lệnh ở sheet nhap du lieu với tác dụng là lưu thông tin đã nhập sang sheet luu du lieu. Nếu đúng như vậy thì đây là một tham khảo tồi cho bạn (có lẽ đây là cách dùng code thủ công nhất cho bài toán này):

Private Sub CommandButton1_Click()
    Dim i As Long
    i = Sheet2.[A65536].End(xlUp).Row + 1
    With Sheet2
        [D4:D19].Copy
        .Range("A" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [B22:B24,B26:B28,B30:B32].Copy
        .Range("Q" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [D22:D24,D26:D28,D30:D32].Copy
        .Range("Z" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [F22:F24,F26:F28,F30:F32].Copy
        .Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [H22:H24,H26:H28,H30:H32].Copy
        .Range("AR" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [J22:J24,J26:J28,J30:J32].Copy
        .Range("BA" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        [L22:L24,L26:L28,L30:L32].Copy
        .Range("BJ" & i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        .Range("BS" & i).Value = [L4].Value
    End With
End Sub