Giúp đỡ code cho button ghi dữ liệu từ 1 dòng vào 1 sheet khác (1 người xem)

[skullrock]

Em gửi file đính kèm, mong mọi người giúp đỡ code cho 2 button trong file.
Yêu cầu của code là khi có dữ liệu tại dòng 6 sheet TongHop, nếu người dùng nhấn Nạp vào Cu, thì dòng đó sẽ dán dữ liệu vào sheet Cu, và Nạp vào Al thì dữ liệu sẽ dán vào sheet Al (3 sheet giống cấu trúc cột, dán nội dung dạng value).
Sau khi dán thì xóa dòng 6 ở sheet TongHop để người dùng tạo dữ liệu mới.
Dữ liệu bên 2 sheet Cu và Al được ghi dồn vào dòng trống sau dòng đã có dữ liệu.
Nếu cần thay đổi cấu trúc file như thế nào để đáp ứng thì mọi người góp ý giúp em nha.
Cảm ơn.

 

[leonguyenz]

Em gửi file đính kèm, mong mọi người giúp đỡ code cho 2 button trong file.
Yêu cầu của code là khi có dữ liệu tại dòng 6 sheet TongHop, nếu người dùng nhấn Nạp vào Cu, thì dòng đó sẽ dán dữ liệu vào sheet Cu, và Nạp vào Al thì dữ liệu sẽ dán vào sheet Al (3 sheet giống cấu trúc cột, dán nội dung dạng value).
Sau khi dán thì xóa dòng 6 ở sheet TongHop để người dùng tạo dữ liệu mới.
Dữ liệu bên 2 sheet Cu và Al được ghi dồn vào dòng trống sau dòng đã có dữ liệu.
Nếu cần thay đổi cấu trúc file như thế nào để đáp ứng thì mọi người góp ý giúp em nha.
Cảm ơn.

Dùng Copy Paste thử xem:
[gpecode=vb]
Sub ButtonCU_Click()
Dim LRow As Long, CRng As Range
LRow = Sheet5.Range("B65535").End(xlUp).Row
Set CRng = Sheet1.Range("B65535").End(xlUp).Offset(1)
If Sheet5.Range("B6").Value <> "" Then
Application.ScreenUpdating = False
Sheet5.Range("B6:BV" & LRow).Copy
CRng.PasteSpecial 3
Sheet5.Range("B6:BV" & LRow).ClearContents
Application.ScreenUpdating = True
End If
End Sub
[/gpecode]

 

[nginh]

Em gửi file đính kèm, mong mọi người giúp đỡ code cho 2 button trong file.
Yêu cầu của code là khi có dữ liệu tại dòng 6 sheet TongHop, nếu người dùng nhấn Nạp vào Cu, thì dòng đó sẽ dán dữ liệu vào sheet Cu, và Nạp vào Al thì dữ liệu sẽ dán vào sheet Al (3 sheet giống cấu trúc cột, dán nội dung dạng value).
Sau khi dán thì xóa dòng 6 ở sheet TongHop để người dùng tạo dữ liệu mới.
Dữ liệu bên 2 sheet Cu và Al được ghi dồn vào dòng trống sau dòng đã có dữ liệu.
Nếu cần thay đổi cấu trúc file như thế nào để đáp ứng thì mọi người góp ý giúp em nha.
Cảm ơn.

Dùng sự kiện SheetActivate
Nhập dữ liệu vào sheet!tong hop, xong muốn ghi vào sheet nào thì click sheet đó

 

[skullrock]

Cám ơn anh, code rất đúng ý

 

[Quang_Hải]

Dùng Copy Paste thử xem:
[gpecode=vb]
Sub ButtonCU_Click()
Dim LRow As Long, CRng As Range
LRow = Sheet5.Range("B65535").End(xlUp).Row
Set CRng = Sheet1.Range("B65535").End(xlUp).Offset(1)
If Sheet5.Range("B6").Value <> "" Then
Application.ScreenUpdating = False
Sheet5.Range("B6:BV" & LRow).Copy
CRng.PasteSpecial 3
Sheet5.Range("B6:BV" & LRow).ClearContents
Application.ScreenUpdating = True
End If
End Sub
[/gpecode]

Mình nghĩ 1 nút là đủ rồi, thêm cái input box thì không bấm nhầm nút. Không copy paste có thể nhanh hơn tẹo

Sub Button_Click_2in1()
Application.ScreenUpdating = False
Dim LRow As Long, CRng As Range, Sh As String
   Sh = InputBox("Nhap ten sheet")
   With Sheet5
      LRow = .Range("B65535").End(xlUp).Row
      Set CRng = Sheets(Sh).Range("B65535").End(xlUp).Offset(1).Resize(, 73)
      If .Range("B6").Value <> "" Then
         CRng.Value = .Range("B6:BV" & LRow).Value
         .Range("B6:BV" & LRow).ClearContents
      End If
    End With
Application.ScreenUpdating = True
End Sub

 

[phucbugis]

Mình nghĩ 1 nút là đủ rồi, thêm cái input box thì không bấm nhầm nút. Không copy paste có thể nhanh hơn tẹo

Sub Button_Click_2in1()
Application.ScreenUpdating = False
Dim LRow As Long, CRng As Range, Sh As String
   Sh = InputBox("Nhap ten sheet")
   With Sheet5
      LRow = .Range("B65535").End(xlUp).Row
      Set CRng = Sheets(Sh).Range("B65535").End(xlUp).Offset(1).Resize(, 73)
      If .Range("B6").Value <> "" Then
         CRng.Value = .Range("B6:BV" & LRow).Value
         .Range("B6:BV" & LRow).ClearContents
      End If
    End With
Application.ScreenUpdating = True
End Sub

- nếu vài chục sheet làm vầy => có vẻ ổn

- như file đó thì bố trí vài nút, dựa vào tên nút (hoặc Caption) làm tên sheet cho khoẻ khỏi phải dùng InputBox-> update lẹ hơn,,, hehe