DÜŞEYARA - VLOOKUP (Run Time Error 1004 hatası)

[erkanfun]

EK'teki dosyada tuşa basınca bu hatayı veriyor. Neden olduğuna dair bilgi verir misiniz?

 

[Orion1]

Dosyanız ektedir.

Option Explicit

Sub Düğme1_Tıklat()
Dim x As Long
Range("B:B").ClearContents
On Error Resume Next
For x = 1 To 65536
Range("b" & x).Value = WorksheetFunction.VLookup(Sheets("sayfa1").Range("A" & x), Sheets("sayfa2").Range("a:b"), 2, False)
Next
On Error GoTo 0
End Sub

 

[erkanfun]

Dosyanız ektedir.

Option Explicit

Sub Düğme1_Tıklat()
Dim x As Long
Range("B:B").ClearContents
On Error Resume Next
For x = 1 To 65536
Range("b" & x).Value = WorksheetFunction.VLookup(Sheets("sayfa1").Range("A" & x), Sheets("sayfa2").Range("a:b"), 2, False)
Next
On Error GoTo 0
End Sub

On Error Resume Next ve On Error GoTo 0 komutları ne işe yarıyor.

 

[Orion1]

On Error Resume Next ve On Error GoTo 0 komutları ne işe yarıyor.

Bitişik satırdan itibaren on error goto 0 satırına kadar hataları yoksay.

 

[erkanfun]

Bitişik satırdan itibaren on error goto 0 satırına kadar hataları yoksay.

Kusra bakmayın ama anlayamadım :C