Application defined or object defined error (1004)

[0uranus0]

Arkadaşlar bir userformum var bu kısımda
Application defined or object defined error (1004) hatasını alıyorum kodun düzenleme şeklinde bir sıkıntı olabilirmi ?

For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next

Private Sub CommandButton9_Click()
yer = atanacak.Text

If OptionButton5.Value = True Then
Sheets(yer).Cells.ClearContents
End If


If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
yer1 = ComboBox1.Text

sat2 = Label1 - 2
Sheets(yer).Cells(1, 1).Value = Sheets(yer1).Cells(1, 1).Value

For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next

sat1 = Worksheets(yer).[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count + 1
On Error Resume Next
'Sheets(yer).Cells(sat1, 1).Value = ListView1.ListItems(r)
For i = 0 To ListView1.ColumnHeaders.Count - 1
On Error Resume Next
If IsNumeric(ListView1.ListItems(r).ListSubItems(i).Text) = False Then
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Else

'If CDate(ListView1.ListItems(r).ListSubItems(i).Text) = True Then

If Len(ListView1.ListItems(r).ListSubItems(i).Text) = 10 Then
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Else
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text * 1
End If

End If


Next i
sat1 = sat1 + 1
Next r
MsgBox "Raporlama İşleminiz Tamamlanmıştır"
End Sub

 

[Trilenium]

objeyi bulamadigini söylüyor...referanslara gidip bakarmısınız hanggisinde missing var

 

[0uranus0]

referanslar resimdeki gibi.

 

[programer]

microsoft common controls X.0 referansını ekleyin dosyayı kay dedip yeniden açıp deneyin

referans = MSCOMCTL.OCX