- Katılım
- 29 May 2024
- Mesajlar
- 1
- Aldığı beğeni
- 0
- Excel V
- Office 365 EN
Konu Sahibi
Ekli dosyada da görüleceği üzere sarı dolgulu kod için '424' Hata kodu "Object required" hatası almaktayım. Ne yapmalıyım ?
Sub Kaydet()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Dim i As Integer
i = sh_DB.Range("A1").End(xlDown).Row + 1
For k = 1 To 8
sh_Entry_Form.Range("D5").Copy
sh_DB.Cells(i, k).PasteSpecial xlPasteValues
Next k
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
Sub Kaydet()
Application.ScreenUpdating = False
Application.CutCopyMode = False
Dim i As Integer
i = sh_DB.Range("A1").End(xlDown).Row + 1
For k = 1 To 8
sh_Entry_Form.Range("D5").Copy
sh_DB.Cells(i, k).PasteSpecial xlPasteValues
Next k
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
