Cách lấy dữ liệu ở sheet kế bên

[Warm_rose80]

Xin các Bạn trong GPE chỉ giúp mình , xem file mình đính kèm này nha !

 

[huuthang_bd]

Xin các Bạn trong GPE chỉ giúp mình , xem file mình đính kèm này nha !

Bạn sử dụng công thức này:

I3=INDEX(INDIRECT("'"&RIGHT(SUBSTITUTE(CELL("filename",A1),"]",REPT(" ",100)),100)-1&"'!F:F"),MATCH("Toång",INDIRECT("'"&RIGHT(SUBSTITUTE(CELL("filename",A1),"]",REPT(" ",100)),100)-1&"'!A:A"),))

 

[SA_DQ]

Và tham khảo thêm 1 macro dữ kiện tại cột 'F', như sau

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range([F4], [F65500].End(xlUp))) Is Nothing Then
   Dim I3_ As Long
   If Target.Row = 4 Then
      Dim Sh As Worksheet, StrC As String
      Set Sh = ActiveSheet:                     StrC = Sh.Name
      I3_ = Sheets(CStr(CInt(Sh.Name) - 1)).[i65500].End(xlUp).Value
      [I3].Value = I3_:                         [G4].Value = [I3].Value + 1
      [I4].Value = Target.Value + I3_
   Else
      With Target
         .Offset(, 1).Value = 1 + .Offset(-1, 3).Value
         .Offset(, 3).Value = .Value + .Offset(-1, 3).Value
      End With
   End If
 End If
End Sub