Giúp em giải bài toán lấy mảng dữ liệu với (1 người xem)

[boclua]

Chào các bác,
Em đang gặp 1 vấn đề: Em có 1 file gồm 2 sheets. Sheet1 là data gồm nhiều table cho nhiều mặt hàng, các table này có cấu trúc( giống số cột, khác số dòng) giống hệt nhau
Câu hỏi: Tại sheet2 : có 1 bảng có cấu trúc giống hệt ( cùng số cột) so với các bảng bên Sheet1.
TạiooA2, nhập code cho sản phầm, và cái bảng ở dưới tự động lấy ra các số liệu từ bên Sheets1

Do trình còi sức yêu, em nghĩ cả ngày hôm nay chưa ra. Các bác giúp em tận tình với ạ. Xin cám ơn các bác.
Các bác xem file đính kèm nhé.

 

[sealand]

Bạn lưu file dưới dạng *.xls thì những người sử dụng Excell 2003 mới xem và giúp bạn được.

 

[boclua]

Vâng, em đã đổi sang excel 2003 rồi đấy ạ, các bác giúp cho

 

[boclua]

B-) Cuối giờ mới nghĩ ra là dùng hàm match và index là đơn giản nhất, bác nào có cách khác không ạ?

 

[sealand]

Mình dùng công thức khác match và index

 

[Lê Duy Thương]

Vâng, em đã đổi sang excel 2003 rồi đấy ạ, các bác giúp cho

xem file nhé
không biết có đúng ý không

 

[boclua]

Chuẩn quá bác LE DUY TUONG ạ
Em cám ơn bác nhé,

 

[linhngoc]

Giúp đỡ về hàm

Mong các bạn giúp đỡ mình về phiếu xuất kho này với.
Mình mới đi làm nên trình độ còn kém quá, làm mãi mà không ra.
Cảm ơn các bạn rất nhiều!

 

[TongDe]

Bạn bố trí dữ liệu chưa hợp lý
nên không thể làm hết theo yêu cầu
Làm sơ phần thân cho bạn ngâm cứu
từ đó suy ra phần còn lại
Chào !

 

[linhngoc]

Bạn cho mình hỏi thêm với. Mình xem hàm bạn đặt tên là Doanh so nhưng mình không hiểu lắm khi đọc hàm này. Bạn có thể giải thích giúp mình với.
Thân.

 

[TongDe]

Nếu cột B và C trống thì để trông trái lại DanhSo ( Đánh Số Thứ tự )
DanhSo = ... -> Ctrl+F3 , chọn name , xem refer to
Copy từ sau dấu =
Paste và ngâm cứu.
Nếu không làm được thì đợi vài ngày mình hoàn thiện file cho
Bye

 

[linhngoc]

Hic! anh đặt nhiều tên cho hàm quá. Toàn hàm offset khó thôi. Mà anh cho e hỏi chút với hàn
Bang =offset('NhapXuat!$A$1,2,0,count('NhapXuat!$B$B),8)
hàm này e đọc cũng không hiểu rồi. Và tại sao đối số của hàm count lại không chỉ rõ từ ô B mấy đến B mấy mà cũng vẫn ra kết quả vậy? Anh làm ơn chỉ cho e hàm này để e xem các hàm còn lại với.
Cảm ơn anh rất nhiều!

 

[TongDe]

Đây là cách đặt tên động nghĩa là khi thêm vào danh sách thì list trong validationn tự cập nhật
Hàm có 5 đối số
1.Xác định điểm bắt đầu ( cell a1 của sheet NhapXuat )
2. Đếm xuống 2 dòng
3. Đếm qua 0 cột (ngay chinh cột đó )
Bắt đầu xác định vùng dặt tên của name
4. Có số dong là : đếm trong cột B
5. Có số cột là :8
Hàm rất hay cố gắng tìm hiểu thêm trên diễn đàn
Tìm đọc thêm bài của HanDung107 và Trần Thanh Phong

 

[SA_DQ]

Hãy xài thử với sự hỗ trợ của macro sự kiện sau

Mong các bạn giúp đỡ mình về phiếu xuất kho này với, làm mãi mà không ra.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [j5]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   Dim MyAdd As String
   
   Set Sh = Sheet1:        Set Rng = Sh.Range(Sh.[B3], Sh.[B65500].End(xlUp))
   Set sRng = Rng.Find([j5].Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyAdd = sRng.Address
      [B13].Resize(23, 9).ClearContents
      Do
         [f4].Value = sRng.Offset(, -1).Value
         [d7].Value = sRng.Offset(, 8).Value
         [D8].Value = sRng.Offset(, 9).Value
         
         [J7].Value = sRng.Offset(, 10).Value
         [j9].Value = sRng.Offset(, 11).Value
         [j8].Value = sRng.Offset(, 12).Value
         With [b36].End(xlUp).Offset(1)
            .Value = sRng.Offset(, 1).Value
            .Offset(, 1).Value = sRng.Offset(, 1).Value
            .Offset(, 2).Value = sRng.Offset(, 4).Value              'DVT'
            .Offset(, 3).Resize(, 2).Value = sRng.Offset(, 2).Resize(, 2).Value
            .Offset(, 5).Value = sRng.Offset(, 7).Value              'DonGia'
            .Offset(, 6).Value = .Offset(, 4).Value * .Offset(, 5).Value
            .Offset(, 7).Resize(, 2).Value = sRng.Offset(, 5).Resize(, 2).Value
         End With
         Set sRng = Rng.FindNext(sRng)
      Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
   End If
 End If
End Sub

Những chú ý cần thiết:

(*) Tên trang tính không nên viết tiếng Việt có dấu & có khoảng trắng;

(*) Trang 'ThongTin' Không cần format màu mè hay trộn ô. Cứ coi như là dữ liệu thô đi, nha; Trang kia mới cần format cho đẹp càng tốt!
(Xin xem thêm trong file)