Giúp mình với

[traikhdt]

Mọi người giúp mình với mình muốn sau khi số liệu nhập từ UserForm vào các ô từ Ai => Fi thì ô Gi,Hi,Ii tự copy dòng Gi-1,Hi-1,Ii-1 và dán công thức vào Gi,Hi,Ii

 

[VetMini]

Ðề: Giúp mình với

' ví dụ đang ở dòng lnum
Range("G" & lnum & ":" & "I" & lnum).Select
Selection.Offset(-1, 0).Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

' hoặc gọn hơn
lnum = Selection.Row
Range("G" & (lnum - 1) & ":" & "I" & (lnum - 1)).Copy Destination:=Range("G" & lnum & ":" & "I" & lnum)

 

[traikhdt]

Ðề: Giúp mình với

Bạn ơi mình có 1 vấn đề bạn giúp mình nhé:
Mình muốn khi Ô L3 thay đổi thì các giá trị của cột G thay đổi như sau: IF(A13<$J$2;"td";IF(A13<=$J$3;"tk";"k"))

 

[VetMini]

Ðề: Giúp mình với

Dùng cách bắt sự kiện change sheet:

Trong cái sheet đó (phải là sheet chứ không phải project), nhét vào cái sub sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$3" Then
Application.EnableEvents = False
' code thay đổi cho côt G ở đây
Application.EnableEvents = True
End If
End Sub

 

[traikhdt]

Ðề: Giúp mình với

Mình mù tịt về VBA bạn hộ mình luôn đoạn code thay đổi cho cột G nhé. cảm ơn bạn nhiều