Anh, Chi xem sửa giúp công thức mảng với ạ (3 người xem)

[hoanhnnc]

Chào Anh chị trong forum mong AC giúp sửa code mảng sao khi sửa hay cập nhật sẽ lấy bên data qua như vậy.


Xin cảm ơn

 

[Hoàng Tuấn 868]

Giá có phần chào hỏi thì mình cũng thử lọ mọ, nhưng... thôi vậy.

 

[hoanhnnc]

Giá có phần chào hỏi thì mình cũng thử lọ mọ, nhưng... thôi vậy.

Chào bạn bạn giúp mình với cảm ơn nhiều ạ

 

[BuiQuangThuan]

Giá có phần chào hỏi thì mình cũng thử lọ mọ, nhưng... thôi vậy.

Anh dạo này cũng khó tính rồi ý nhỉ. Hihi

 

[Hoàng Tuấn 868]

Anh dạo này cũng khó tính rồi ý nhỉ. Hihi

Tính mình cương quyết mà.

 

[hoanhnnc]

Giá có phần chào hỏi thì mình cũng thử lọ

Tính mình cương quyết mà.

Chào bạn Tuấn và các ANh chi

Bài đã được tự động gộp: 21/7/22

Chào bạn tuấn chào các Anh Chị,

Nhờ các Anh chị sửa lại giúp Code sao cho truy vấn và cập nhật cho các hàng còn lại trong sheet Data với ạ.
Do kiến thức mảng còn kém mong Anh chị giúp với.


Thanks.

 

[VetMini]

Chào bạn Tuấn và các ANh chi
...

Thanks.

Bạn ấy cũng kỵ tiếng Tây nữa.

 

[bebo021999]

Làm đại, trật làm lại;

Option Explicit
Sub Update()
Dim f
With Worksheets("Data")
    Set f = .Columns(2).Find(what:=Worksheets("Time").Range("A1").Value)
    If f Is Nothing Then
        MsgBox "Khong co NV nay"
        Exit Sub
    Else
        f.Offset(0, 3).Resize(8, 31).Copy
        Worksheets("Time").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    End If
End With
Range("B1").Select
Application.CutCopyMode = False
End Sub

 

[hoanhnnc]

Làm đại, trật làm lại;

Option Explicit
Sub Update()
Dim f
With Worksheets("Data")
    Set f = .Columns(2).Find(what:=Worksheets("Time").Range("A1").Value)
    If f Is Nothing Then
        MsgBox "Khong co NV nay"
        Exit Sub
    Else
        f.Offset(0, 3).Resize(8, 31).Copy
        Worksheets("Time").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    End If
End With
Range("B1").Select
Application.CutCopyMode = False
End Sub

Thanks Anh nhiều lắm. Cam ơn các Anh Chị. chúc Anh chị manh khỏe diễn đàn ngày rất hữu ích.

 

[befaint]

Thớt này dính virus quảng cáo rồi