Hướng dẫn cách tạo nút bấm tự động copy tất cả các ô có chứa dự liệu trong bảng tính

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,708
Được thích
16,709
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
cảm ơn anh ba tê và quang hải nhiều , code trên nó copy và paste dữ liệu bắt đầu từ ô a1, em muốn nó paste bắt đầu tờ ô b5 ở sheet2, thứ 2 là code của anh quảng hải paste dữ liệu vào sheet2 nó paste tất cả định dạng của bảng tính luôn gồm cả màu , kích cỡ,......, còn mình thì chỉ muốn khi paste sang sheet2 nó chỉ paste dữ liệu của bảng tính thôi không paste cả định dạng của nó,các anh nghiên cứu giúp em nhé.
"dzô dziên" à nghe!
Bài #8 và bài #11 tui không có paste đi đâu hết à nghe.
"Quạu à".
 

traicauhd

Thành viên mới
Tham gia ngày
7 Tháng tư 2011
Bài viết
43
Được thích
0
Điểm
0
Tuổi
30
Chuyện nhỏ còn hơn con thỏ, nhưng với ý muốn "kỳ khôi" của bạn thì mọi người không khỏi "sốc" nên hỏi tới hỏi lui vậy thôi.
Tặng bạn cái Sub này vì không làm trên file bạn được.

[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
[/GPECODE]
lam the nao để sửa cho nó copyy sheet khác vậy bạn
 

xuandongql

Thành viên mới
Tham gia ngày
18 Tháng mười một 2013
Bài viết
20
Được thích
0
Điểm
0
Tuổi
42
xin lỗi bạn quang hải nhé , đêm khuya nhìn nhầm comet , code copy đến sheet khác trong cùng bảng tính thì coi như đã ok rồi, cảm ơn mõi người nhiều nhé,bây giờ nhờ cả nhà giúp mình code copy dữ liệu từ file book1 đính kèm ở #7 sang file mẫu đính kèm ở #5 (2 file đặt trong cùng một thư mục ), ở file book1 copy từ ô b5 ,dán vào file mầu bắt đầu từ ô b5 , dán theo kiểu chỉ lấy giá trị không lấy các định dạng và công thức, mong cả nhà giúp mình nhé.
 
Lần chỉnh sửa cuối:

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,708
Được thích
16,709
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
xin lỗi bạn quang hải nhé , đêm khuya nhìn nhầm comet , code copy đến sheet khác trong cùng bảng tính thì coi như đã ok rồi, cảm ơn mõi người nhiều nhé,bây giờ nhờ cả nhà giúp mình code copy dữ liệu từ file book1 đính kèm ở #7 sang file mẫu đính kèm ở #5 (2 file đặt trong cùng một thư mục ), ở file book1 copy từ ô b5 ,dán vào file mầu bắt đầu từ ô b5 , dán theo kiểu chỉ lấy giá trị không lấy các định dạng và công thức, mong cả nhà giúp mình nhé.
Sao từ bài #1 bạn không hỏi luôn như vầy mà cứ hỏi lòng vòng đến bài #25 mới đi đến chuyện này?
 

xuandongql

Thành viên mới
Tham gia ngày
18 Tháng mười một 2013
Bài viết
20
Được thích
0
Điểm
0
Tuổi
42
thành thật xin lỗi anh , hôm trước em nghỉ được mõi ngươì giúp đỡ đến thế là tốt rồi , song kết quả ngoài mong đợi đối với em , cảm ơn một lần nữa sự giúp đỡ của mõi người đặc biệt là 2 anh ba tê va quang hải , trong khi làm em lại phát sinh ra ý tưởng mới nên mạnh giản hỏi các anh nhờ các anh giúp đỡ , nếu được thì vui quá còn không được thì cùng đành chịu vậy , mong anh ba tê hiểu cho em nhé.
 

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,708
Được thích
16,709
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
thành thật xin lỗi anh , hôm trước em nghỉ được mõi ngươì giúp đỡ đến thế là tốt rồi , song kết quả ngoài mong đợi đối với em , cảm ơn một lần nữa sự giúp đỡ của mõi người đặc biệt là 2 anh ba tê va quang hải , trong khi làm em lại phát sinh ra ý tưởng mới nên mạnh giản hỏi các anh nhờ các anh giúp đỡ , nếu được thì vui quá còn không được thì cùng đành chịu vậy , mong anh ba tê hiểu cho em nhé.
Từ bài #1 đến bài #5 là mọi người đều biết là sau khi Copy thì sẽ làm tiếp cái Paste vào 1 chỗ nào đó, hỏi bạn mà gặp câu này thì bó tay:
chỉ cần copy thôi bạn ơi , còn để vào đâu thì mình sẽ bỏ...
Từ đầu bạn đưa 2 file lên và nêu yêu cầu cần giúp thì chỉ 1 bài trả lời là xong rồi, đấu đến giờ này.
Tôi làm cái nút trong FileMau2.xls
Bấm nút sẽ mở FileMau1.xls lên và copy dữ liệu trừ FileMau2.xls sang FileMau1.xls
Chú ý là cả 2 file phải cùng trong 1 thư mục
 

File đính kèm

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,754
Được thích
7,341
Điểm
860
Nơi ở
Thuận An, Bình Dương
Từ bài #1 đến bài #5 là mọi người đều biết là sau khi Copy thì sẽ làm tiếp cái Paste vào 1 chỗ nào đó, hỏi bạn mà gặp câu này thì bó tay:

Từ đầu bạn đưa 2 file lên và nêu yêu cầu cần giúp thì chỉ 1 bài trả lời là xong rồi, đấu đến giờ này.
Tôi làm cái nút trong FileMau2.xls
Bấm nút sẽ mở FileMau1.xls lên và copy dữ liệu trừ FileMau2.xls sang FileMau1.xls
Chú ý là cả 2 file phải cùng trong 1 thư mục
Bị ế độ quá nên sửa code của anh Ba Tê lại miếng coi
PHP:
Public Sub GPE_()
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
    If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
   .Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
   .Close True
End With
End Sub
 

traicauhd

Thành viên mới
Tham gia ngày
7 Tháng tư 2011
Bài viết
43
Được thích
0
Điểm
0
Tuổi
30
Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
giúp em với em muốn chỉ copyy hàng dọc cột a không copy hang ngang sửa cho em với
em cảm ơn
 

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,708
Được thích
16,709
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
Bị ế độ quá nên sửa code của anh Ba Tê lại miếng coi
PHP:
Public Sub GPE_()
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
    If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
   .Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
   .Close True
End With
End Sub
Ăn cỗ đi trước, lội nước theo sau.
Mở đường rồi "chà láng" lại thì ẹc ẹc...
Code mà ngắn gọn quá đâu có "hoành tráng"
Thêm màu mè cho thêm phần Lu xu bu.
[GPECODE=vb]Public Sub GPE_()
Application.ScreenUpdating = False
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
.Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
.Close True
End With
MsgBox "Copy goi, kiem cha lai coi, cam on!", , "GIAIPHAPEXCEL"
End Sub[/GPECODE]
HÍ hí..................
 

Ba Tê

Gội Rồi Mới Cạo
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,708
Được thích
16,709
Điểm
1,860
Tuổi
61
Nơi ở
An Giang
Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
giúp em với em muốn chỉ copyy hàng dọc cột a không copy hang ngang sửa cho em với
em cảm ơn
......................................................................................
[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Copy
End Sub
[/GPECODE]
 

quanghai1969

Thành viên gạo cội
Tham gia ngày
21 Tháng hai 2009
Bài viết
5,754
Được thích
7,341
Điểm
860
Nơi ở
Thuận An, Bình Dương
Ăn cỗ đi trước, lội nước theo sau.
Mở đường rồi "chà láng" lại thì ẹc ẹc...
Code mà ngắn gọn quá đâu có "hoành tráng"
Thêm màu mè cho thêm phần Lu xu bu.
Cái này mới thiệt là luxubu nè, hiccc
Em nhìn mà còn muốn ói nè.
PHP:
Sub Copyyy()
Dim ADOobject As Object, StrRequest As String, RS As Object
Dim Provider As String, Source As String, Ext As String
Set ADOobject = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Source = "Data Source=" & ThisWorkbook.FullName
Ext = ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
ADOobject.ConnectionString = Provider & Source & Ext
ADOobject.Open
StrRequest = "INSERT INTO [MauNhapLieu$B4:AT65536] IN '" _
& ThisWorkbook.Path & "\FileMau1.xls ' 'Excel 8.0;'" _
& "SELECT * FROM [Sheet1$B5:AT65536]"
RS.Open StrRequest, ADOobject, 3, 1
Set RS = Nothing
ADOobject.Close: Set ADOobject = Nothing
End Sub
 

Kiều Mạnh

Thành viên gạo cội
Tham gia ngày
9 Tháng sáu 2012
Bài viết
4,210
Được thích
2,925
Điểm
560
Nơi ở
IIIIIIIIIIIIIIIII
......................................................................................
[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Copy
End Sub
[/GPECODE]
Lại Thêm Vụ này nữa kiểu gì tác giả cũng la làng lên cho Anh coi...HicHicHic
 

xuandongql

Thành viên mới
Tham gia ngày
18 Tháng mười một 2013
Bài viết
20
Được thích
0
Điểm
0
Tuổi
42
cảm ơn anh ba tê nhiều nhiều , chúc anh và gia đình luôn mạnh khỏe hạnh phúc , thành công trong cuộc sống.
 

hoanglong1997111

Thành viên mới
Tham gia ngày
18 Tháng mười 2020
Bài viết
1
Được thích
0
Điểm
13
Tuổi
23
Chuyện nhỏ còn hơn con thỏ, nhưng với ý muốn "kỳ khôi" của bạn thì mọi người không khỏi "sốc" nên hỏi tới hỏi lui vậy thôi.
Tặng bạn cái Sub này vì không làm trên file bạn được.

[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
[/GPECODE]
ý nghĩ dòng code là s z anh/ chị.. cho e hỏi 1 câu hơi ngu xíu
 
Top Bottom