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
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
Kod:
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
