Xin giúp đỡ hàm trích xuất dữ liệu từ sheet1 sang sheet2 dữ liệu theo chiều ngang (1 người xem)

[nguyenlinh_2]

Xin chào mọi người đây là lần đầu tiên mình sử dụng diễn đàn và cũng đang mày mò tìm hiểu về Excel xin mọi người giúp đỡ. Mình có 1 sheet1 tính thời gian nâng lương cho cán bộ trong toàn bộ thời gian công tác của họ. Bây giờ mình muốn trích xuất những người có năm nâng lương trong năm nay (VD : Năm 2014) bao gồm các thông tin :Thời gian nâng lương của trong năm đó (Có ngày tháng năm) và hệ số lương được nâng và trình độ chuyên môn sang một sheet2 để khi sang năm ví dụ năm 2015 chỉ việc đánh vào năm 2015 là sẽ có thông tin các cán bộ nâng lương trong năm đó! Xin chân thành cảm ơn mọi người!
(gửi kèm theo bảng tính mọi người xem giúp)

 

[ec ec]

Xin chào mọi người đây là lần đầu tiên mình sử dụng diễn đàn và cũng đang mày mò tìm hiểu về Excel xin mọi người giúp đỡ. Mình có 1 sheet1 tính thời gian nâng lương cho cán bộ trong toàn bộ thời gian công tác của họ. Bây giờ mình muốn trích xuất những người có năm nâng lương trong năm nay (VD : Năm 2014) bao gồm các thông tin :Thời gian nâng lương của trong năm đó (Có ngày tháng năm) và hệ số lương được nâng và trình độ chuyên môn sang một sheet2 để khi sang năm ví dụ năm 2015 chỉ việc đánh vào năm 2015 là sẽ có thông tin các cán bộ nâng lương trong năm đó! Xin chân thành cảm ơn mọi người!
(gửi kèm theo bảng tính mọi người xem giúp)

Sub luong()
With Sheet1
ReDim a(1 To .UsedRange.Rows.Count, 1 To 4)
Set c = .Cells.Find(Year(Now()), LookIn:=xlValues)
If Not c Is Nothing Then
fa = c.Address
Do
i = i + 1
a(i, 1) = .Cells(c.Row, "B")
a(i, 2) = .Cells(c.Row, "D")
a(i, 3) = c
a(i, 4) = c.Offset(, 1)
Set c = .Cells.FindNext(c)
Loop While c.Address <> fa
End If
End With
Sheet2.[B4].Resize(i, 4) = a
End Sub

 

[nguyenlinh_2]

Hic bạn ơi mình chưa hiểu lắm. Hàm này đánh vào đâu bạn ơi có thể gửi lại file cho mình được không

 

[nguyenlinh_2]

Mình đã làm được mỗi tội không biết nếu viết cụ thể cho một năm cần tìm mà không phải là năm mặc định theo đồng hồ của máy tính thì làm thế nào

 

[nguyenlinh_2]

Bạn ơi. có lỗi 1 chút bạn ơi cái công thức bạn cho nó liệt kê 2 lần tên 1 cán bộ nâng lương khi đánh vào dòng C, D, E mình muốn nó liệt kê 1 lần thôi bạn ơi

 

[ec ec]

Bạn ơi. có lỗi 1 chút bạn ơi cái công thức bạn cho nó liệt kê 2 lần tên 1 cán bộ nâng lương khi đánh vào dòng C, D, E mình muốn nó liệt kê 1 lần thôi bạn ơi

Sub luong()
With Sheet1
ReDim a(1 To .UsedRange.Rows.Count, 1 To 5)
y = InputBox("Nam nao ?")
Set c = .[I:BR].Find(y, LookIn:=xlValues)
If Not c Is Nothing Then
fa = c.Address
Do
i = i + 1
a(i, 1) = .Cells(c.Row, "B")
a(i, 2) = .Cells(c.Row, "E")
a(i, 3) = c
a(i, 4) = c.Offset(, 1)
a(i, 5) = .Cells(4, c.Column)
Set c = .[I:BR].FindNext(c)
Loop While c.Address <> fa
End If
End With
Sheet2.[B4].Resize(i, 5) = a
End Sub