Lấy dữ liệu file excel từ 1 file excel

[tiamo2_2]

Chào cả nhà!
Mình có một vấn đề này muốn nhờ các cao thủ giúp.
Mình có 1 file excel tên "BTH" mình muốn lấy dữ liệu từ file này sang 1 file excel khác, 2 file này nằm khác folder.
Mình muốn khi đánh KM+480 vào ô 42E ở file 2 thì sẽ lấy các số liệu từ file "BTH" theo hàng có KM+480, nều đánh KM+630 vào ô 42E thì sẽ lấy theo dòng có KM+630...
cảm ơn cả nhà!

 

[haonlh]

Chào cả nhà!
Mình có một vấn đề này muốn nhờ các cao thủ giúp.
Mình có 1 file excel tên "BTH" mình muốn lấy dữ liệu từ file này sang 1 file excel khác, 2 file này nằm khác folder.
Mình muốn khi đánh KM+480 vào ô 42E ở file 2 thì sẽ lấy các số liệu từ file "BTH" theo hàng có KM+480, nều đánh KM+630 vào ô 42E thì sẽ lấy theo dòng có KM+630...
cảm ơn cả nhà!

Nói rõ hơn
thì sẽ lấy các số liệu từ file "BTH" theo hàng có KM+480 của sheet nào.

Nêu chỉ lấy từ sheets đó thì nên chép cả sheet đó sang file cần xử lý

 

[quanluu]

Chào cả nhà!
Mình có một vấn đề này muốn nhờ các cao thủ giúp.
Mình có 1 file excel tên "BTH" mình muốn lấy dữ liệu từ file này sang 1 file excel khác, 2 file này nằm khác folder.
Mình muốn khi đánh KM+480 vào ô 42E ở file 2 thì sẽ lấy các số liệu từ file "BTH" theo hàng có KM+480, nều đánh KM+630 vào ô 42E thì sẽ lấy theo dòng có KM+630...
cảm ơn cả nhà!

Cái của bạn đơn giản thui, nhưng bạn muốn lấy dữ liệu từ sheet nào, sao tôi ko thấy số thứ tự từ 1 đến 17 mà chỉ thấy 1,2,3,5...

 

[tiamo2_2]

không fải là lấy cả sheep bạn, trong file mình đá nghi ro. Vd khi KM+480 vào ô 42E thì theo dòng 42 dữ liệu ở "BTH" ở ô mình đánh số 1 sẽ lick vào ô nghi số 1 ở file 2, ô mình đánh số 2 sẽ lick vào ô nghi số 2 ở file 2...., khi đánh KM+630 vào ô 42E thi lại tìm theo dòng 43....

 

[tiamo2_2]

Mình muốn lấy dữ liệu tù sheet "Main road" đưa vào sheet "Sc". ý mình là ô ghi số 1 ở sheep "Main road" được đưa vào ô nghi số 1 sheet "Sc". ô nghi sô 2 thì đưa vào ô số 2....
bạn xem giúp mình thanks

 

[quanluu]

không fải là lấy cả sheep bạn, trong file mình đá nghi ro. Vd khi KM+480 vào ô 42E thì theo dòng 42 dữ liệu ở "BTH" ở ô mình đánh số 1 sẽ lick vào ô nghi số 1 ở file 2, ô mình đánh số 2 sẽ lick vào ô nghi số 2 ở file 2...., khi đánh KM+630 vào ô 42E thi lại tìm theo dòng 43....

Mình chưa thấy ai nói là 42E cả, gọi đúng là E42. Cái mà đang thắc mắc là bạn muốn lấy dữ liệu sheet nào?????( 1 đống sheet thế) mà t vẫn đag thắc mắc 1 đến 17 nữa

 

[tiamo2_2]

Cái của bạn đơn giản thui, nhưng bạn muốn lấy dữ liệu từ sheet nào, sao tôi ko thấy số thứ tự từ 1 đến 17 mà chỉ thấy 1,2,3,5...

Mình muốn lấy dữ liệu tù sheet "Main road" đưa vào sheet "Sc". ý mình là ô ghi số 1 ở sheep "Main road" được đưa vào ô nghi số 1 sheet "Sc". ô nghi sô 2 thì đưa vào ô số 2....
bạn xem giúp mình thanks

 

[tiamo2_2]

Mình chưa thấy ai nói là 42E cả, gọi đúng là E42. Cái mà đang thắc mắc là bạn muốn lấy dữ liệu sheet nào?????( 1 đống sheet thế) mà t vẫn đag thắc mắc 1 đến 17 nữa

mình sửa lai file bạn giúp mình. ô nghi số 1 ở sheet Main road được link vào ô số 1 ở sheet 1, tương tự cho các ô khác bạn. các ô có số giống nhau sẽ được link với nhau. 2 file không ở cùng 1 fond nha bạn.

 

[quanluu]

mình sửa lai file bạn giúp mình. ô nghi số 1 ở sheet Main road được link vào ô số 1 ở sheet 1, tương tự cho các ô khác bạn. các ô có số giống nhau sẽ được link với nhau. 2 file không ở cùng 1 fond nha bạn.

B dùng code sau

Sub test()
Dim i As Integer, wb As Workbook, ws As Worksheet, wsmain As Worksheet
Dim Filename As String
Application.ScreenUpdating = False
Set wsmain = ThisWorkbook.ActiveSheet
Filename = Application.GetOpenFilename
Set wb = Workbooks.Open(Filename)
Set ws = wb.Sheets("Main road")
    With ws
        For i = 4 To .Range("C1000").End(3).Row
            If .Cells(i, 3) = wsmain.Cells(42, 5) Then
                wsmain.Cells(43, 5) = .Cells(i, 26)
                wsmain.Cells(46, 5) = .Cells(i, 30)
                wsmain.Cells(47, 5) = .Cells(i, 21)
                wsmain.Cells(48, 5) = .Cells(i, 36)
                wsmain.Cells(46, 6) = .Cells(i, 28)
                wsmain.Cells(47, 6) = .Cells(i, 29)
                wsmain.Cells(48, 6) = .Cells(i, 38)
                wsmain.Cells(49, 6) = .Cells(i, 39)
                wsmain.Cells(50, 6) = .Cells(i, 25)
                wsmain.Cells(51, 6) = .Cells(i, 27)
                wsmain.Cells(52, 6) = .Cells(i, 22)
                wsmain.Cells(54, 6) = .Cells(i, 23)
                wsmain.Cells(55, 6) = .Cells(i, 24)
                wsmain.Cells(60, 5) = .Cells(i, 40)
                wsmain.Cells(60, 7) = .Cells(i, 41)
                wsmain.Cells(60, 9) = .Cells(i, 42)
                wsmain.Cells(60, 11) = .Cells(i, 43)
            End If
        Next
    End With
wb.Close False
Application.ScreenUpdating = True
End Sub

 

[tiamo2_2]

B dùng code sau

Sub test()
Dim i As Integer, wb As Workbook, ws As Worksheet, wsmain As Worksheet
Dim Filename As String
Application.ScreenUpdating = False
Set wsmain = ThisWorkbook.ActiveSheet
Filename = Application.GetOpenFilename
Set wb = Workbooks.Open(Filename)
Set ws = wb.Sheets("Main road")
    With ws
        For i = 4 To .Range("C1000").End(3).Row
            If .Cells(i, 3) = wsmain.Cells(42, 5) Then
                wsmain.Cells(43, 5) = .Cells(i, 26)
                wsmain.Cells(46, 5) = .Cells(i, 30)
                wsmain.Cells(47, 5) = .Cells(i, 21)
                wsmain.Cells(48, 5) = .Cells(i, 36)
                wsmain.Cells(46, 6) = .Cells(i, 28)
                wsmain.Cells(47, 6) = .Cells(i, 29)
                wsmain.Cells(48, 6) = .Cells(i, 38)
                wsmain.Cells(49, 6) = .Cells(i, 39)
                wsmain.Cells(50, 6) = .Cells(i, 25)
                wsmain.Cells(51, 6) = .Cells(i, 27)
                wsmain.Cells(52, 6) = .Cells(i, 22)
                wsmain.Cells(54, 6) = .Cells(i, 23)
                wsmain.Cells(55, 6) = .Cells(i, 24)
                wsmain.Cells(60, 5) = .Cells(i, 40)
                wsmain.Cells(60, 7) = .Cells(i, 41)
                wsmain.Cells(60, 9) = .Cells(i, 42)
                wsmain.Cells(60, 11) = .Cells(i, 43)
            End If
        Next
    End With
wb.Close False
Application.ScreenUpdating = True
End Sub

Bạn có thể giúp mình khi lấy dữ liệu sheet "Main road" vẫn mở file chứ sheet "Main road" được không,
thanks bạn nhiều