hata mesajı

[kardelen79]

arkadaşlar bu hata mesajını nasıl çözebilirim

 

[kardelen79]

Sub csvdosyayukle()
Dim ilktar As Date, sontar As Date, tar As Date, sat As Long, deg As String, x
Dim a As String, k As Range, j As Integer, sonsat As Long
Range("B6:AYP" & Rows.Count).ClearContents
ilktar = Range("AYS1").Value
sontar = Range("AYS2").Value
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
'sat = 4
Application.ScreenUpdating = False
For j = 6 To sonsat
If Dir(ThisWorkbook.Path & "\" & Cells(j, "A").Value & ".csv") <> "" Then
Open (ThisWorkbook.Path & "\" & Cells(j, "A").Value & ".csv") For Input As #1
Do While Not EOF(1)
Line Input #1, a
x = Split(a, ";")
deg = x(0)
tar = DateSerial(Left(deg, 4), Mid(deg, 5, 2), Right(deg, 2))
If tar >= ilktar And tar <= sontar Then
Set k = Range("B5:AYP5").Find(deg, , xlValues, xlWhole)
Cells(j, k.Column).Value = CDbl(x(4))
'Cells(sat, "B").Value = CDbl(x(1))
'Cells(sat, "C").Value = CDbl(x(2))
'Cells(sat, "D").Value = CDbl(x(3))
'Cells(sat, "E").Value = CDbl(x(4))
'Cells(sat, "F").Value = CDbl(x(5))
'sat = sat + 1
End If
'deg = ""
Loop
Close #1
End If
Next
Application.ScreenUpdating = True
MsgBox "işlem bitti"
End Sub

 

[kardelen79]

şu ana kadar bir problem yoktu ama neden bunu yaptı anlamadım taranan verileri eksik getiriyor ve tarama yarım kalıyor

 

[kardelen79]

bu şekildede hata çıkıyor

 

[YUSUF44]

İlk hata olmayan bir hücreye/alana/sayfaya başvuru olduğuna dair ikincisi ise değişken tanımlamasının yapılmadığına dair. İlk hatada örneğin 0. satır ya da ZZZZZ sütunu gibi excelde olmayan bir alana başvurulduğunu gösteriyor. İkincide ise sanıyorum dim şeklindeki tanımlamalar eksik kalmış.