Soru Compile Error Expected: Line Number or Label Hatası

leonadies

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
520
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Altın Üyelik Bitiş Tarihi
01-02-2027
Ü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

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
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

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
520
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Altın Üyelik Bitiş Tarihi
01-02-2027
Ömer Hocam çok teşekkür ederim :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst