Cần giúp code copy công thức (1 người xem)

[vova2209]

Em viết đoạn code này sai ở chỗ nào? mong được giúp đỡ..


Sub copylist()
Dim ws As Worksheet
Dim lr As Long

Set ws = ActiveSheet
Range("G3:J3").Copy
lr = [F65535].End(xlUp).row
Range("G3:J,O3:R,T3:W,Z3:AC" & lr).Pase

End Sub

 

[befaint]

Rm viết đoạn code này sai ở chỗ nào? mong được giúp đỡ..

Mật khẩu thế làm ăn gì

Sub copylist()
    Dim lr As Long, tmp
    tmp=Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G" & lr & ":J" & lr)=tmp
    Range("O" & lr & ":R" & lr)=tmp
    Range("T" & lr & ":W" & lr)=tmp
'....
End Sub

 

[vova2209]

Mật khẩu thế làm ăn gì

Sub copylist()
    Dim lr As Long, tmp
    tmp=Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G" & lr & ":J & lr")=tmp
    Range("O" & lr & ":R & lr")=tmp
    Range("T" & lr & ":W & lr")=tmp
'....
End Sub

bị lỗi rồi a à

 

[befaint]

bị lỗi rồi a à

Mình sửa lại rồi đó...

 

[vova2209]

Mình sửa lại rồi đó...

anh ơi! sửa đâu ạ, code để chỗ nào a ạ!

 

[befaint]

anh ơi! sửa đâu ạ, code để chỗ nào a ạ!

híc. ở bài #2 đó...

 

[vova2209]

híc. ở bài #2 đó...

vẫn thế có chạy được đâu anh ơi! có file ở #3 a add vào đó thử đi ạ

 

[befaint]

vẫn thế có chạy được đâu anh ơi! có file ở #3 a add vào đó thử đi ạ

Bạn nêu yêu cầu là gì đi. Vụ chỉnh sửa code bỏ qua...

 

[vova2209]

Em muốn copy công thức từ Vùng G3:J3 cho Vùng G3:J, O3:R, T3:W, Z3:AC lấy đến dòng cuối cùng so với cột F

 

[befaint]

Em muốn copy giữ liệu từ Vùng G3:J3 cho Vùng G3:J, O3:R, T3:W, Z3:AC lấy đến dòng cuối cùng so với cột F

Thử vầy xem được không nhé.

Sub copylist()
    Dim lr As Long, tmp
    tmp = Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G3:J" & lr) = tmp
    Range("O3:R" & lr) = tmp
    Range("T3:W" & lr) = tmp
    Range("Z3:AC" & lr) = tmp
End Sub

 

[vova2209]

Thử vầy xem được không nhé.

Sub copylist()
    Dim lr As Long, tmp
    tmp = Range("G3:J3")
    lr = [F65535].End(xlUp).row
    Range("G3:J" & lr) = tmp
    Range("O3:R" & lr) = tmp
    Range("T3:W" & lr) = tmp
    Range("Z3:AC" & lr) = tmp
End Sub

em comment nhầm! em muốn coppy công thức sang vùng
Range("G3:J" & lr)
Range("O3:R" & lr)
Range("T3:W" & lr)
Range("Z3:AC" & lr)

 

[befaint]

em comment nhầm! em muốn coppy công thức sang vùng
Range("G3:J" & lr)
Range("O3:R" & lr)
Range("T3:W" & lr)
Range("Z3:AC" & lr)

Sub copylist()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lr As Long
Range("G3:J3").Copy
lr = Range("F65535").End(xlUp).row
If lr >= 3 Then
    Range("G3:J" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("O3:R" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("T3:W" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("Z3:AC" & lr).PasteSpecial Paste:=xlPasteFormulas
End If
Range("G3").Select
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[vova2209]

Sub copylist()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lr As Long
Range("G3:J3").Copy
lr = Range("F65535").End(xlUp).row
If lr >= 3 Then
    Range("G3:J" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("O3:R" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("T3:W" & lr).PasteSpecial Paste:=xlPasteFormulas
    Range("Z3:AC" & lr).PasteSpecial Paste:=xlPasteFormulas
End If
Range("G3").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Very like! đúng rồi anh à, em cảm ơn nhiều ạ
Dòng này ý nghĩa là sao anh: có phải là mở lại tính toán kích vào G3 cho công thức tính toán không anh?
If lr >= 3 Then
..........
End If
Range("G3").Select

 

[befaint]

Very like! đúng rồi anh à, em cảm ơn nhiều ạ
Dòng này ý nghĩa là sao anh: có phải là mở lại tính toán kích vào G3 cho công thức tính toán không anh?
If lr >= 3 Then
..........
End If
Range("G3").Select

Bạn tạo thói quen thử code ấy...
Lần 1: Thử lr>=3
- Bỏ 2 dòng lệnh if ...end đi
- ở cột F, xóa toàn bộ dữ liệu đi
- Chạy code. Xem nó báo gì, xem kết quả ở bảng tính.
Lần 2: Thử Range("G3").Select
- Xóa dòng đó đi rồi chạy code, quay ra bảng tính xem trỏ chuột đang ở đâu?

Đại khái thế...

 

[vova2209]

Bạn tạo thói quen thử code ấy...
Lần 1: Thử lr>=3
- Bỏ 2 dòng lệnh if ...end đi
- ở cột F, xóa toàn bộ dữ liệu đi
- Chạy code. Xem nó báo gì, xem kết quả ở bảng tính.
Lần 2: Thử Range("G3").Select
- Xóa dòng đó đi rồi chạy code, quay ra bảng tính xem trỏ chuột đang ở đâu?

Đại khái thế...

Vâng em hiểu rồi! cảm ơn anh nhiều

 

[vova2209]

à anh! Befaint said: cho em hỏi thêm chút nữa. Như trường hợp file của em nếu muốn để công thức luôn code thì làm thế nào ạ, Công thức G3, H3, I3, J3 vào code!

 

[befaint]

à anh! Befaint said: cho em hỏi thêm chút nữa. Như trường hợp file của em nếu muốn để công thức luôn code thì làm thế nào ạ, Công thức G3, H3, I3, J3 vào code!

Sub copylist()
ChenCongthuc
Dim lr As Long, tmp
'...
End Sub

Sub ChenCongthuc()
Dim i As Long
For i = 1 To 4
    Range("G3").Offset(0, i - 1).Formula = "=IF($D" & 4 + i - 1 & "=" & i + 1 & ",F" & 4 + i - 1 & ","""")"
Next i
End Sub

 

[vova2209]

Sub copylist()
ChenCongthuc
Dim lr As Long, tmp
'...
End Sub

Sub ChenCongthuc()
Dim i As Long
For i = 1 To 4
    Range("G3").Offset(0, i - 1).Formula = "=IF($D" & 4 + i - 1 & "=" & i + 1 & ",F" & 4 + i - 1 & ","""")"
Next i
End Sub

Dùng thẳng như này có nên không anh: ActiveCell.FormulaR1C1 = "=IF(R[1]C4=2,R[1]C[-1],"""")"

 

[befaint]

Dùng thẳng như này có nên không anh: ActiveCell.FormulaR1C1 = "=IF(R[1]C4=2,R[1]C[-1],"""")"

Bạn cứ làm thoải mái, kết quả đúng mong muốn thì dùng thôi.

 

[vova2209]

Bạn cứ làm thoải mái, kết quả đúng mong muốn thì dùng thôi.

Vâng em cảm ơn a nhiều!