Copy-Paste dữ liệu tuần tự vào ô trống bằng Marco

[quanghuy_tkt_139]

Mình muốn tìm một Marco, gán thành một nút làm nhiệm vụ sau :
Bước 1: Copy từ 1 (hoặc nhiều) ô cố định ( người dùng ko phải chọn ô trong sheet mà đặt trước trong VBA)
Bước 2: Paste vào vào 1 (hoặc nhiều) ô khác- nếu ô đó đã có dữ liệu (kể cả số 0) thì tự động Paste vào ô ngay dưới (tức cùng cột,dòng tiếp theo).
Tiếp tục như vậy sau mỗi lần nhấn nút.
========================
THANKS các Pác nhiu !!!!

 

[hoa35ktxd]

Sub Macro1()
    'Không nên copy & Paste cho phức tạp
    Dim Ran As Range
    Dim I As Long
    Cells(65536, 5).Select 'mặc định gán số liệu vào cột 5(Cột E)
    I = Selection.End(xlUp).Row + 1 'Xác định dòng cần chèn số liệu
    Range("B6:B14,D7:D12").Select 'Vùng dữ liệu rời rạc được xác định trước 
    For Each Ran In Selection
        Cells(I, 5).Value = Ran.Value
        I = I + 1
    Next
    Cells(I, 5).Select
End Sub

 

[cotlieu68]

Hỏi về VBA

Tôi xin hỏi các Anh, Chị em giúp Tôi một công việc nhỏ
Tôi có một số đầu việc theo bảng(Giúp Đỡ) đính kèm. Tôi muốn viết một macro xóa một số dòng, và lặp đi lặp lại theo đầu việc
VD: như trong bảng đính kèm Tôi muốn tìm trong cột D3 trở đi thấy "Chi tiết" thì xóa 5 dòng và xóa lặp lại theo đầu việc và chỉ xóa 1 lần duy nhất. (có nghĩa là khi bấm nút thì không xóa lần 2).
Tôi vẫn phải làm thủ công, tập viết macro xóa chỉ 1 dòng không lặp lai. Các bạn giúp đỡ, xin chân thành cảm tạ!

 

[cotlieu68]

hỏi về dùng macro xóa dòng có điều kiện

 

[trôimuabun]

to hoa35ktxd:
Xin cho mình hỏi cách paste qua sheet khác thi làm thế nào. Xin cảm ơn

 

[danghochoi1234]

Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác.

 

[nqminhtmc]

Tớ có một bảng "Bang ke vat tu" gồm các cột "Ma vat tu", "So luong", "Don gia" tớ muốn tạo một nút Copy sao cho nó tự động copy vào trong phần mềm quản lý ở cửa sổ "Nhap kho" mà không phải gõ từng mã, số lượng vào. Các bạn giúp tớ với.
Tớ cảm ơn nhiều.