Tạo nút nhấn để cập nhật dữ liệu từ sheet này sang sheet khác

[annado9x]

Dạ, tức là em nhập xong cột B và D trong sheet1, nhấn SAVE thì dữ liệu cột B và Dsẽ copy sang sheet2 ạ

TỨc dữ liệu sẽ chuyển từ 2 cột thành 1 dòng? Mà tôi ko hiểu sao bạn lại bố trí dữ liệu như vậy nhỉ? Mà bạn chỉ có 2 cột như vậy hay còn nhiều hơn?

[bomhao]

TỨc dữ liệu sẽ chuyển từ 2 cột thành 1 dòng? Mà tôi ko hiểu sao bạn lại bố trí dữ liệu như vậy nhỉ? Mà bạn chỉ có 2 cột như vậy hay còn nhiều hơn?

Dạ đúng rồi ạ, 2 cột thành 1 dòng. Còn em bố trí cột như vậy là để em thiết kế giao diện làm việc sheet1 nhập liệu cho trực quan ạ. Theo như hình dung ban đầu của e thì có lẽ chỉ 2 cột là được rồi, hoặc nếu phát sinh thêm cột thì anh có thể giúp em hiểu rõ hơn không ạ. Vì em không có kiếm thức căn bản về excel, chỉ tự tham khảo để học hỏi thôi ạ

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

[zinzin8x]

Dạ, tức là em nhập xong cột B và D trong sheet1, nhấn SAVE thì dữ liệu cột B và Dsẽ copy sang sheet2 ạ

Sheet1.Range("A" & Dc, "D" & Dc).Copy Sheet2.Range("A" & Lr + 1)
Bạn chỉ cần chỉnh 3i chữ màu đỏ là ok
Xin lỗi tôi không hiểu ý của tác giả

[Alpenliebe]

[QUOTE=0905744404;650549]Sheet1.Range("A"

[hlong001]

Em làm theo ý này rồi, chỉ copy được cell đầu của cột thôi ạ, ý của em là copy nguyên cột sang sheet2 luôn

Cách 1: Copy và Paste Special\Transpose

Sub Update1()
  Dim Target As Range
  With Application
    .ScreenUpdating = False
    Set Target = Sheet2.Range("A60000").End(xlUp).Offset(1)
    Sheet1.Range("B1:B3").Copy
    Target.Offset(, 0).PasteSpecial 3, , , True
    Sheet1.Range("D1:D3").Copy
    Target.Offset(, 3).PasteSpecial 3, , , True
    .CutCopyMode = 0
    .ScreenUpdating = True
  End With
End Sub

Cách 2: Gán 6 cells ở sheet1 cho 6 cell ở sheet2

Sub Update2()
  Dim Target As Range, Source As Range
  Set Target = Sheet2.Range("A60000").End(xlUp).Offset(1)
  Set Source = Sheet1.Range("B1")
  Target.Offset(, 0).Value = Source.Offset(0, 0).Value
  Target.Offset(, 1).Value = Source.Offset(1, 0).Value
  Target.Offset(, 2).Value = Source.Offset(2, 0).Value
  Target.Offset(, 3).Value = Source.Offset(0, 2).Value
  Target.Offset(, 4).Value = Source.Offset(1, 2).Value
  Target.Offset(, 5).Value = Source.Offset(2, 2).Value
End Sub

------------
Thật ra nếu làm kỹ hơn thì còn nhiều vấn đề lắm, chẳng hạn:
- Nếu 1 trong các cell ở sheet1 bị nhập thiếu thì có thực hiện copy không?
- Nếu vẫn copy thì "ráp" sang sheet2 như thế nào?
- Nếu không cho copy thì sẽ bắt người dùng làm gì? Hiện thông báo, bắt nhập đầy đủ hay là... sao?
vân vân.. và.. mây mây...
Ẹc... Ẹc...

[V?n Tu?n]

Em làm theo ý này rồi, chỉ copy được cell đầu của cột thôi ạ, ý của em là copy nguyên cột sang sheet2 luôn
(P/s: trận Việt Nam - Thái Lan đang đá anh ơi...[IMG]images/smilies/a01.gif[/IMG][IMG]images/smilies/a01.gif[/IMG][IMG]images/smilies/a01.gif[/IMG])

Bạn xem thử xem đúng ý chưa nhé!

Public Sub seve2()
Dim c1(), c2(), Lr As Integer, Lr1 As Integer, Wf As Object
Set Wf = Application.WorksheetFunction
    Lr = Sheet1.Range("A10000").End(xlUp).Row
    Lr1 = Sheet2.Range("A10000").End(xlUp).Row
    c1 = Sheet1.Range("B1:B" & Lr): c2 = Sheet1.Range("D1:D" & Lr)
    Sheet2.Range("A" & Lr1 + 1).Resize(1, 3) = Wf.Transpose(c1)
    Sheet2.Range("D" & Lr1 + 1).Resize(1, 3) = Wf.Transpose(c2)
End Sub

[intembaohanh]

Cách 1: Copy và Paste Special\Transpose

<div class="bbcode_container">
<div class="bbcode_description">Code:

------------
Thật ra nếu làm kỹ hơn thì còn nhiều vấn đề lắm, chẳng hạn:
- Nếu 1 trong các cell ở sheet1 bị nhập thiếu thì có thực hiện copy không?
- Nếu vẫn copy thì "ráp" sang sheet2 như thế nào?
- Nếu không cho copy thì sẽ bắt người dùng làm gì? Hiện thông báo, bắt nhập đầy đủ hay là... sao?
vân vân.. và.. mây mây...
Ẹc... Ẹc...</div>

</div>
</div>
</div>
Em cảm ơn thầy, em đã hiểu và làm được rồi ạ.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

[tuyla123]

[QUOTE=chuot0106;650561]Bạn xem thử xem đúng ý chưa nhé!
[CODE]
Public Sub seve2()
Dim c1(), c2(), Lr As Integer, Lr1 As Integer, Wf As Object
Set Wf = Application.WorksheetFunction
Lr = Sheet1.Range("A10000").End(xlUp).Row
Lr1 = Sheet2.Range("A10000").End(xlUp).Row
c1 = Sheet1.Range("B1:B"

[trangda]

Anh ơi! file đính kèm thiếu nút SAVE.[IMG]images/smilies/a42.gif[/IMG].

Bạn tự vẽ một nút sau đó gán macros vào là được mà!