Copy dữ liệu có điều kiện ! (1 người xem)

[sinzhang]

Kính nhờ anh chị GPE giúp đỡ em thắc mắc này, em có ghi sự giúp đỡ cụ thể trong file đính kèm.
Cám ơn mọi người !

 

[Quang_Hải]

Kính nhờ anh chị GPE giúp đỡ em thắc mắc này, em có ghi sự giúp đỡ cụ thể trong file đính kèm.
Cám ơn mọi người !

Tại B3 nhập và kéo xuống
=VLOOKUP($B$2,Sheet2!$A$2:$E$1000,ROWS($1:2),0)

 

[sinzhang]

Cám ơn bạn, cách của bạn cũng được nhưng với dữ liệu dài mà dùng công thức như vậy mình nghĩ sẽ làm nặng file, ý của mình là có code nào tiện lợi không cần phải nhập công thức mà vẫn làm được như vậy ko?

 

[Quang_Hải]

Cám ơn bạn, cách của bạn cũng được nhưng với dữ liệu dài mà dùng công thức như vậy mình nghĩ sẽ làm nặng file, ý của mình là có code nào tiện lợi không cần phải nhập công thức mà vẫn làm được như vậy ko?

Copy code này cho vào sheet1, nhưng quản lý theo tên e rằng không tốt lắm, dễ trùng tên cho kết quả sai

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
    Dim i
    For i = 1 To 4
        Target(i + 1) = Sheet2.[A:A].Find(Target, , , 1).Offset(, i)
    Next
End If
End Sub

 

[sinzhang]

Anh quanghai1969 ơi, có code nào để khi mình xuống dòng thì số thứ tự (Tại cột A có số thứ tự 1,2,3,4....) sẽ tự nhảy không ?

 

[Quang_Hải]

Anh quanghai1969 ơi, có code nào để khi mình xuống dòng thì số thứ tự (Tại cột A có số thứ tự 1,2,3,4....) sẽ tự nhảy không ?

Không có file mẫu thì có hỏi gì cũng khó trả lời

 

[sinzhang]

File mẫu đây anh : View attachment Mau.xls

 

[Quang_Hải]

File mẫu đây anh : View attachment 112256

Chỉ thế này thôi

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 2 Then
        If .Value <> "" Then
            .Offset(, -1) = .Offset(-1, -1) + 1
        End If
    End If
End With
End Sub

 

[sinzhang]

Chỉ thế này thôi

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 2 Then
        If .Value <> "" Then
            .Offset(, -1) = .Offset(-1, -1) + 1
        End If
    End If
End With
End Sub

Anh cho em hỏi thêm một tý, có cách nào lấy dữ liệu từ 1 file excel chưa "mở" sang 1 file excel khác đang mở hay không?
Em ví dụ nhé :
-File A : nguồn
-File B : file đang mở
Trong File B tạo một button, khi nhấn vào button thì hiện lên bảng chọn nguồn dữ liệu link đến File A(file nguồn), và lấy dữ liệu tại vùng đó copy sang file B (cùng vị trí).
Nhờ anh giúp đỡ dùm em, em mới tập tành excel thôi. Chân thành cảm ơn anh !

File mẫu: View attachment Copy.zip

 

[Quang_Hải]

Anh cho em hỏi thêm một tý, có cách nào lấy dữ liệu từ 1 file excel chưa "mở" sang 1 file excel khác đang mở hay không?
Em ví dụ nhé :
-File A : nguồn
-File B : file đang mở
Trong File B tạo một button, khi nhấn vào button thì hiện lên bảng chọn nguồn dữ liệu link đến File A(file nguồn), và lấy dữ liệu tại vùng đó copy sang file B (cùng vị trí).
Nhờ anh giúp đỡ dùm em, em mới tập tành excel thôi. Chân thành cảm ơn anh !

File mẫu: View attachment 112261

Đồ quỷ này dễ ẹc, khi nào rảnh thì mình mần cho

 

[Quang_Hải]

Anh cho em hỏi thêm một tý, có cách nào lấy dữ liệu từ 1 file excel chưa "mở" sang 1 file excel khác đang mở hay không?
Em ví dụ nhé :
-File A : nguồn
-File B : file đang mở
Trong File B tạo một button, khi nhấn vào button thì hiện lên bảng chọn nguồn dữ liệu link đến File A(file nguồn), và lấy dữ liệu tại vùng đó copy sang file B (cùng vị trí).
Nhờ anh giúp đỡ dùm em, em mới tập tành excel thôi. Chân thành cảm ơn anh !

File mẫu: View attachment 112261

Lấy dữ liệu từ file đang đóng có nhiều cách
Đây là cách đơn giản cơ bản nhất để bạn có thể áp dụng và nghiên cứu code
File cần mở cho dù đang đóng hay mở vẫn ok.

Sub Mofile()
Dim FileName As String, Sarr()
Application.FindFile
With ActiveWorkbook
   FileName = .Name
   With .Sheets("Nguon")
      Sarr = .Range(.[B4], .[C65536].End(3)).Value
   End With
   .Close False 'dòng này se dong file A và không lưu gì cả
End With
Sheets("Sheet1").[B4:C10000].ClearContents
Sheets("Sheet1").[B4].Resize(UBound(Sarr), 2) = Sarr
End Sub

 

[sinzhang]

Nhân tiện cho em hỏi thêm điều này, có công thức hay add-in nào đọc số thành chữ ko anh.
Ví dụ :
- 500 sẽ đọc thành Năm trăm (không phải đọc tiền nha a).