Viết đoạn code cho nút lệnh SAVE ?

[lodovo]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Mình thấy bạn viết được 1 nữa đoạn đường iêu cầu rồi còn gì!

Bạn xem & sửa tiếp 1 câu lệnh trong đó đi nha

 If Not sRng Is Nothing Then
    Sh.Cells(sRng.Row, "B").Resize(, 15).Value = [B10:P10].Value               '<=|'
    sRng.Offset(, 3).Value = [H3].Value             'Chu Ho'    
    sRng.Offset(, 6).Value = [G4].Value             ''Dia Chi'
    sRng.Offset(, 4).Value = [G5].Value             'Ho Só'
    sRng.Offset(, 2).Value = [o3].Value             'Ten Cha Me'    
    sRng.Offset(, 7).Value = [N4].Value             ''SDT'    
    sRng.Offset(, 5).Value = [o5].Value             ''DBDTra' 
  End If
End Sub

:muongita:​

Thứ nữa là bạn nên nhờ hay dần dần tự dịch từ ngôn nhữ VBA sang tiếng Việt đi là vừa; Chớ ĩ lại vô GPE.COM hay ở đây hoài là không nên:tamrua:

[thuthao813]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Mình thấy bạn viết được 1 nữa đoạn đường iêu cầu rồi còn gì!

Bạn xem & sửa tiếp 1 câu lệnh trong đó đi nha

 If Not sRng Is Nothing Then
    Sh.Cells(sRng.Row, "B").Resize(, 15).Value = [B10:P10].Value               '<=|'
    sRng.Offset(, 3).Value = [H3].Value             'Chu Ho'    
    sRng.Offset(, 6).Value = [G4].Value             ''Dia Chi'
    sRng.Offset(, 4).Value = [G5].Value             'Ho Só'
    sRng.Offset(, 2).Value = [o3].Value             'Ten Cha Me'    
    sRng.Offset(, 7).Value = [N4].Value             ''SDT'    
    sRng.Offset(, 5).Value = [o5].Value             ''DBDTra' 
  End If
End Sub

:muongita:​

Thứ nữa là bạn nên nhờ hay dần dần tự dịch từ ngôn nhữ VBA sang tiếng Việt đi là vừa; Chớ ĩ lại vô GPE.COM hay ở đây hoài là không nên:tamrua:

Cám ơn bạn đã góp ý, Mình cũng biết một ít ngôn ngữ VBA nhưng vì đề tài khó quá nên mình nhờ giúp đỡ. Đêm qua mình cũng dựa vào đoạn code của bạn đã chỉnh sửa xong rồi. đây là đoạn code mình đã chỉnh sửa lại:
Dim Sh As Worksheet, Rng As Range, sRng As Range

Set Sh = ThisWorkbook.Worksheets("k3")
With Sh.[P7]
Set Rng = .Resize(.CurrentRegion.Rows.Count)
End With
Set sRng = Rng.Find([P10].Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
Sh.Cells(sRng.Row, "B").Resize(, 14).Value = [B10:-O10].Value
Sh.Cells(sRng.Row, "Q").Resize(, 1).Value = [Q10].Value
Sh.Cells(sRng.Row, "S").Resize(, 1).Value = [H3].Value
Sh.Cells(sRng.Row, "R").Resize(, 1).Value = [O3].Value
Sh.Cells(sRng.Row, "V").Resize(, 1).Value = [G4].Value
Sh.Cells(sRng.Row, "W").Resize(, 1).Value = [N4].Value
Sh.Cells(sRng.Row, "T").Resize(, 1).Value = [G5].Value
Sh.Cells(sRng.Row, "U").Resize(, 1).Value = [O5].Value
End If
Range("B10:Q19").ClearContents
Range("H3,O5,G4,G5,N4,O3").ClearContents
MsgBox ("...Thành công..."), vbDefaultButton1, ("Thông báo !"): Range("H3").Select
Exit Sub
Mình còn 4 đề tài khó hơn nữa khả năng của mình thì có hạng mong rằng các bạn giúp đỡ mình. Thân chào các bạn!

[linhtitnb]

Ðề: Viết đoạn code cho nút lệnh SAVE ?

Fương thức thức Resize(x,y) không cần thiếc khi cả x & y là 1

Chúc vui.