Xin Hướng dẫn code xuống dòng ô excel VBA

[phanvantruong]

Xin chào A/E !
E gặp một vấn đề khó trong lúc viết code chạy Macro là:
E sử dụng Sheet Input để nhập dữ liệu
Sheet NX là lưu dữ liệu.
-Vấn đề gặp phải là khi nhập dữ liệu tiếp và Save tiếp thì nó không xuống dòng nối tiếp mà ghi đè lên dữ liệu cũ.
mặc dù E đã có code xuống dòng rồi.
-Khi nhập dữ liệu ở sheet input có thể e nhập không hết vùng nhập khi copy paste value Sheet NX lưu thì xuất hiện dòng blank => E muốn nếu không có data thì phải copy tiếp vào bắt đầu từ dòng blank này.
AE giúp e với ah.
Thanks !

 

[nghiaphuc]

Xin chào A/E !
E gặp một vấn đề khó trong lúc viết code chạy Macro là:
E sử dụng Sheet Input để nhập dữ liệu
Sheet NX là lưu dữ liệu.
-Vấn đề gặp phải là khi nhập dữ liệu tiếp và Save tiếp thì nó không xuống dòng nối tiếp mà ghi đè lên dữ liệu cũ.
mặc dù E đã có code xuống dòng rồi.
-Khi nhập dữ liệu ở sheet input có thể e nhập không hết vùng nhập khi copy paste value Sheet NX lưu thì xuất hiện dòng blank => E muốn nếu không có data thì phải copy tiếp vào bắt đầu từ dòng blank này.
AE giúp e với ah.
Thanks !

Bạn sửa code như vầy nhé:
[GPECODE=vb]Sub Save()
Dim Rws As Long
With Sheets("Input")
Rws = .[B1000].End(xlUp).Row - 4
If Rws = 0 Then
MsgBox "Chua nhap Chung tu"
Exit Sub
Else
.[A5:N5].Resize(Rws).Copy Sheets("NX").[A65000].End(xlUp).End(xlUp).Offset(1)
.[B5:F5].Resize(Rws).ClearContents
End If
End With
End Sub[/GPECODE]

 

[phanvantruong]

Bạn sửa code như vầy nhé:
[GPECODE=vb]Sub Save()
Dim Rws As Long
With Sheets("Input")
Rws = .[B1000].End(xlUp).Row - 4
If Rws = 0 Then
MsgBox "Chua nhap Chung tu"
Exit Sub
Else
.[A5:N5].Resize(Rws).Copy Sheets("NX").[A65000].End(xlUp).End(xlUp).Offset(1)
.[B5:F5].Resize(Rws).ClearContents
End If
End With
End Sub[/GPECODE]

Bạn có thể chèn giúp mình vào file này được không???mình không hiểu chức năng đoạn code này lắm.
Thanks bạn

 

[khuongvietphong]

Bạn có thể chèn giúp mình vào file này được không???mình không hiểu chức năng đoạn code này lắm.
Thanks bạn

Nhân lúc "hắn" còn đang đi vắng đi vắng ....

Bạn mở File lên, nhấn ALT+F11 --> Chọn Tên Sheet cần chạy Code(góc phía trên- bên tay trái) rồi dán nó vào đó

Sau đó ra cửa số Excel --> ALT+F8 ---> chọn tên MacRo cần chạy ở đây là Save ---> nhấn Run để chạy

 

[phanvantruong]

Nhân lúc "hắn" còn đang đi vắng đi vắng ....

Bạn mở File lên, nhấn ALT+F11 --> Chọn Tên Sheet cần chạy Code(góc phía trên- bên tay trái) rồi dán nó vào đó

Sau đó ra cửa số Excel --> ALT+F8 ---> chọn tên MacRo cần chạy ở đây là Save ---> nhấn Run để chạy

A ơi e nhờ chút nữa Sheet input e nhập mảng A5:N26 cơ, A giúp e với.
E nhìn code trên của anh Nghiaphuc thì code chỉ copy 1 dòng thôi. có cách nào copy cả mảng không anh???
nhung khi paste sang sheet NX thì nếu ô cell nào blank thì paste bắt đầu từ đây ah??

 

[khuongvietphong]

A ơi e nhờ chút nữa Sheet input e nhập mảng A5:N26 cơ, A giúp e với.
E nhìn code trên của anh Nghiaphuc thì code chỉ copy 1 dòng thôi. có cách nào copy cả mảng không anh???
nhung khi paste sang sheet NX thì nếu ô cell nào blank thì paste bắt đầu từ đây ah??

Cái này mình hổng có biết đâu, bạn chờ ảnh lên rồi ảnh xử lý cho nha

 

[nghiaphuc]

A ơi e nhờ chút nữa Sheet input e nhập mảng A5:N26 cơ, A giúp e với.
E nhìn code trên của anh Nghiaphuc thì code chỉ copy 1 dòng thôi. có cách nào copy cả mảng không anh???
nhung khi paste sang sheet NX thì nếu ô cell nào blank thì paste bắt đầu từ đây ah??

Thế bạn đã thử nhập nhiều dòng chưa vậy? Nó "chơi" tuốt luốt á, A5 tới N1000 cũng được chứ N26 xi nhê gì.

 

[phanvantruong]

Thế bạn đã thử nhập nhiều dòng chưa vậy? Nó "chơi" tuốt luốt á, A5 tới N1000 cũng được chứ N26 xi nhê gì.

Chào Anh nghiaphuc !
E nhờ anh giúp 1 việc nữa liên quan đến bài này.
e đặt công thức ở sheet input =if(A>0,A,"") "" nghĩa là để Blank trong ô excel nhưng khi copy - paste value thì ô được paste đến không phải là blank nữa, có cách nào chuyển nó thành Blank không anh?
(Sau khi click 2 lần và enter thì ô lại trở về true)
Thank Bác nghiaphuc và ACE !

 

[nghiaphuc]

Chào Anh nghiaphuc !
E nhờ anh giúp 1 việc nữa liên quan đến bài này.
e đặt công thức ở sheet input =if(A>0,A,"") "" nghĩa là để Blank trong ô excel nhưng khi copy - paste value thì ô được paste đến không phải là blank nữa, có cách nào chuyển nó thành Blank không anh?
(Sau khi click 2 lần và enter thì ô lại trở về true)
Thank Bác nghiaphuc và ACE !

Trong code trên, tôi cố tình tìm hàng cuối cùng dựa vào cột B rồi mà, còn kết quả công thức trong ô là chuỗi "" không có nghĩa là ô đó blank đâu nhé.

 

[phanvantruong]

Trong code trên, tôi cố tình tìm hàng cuối cùng dựa vào cột B rồi mà, còn kết quả công thức trong ô là chuỗi "" không có nghĩa là ô đó blank đâu nhé.

Cám ơn anh nhiều nhe.