Input past end of life hatası nedir ??

[semira_]

Sheets("Sonuçlar").Range("E1").Offset(i, 13) = oku
Input #2, oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 14) = oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 15) = oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 16) = oku
Close #2

i = i + 1
Loop

MsgBox "bitti"
End Sub

 

[halit3]

Merhaba

Benzer başka mesajlarınızda da aynı sorularınız var bence sorunuzu sorarken örnek dosya ekleyin ve ne yapmak istediğinizi belirtin buraya eklediğiniz kodlar eksik ne anlama geldiğini söylemek çok güç kodları eklediğinizde # bu işareti tıklayın ve gelen değerlerin ortasına ekleyin.

Sheets("Sonuçlar").Range("E1").Offset(i, 13) = oku
Input #2, oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 14) = oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 15) = oku
Input #2, oku
Input #2, oku
Sheets("Sonuçlar").Range("E1").Offset(i, 16) = oku
Close #2

i = i + 1
Loop

MsgBox "bitti"
End Sub