[Hỏi Tiếp] Copy-Paste dữ liệu tuần tự từ sheet 1 sang sheet 2

[David882011]

Các bạn cho mình xin Code Copy Từ 1 vùng trong sheet 1 sang sheet 2 . và trước khi thực hiện lệnh Copy sẻ có lựa chọn "OK" or "Cancel" . MsgBox

VD : A1:F18 (sheets1) sang D1 (Sheets2) .

Nhưng vẫn Copy theo kiểu tuần tự vào ô trống kế tiếp , không đè lên cột đã có dữ liệu .

Thanks Các Bạn !!!

 

[mhung12005]

Các bạn cho mình xin Code Copy Từ 1 vùng trong sheet 1 sang sheet 2 . và trước khi thực hiện lệnh Copy sẻ có lựa chọn "OK" or "Cancel" . MsgBox

VD : A1:F18 (sheets1) sang D1 (Sheets2) .

Nhưng vẫn Copy theo kiểu tuần tự vào ô trống kế tiếp , không đè lên cột đã có dữ liệu .

Thanks Các Bạn !!!

Bạn dùng Macro này xem:

Sub Copy()
   Dim rngNguon As Range
   Dim rngTarget As Range
   With Sheet1
      If .Range("A19").End(xlUp).Row > 7 Then
         Set rngNguon = .Range("A8:F" & .Range("A19").End(xlUp).Row)
         Set rngTarget = Sheet2.Range("A65000").End(xlUp).Offset(1)
         rngTarget.Resize(rngNguon.Rows.Count, 6) = rngNguon.Value
      End If
   End With
End Sub

 

[hoamattroicoi]

Các bạn cho mình xin Code Copy Từ 1 vùng trong sheet 1 sang sheet 2 . và trước khi thực hiện lệnh Copy sẻ có lựa chọn "OK" or "Cancel" . MsgBox

VD : A1:F18 (sheets1) sang D1 (Sheets2) .

Nhưng vẫn Copy theo kiểu tuần tự vào ô trống kế tiếp , không đè lên cột đã có dữ liệu .

Thanks Các Bạn !!!

Tạo cái nút OK vs Cancel ấy không khó nhưng mà dữ liệu có chút khác so với ban đầu bạn hỏi. Bạn có chắc là bạn muốn copy vùng A118 sheet Tinh Tien sang D1 của Sheet Dich Vu không? Nhìn nó không có ý nghĩa là mấy, lúc nãy thấy bạn hỏi ở đây khác, không biết có phải bạn thay đổi yêu cầu không?

 

[David882011]

Bạn dùng Macro này xem:

Sub Copy()
   Dim rngNguon As Range
   Dim rngTarget As Range
   With Sheet1
      If .Range("A19").End(xlUp).Row > 7 Then
         Set rngNguon = .Range("A8:F" & .Range("A19").End(xlUp).Row)
         Set rngTarget = Sheet2.Range("A65000").End(xlUp).Offset(1)
         rngTarget.Resize(rngNguon.Rows.Count, 6) = rngNguon.Value
      End If
   End With
End Sub

Thanks bạn . Để mình thử xem .

 

[David882011]

Tạo cái nút OK vs Cancel ấy không khó nhưng mà dữ liệu có chút khác so với ban đầu bạn hỏi. Bạn có chắc là bạn muốn copy vùng A118 sheet Tinh Tien sang D1 của Sheet Dich Vu không? Nhìn nó không có ý nghĩa là mấy, lúc nãy thấy bạn hỏi ở đây khác, không biết có phải bạn thay đổi yêu cầu không?

Vì mình có làm thêm 1 files tương tự nhưng vị trí Copy có thay đổi , mình cần Copy 1 vùng .

 

[giaiphap]

Vì mình có làm thêm 1 files tương tự nhưng vị trí Copy có thay đổi , mình cần Copy 1 vùng .

Bạn thử dùng lệnh sau
Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2) & ":F" & _
(WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 12)).Value = [a8:f18].Value

 

[David882011]

Bạn thử dùng lệnh sau
Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2) & ":F" & _
(WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 12)).Value = [a8:f18].Value

Thanks Bạn giaiphap . Mình Copy được rồi . Bạn thêm dùm MsgBox vào Lệnh Copy được ko Bạn ?

 

[Kiều Mạnh]

Các bạn cho mình xin Code Copy Từ 1 vùng trong sheet 1 sang sheet 2 . và trước khi thực hiện lệnh Copy sẻ có lựa chọn "OK" or "Cancel" . MsgBox

VD : A1:F18 (sheets1) sang D1 (Sheets2) .

Nhưng vẫn Copy theo kiểu tuần tự vào ô trống kế tiếp , không đè lên cột đã có dữ liệu .

Thanks Các Bạn !!!

THỬ ĐƠN GIẢN VẬY ĐI..........kiểu gì cũng hỏi nữa..........biết mà

Sub AABBCC()
    Sheets("Tinh Tien").Range("A8:F18").Copy Sheets("Dich Vu").Range("A65536").End(3).Offset(1)
    Application.CutCopyMode = False
End Sub

 

[hoamattroicoi]

Vì mình có làm thêm 1 files tương tự nhưng vị trí Copy có thay đổi , mình cần Copy 1 vùng .

Nếu vùng copy của bạn cố định có thể dùng 2 code này nhé, copy nó vào Module có Msgbox luôn :

Sub GoiMSG()
anSwer = MsgBox("Do you want to continue?", vbOKCancel + vbInformation + vbDefaultButton2, "I don't Know so I don't Care, hohohoho")
If anSwer = 1 Then Call Alehap
End Sub
'==============================
Sub Alehap()
   Sheets("Dich Vu").[E65536].End(xlUp).Offset(1, -4).Resize(11, 6) = Sheets("Tinh Tien").[A8:F18].Value
End Sub

 

[Kiều Mạnh]

Nếu vùng copy của bạn cố định có thể dùng 2 code này nhé, copy nó vào Module có Msgbox luôn :

Sub GoiMSG()
anSwer = MsgBox("Do you want to continue?", vbOKCancel + vbInformation + vbDefaultButton2, "I don't Know so I don't Care, hohohoho")
If anSwer = 1 Then Call Alehap
End Sub
'==============================
Sub Alehap()
   Sheets("Dich Vu").[E65536].End(xlUp).Offset(1, -4).Resize(11, 6) = Sheets("Tinh Tien").[A8:F18].Value
End Sub

chữ này là chữ gì vậy hohohoho = hahahaha

 

[David882011]

Thanks các bạn thật nhiều .