Xin được hướng dẫn tạo macro nhập và lưu dữ liệu

[genuny]

Xin chào các tiền bối và toàn thể anh chi em.
Em đang có nhu cầu nhập và lưu dữ liệu thành 1 bảng.
Chi tiết như sau : (file đính kèm)
- Nhập dữ liệu từ ô B1 đến B4
- Click vào nút Ghi nhớ : chương trình từ động cập nhật sang dòng E2 đến H2, sau đó tự động xóa dữ liệu ô B1-->B4 (nhưng vẫn giữ nguyên kết quả E2->H2)
- Tiếp tục nhập dữ liêu và cập nhật vào Ô E3-->H3 …

Em sử dụng macro để record nhưng chỉ lưu được dòng đầu tiên. không biết làm thế nào cho các dòng tiếp theo.
Mong các tiền bối, anh chị em giúp đỡ.

 

[viehoai]

Xin chào các tiền bối và toàn thể anh chi em.
Em đang có nhu cầu nhập và lưu dữ liệu thành 1 bảng.
Chi tiết như sau : (file đính kèm)
- Nhập dữ liệu từ ô B1 đến B4
- Click vào nút Ghi nhớ : chương trình từ động cập nhật sang dòng E2 đến H2, sau đó tự động xóa dữ liệu ô B1-->B4 (nhưng vẫn giữ nguyên kết quả E2->H2)
- Tiếp tục nhập dữ liêu và cập nhật vào Ô E3-->H3 …

Em sử dụng macro để record nhưng chỉ lưu được dòng đầu tiên. không biết làm thế nào cho các dòng tiếp theo.
Mong các tiền bối, anh chị em giúp đỡ.

Code thủ tục ghi:

Sub Ghi()
   Range("B1:B4").Copy
   Range("E65500").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                                  SkipBlanks:=False, Transpose:=True 
   Range("B1:B4").ClearContents
End Sub

 

[concogia]

Góp vui một cách:

Public Sub GhiGhi()    
    [E10000].End(xlUp)(2).Resize(, 4) = Application.WorksheetFunction.Transpose([B1:B4])
    Range([E2], [E10000].End(xlUp)).Offset(, -1) = [row(A:A)]
    [B1:B4].ClearContents
End Sub

Thân

 

[tvxdgt]

Thêm một cách dùng vòng lặp nữa xem sao.

Sub GHI()
i = 1
Do
i = i + 1   
 Loop While Cells(i - 1, 5) <> ""  
  Range("B1:B4").Select  
  Selection.Copy  
  Cells(i - 1, 5).Select  
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _        
False, Transpose:=True    Application.CutCopyMode = False
End Sub

 

[qwertyuiopasdfghjkl]

Code thủ tục ghi:

Sub Ghi()
   Range("B1:B4").Copy
   Range("E65500").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                                  SkipBlanks:=False, Transpose:=True 
   Range("B1:B4").ClearContents
End Sub

Đoạn code này nó ghi dữ liệu vào ô đầu tiên là ô E2 tôi muốn thay đổi địa chỉ này thành E5 thì thay đổi làm sao

 

[hoangld]

Thêm một cách dùng vòng lặp nữa xem sao.

Sub GHI()
i = 1
Do
i = i + 1   
 Loop While Cells(i - 1, 5) <> ""  
  Range("B1:B4").Select  
  Selection.Copy  
  Cells(i - 1, 5).Select  
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _        
False, Transpose:=True    Application.CutCopyMode = False
End Sub

Sorry các bác cho e khảo cổ tý
[h=5]Bác nào biết về macro giúp em vụ này với. Em muốn làm một file excel dùng macro để nhập số liệu ghi chép hàng ngày vào một sheet data. Khi nhập thì chọn ngày ở sheet Input rồi nhập giá trị vào sau đó chạy macro để nhập dữ liệu sang đúng cột theo ngày đã chọn trước đó. Cụ thể trong file em đính kèm ạ.
Cảm ơn các bác trước nha.[/h]