Soru Compile Error Expected: Line Number or Label Hatası

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Üstadlar aşağıdaki kodu yazmaya çalışıyorum. Herşey normal olmasına rağmen makro satırında kırmızı olarak duruyor ve amacıma ulaşamıyorum. Yani bırakın çalıştırmayı denemeyi doğru yazıldığını bile sağlatamıyorum makro penceresinde.
Sorun nedir acaba?
Not: Kodun yazımında hata yok sanki çok uzun olmasından kaynaklı bir sorun var



Sayfa1.Cells(i, "Z") =
IIf(IsError(Ap

Yukarıdaki 2 satır yanyana getiremiyorum

Kod:
Sub bul()

son = Sayfa1.Cells(Rows.Count, "F").End(3).Row


On Error GoTo 10

For i = 2 To son

Sayfa1.Cells(i, "Z") =
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BA:BB"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BA:BB"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BC:BD"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BC:BD"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BE:BF"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BE:BF"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BG:BH"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BG:BH"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BI:BJ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BI:BJ"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BK:BL"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BK:BL"), 2, 0))& Chr(10
) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BM:BN"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BM:BN"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BO:BP"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BO:BP"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BQ:BR"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BQ:BR"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BS:BT"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BS:BT"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BU:BV"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BU:BV"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BW:BX"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BW:BX"), 2, 0))& Chr
(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BY:BZ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BY:BZ"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CA:CB"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CA:CB"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CC:CD"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CC:CD"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CE:CF"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CE:CF"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CG:CH"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CG:CH"), 2, 0))& Chr(10) &IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CI:CJ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CI:CJ"), 2, 0))


Next i
10

End Sub
Hata.jpg
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
Sub bul()

son = Sayfa1.Cells(Rows.Count, "F").End(3).Row

On Error GoTo 10

For i = 2 To son

Sayfa1.Cells(i, "Z") = _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BA:BB"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BA:BB"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BC:BD"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BC:BD"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BE:BF"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BE:BF"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BG:BH"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BG:BH"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BI:BJ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BI:BJ"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BK:BL"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BK:BL"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BM:BN"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BM:BN"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BO:BP"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BO:BP"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BQ:BR"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BQ:BR"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BS:BT"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BS:BT"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BU:BV"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BU:BV"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BW:BX"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BW:BX"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BY:BZ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("BY:BZ"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CA:CB"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CA:CB"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CC:CD"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CC:CD"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CE:CF"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CE:CF"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CG:CH"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CG:CH"), 2, 0)) & Chr(10) & _
IIf(IsError(Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CI:CJ"), 2, 0)), "", Application.VLookup(Sayfa1.Cells(i, "E"), Sayfa1.Range("CI:CJ"), 2, 0))

Next i
10

End Sub
 

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
515
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Ömer Hocam çok teşekkür ederim :)
 
Üst