Nhờ sửa code tự động Copy công thức

[khamha]

Chào các bạn,mình có sử dung đoạn Code sau để Copy công thức khi xuống hàng,Nhưng nó lại có
tác dụng đến tất cả các Sheet,Mà mình chỉ muốn nó có tác dụng trong 01 Sheet,đó là Sheet"Data".
Nhờ các bạn xem và sửa lại cho mình với,Cảm ơn các bạn.

Code:
Private Sub InsertRow()
Dim Cll As Range
'Selection.Offset(1).EntireRow.Insert
For Each Cll In Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
If Cll.HasFormula Then Cll.Copy Cll.Offset(1)
Next Cll
Selection.Offset(1).Select
End Sub

 

[ndu96081631]

Chào các bạn,mình có sử dung đoạn Code sau để Copy công thức khi xuống hàng,Nhưng nó lại có
tác dụng đến tất cả các Sheet,Mà mình chỉ muốn nó có tác dụng trong 01 Sheet,đó là Sheet"Data".
Nhờ các bạn xem và sửa lại cho mình với,Cảm ơn các bạn.

Code:
Private Sub InsertRow()
Dim Cll As Range
'Selection.Offset(1).EntireRow.Insert
For Each Cll In Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
If Cll.HasFormula Then Cll.Copy Cll.Offset(1)
Next Cll
Selection.Offset(1).Select
End Sub

Thì chổ ActiveSheet bạn sửa thành Sheets("Data") là được rồi
Đại khái vầy:
- Cho code vào Module
- Bỏ đoạn Private
- Sửa code thành:

Sub InsertRow()
  Dim Cll As Range
  If TypeOf Selection Is Range Then
    If Selection.Parent.Name = "Data" Then
      For Each Cll In Intersect(Selection.EntireRow, Sheets("Data").UsedRange)
        If Cll.HasFormula Then Cll.Copy Cll.Offset(1)
      Next Cll
    End If
  End If
End Sub