Uzun formülün Koda İlavesi

[Bakigemlik]

Merhaba,

Aşağıdaki formülü koda ilave ettiğimde aşağıdaki hatayı alıyorum sebebi nedir,

Alınan Hata :Appilication-defined or object-defined error

With S2.Range("B2:B" & Son)
        .Formula = "=IFERROR(CONCATENATE(LEFT(MID(VLOOKUP(RC1,'[ ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),7,1)),LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),8,1)),""."",LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),5,1)),LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),6,1)),""."",LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm" & _
        "LGİ'!C1:C5,5,0),1,1)),LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),2,1)),LEFT(MID(VLOOKUP(RC1,'[ŞAHİN.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),3,1)),LEFT(MID(VLOOKUP(RC1,'[.v02.xlsm]COLA BİLGİ'!C1:C5,5,0),4,1))),"""")"
        .Value = .Value
    End With

 

[vardar07]

Hatanın ingilizce sini google amca Uygulama tanımlı veya nesne tanımlı hata olarak türkçe ye çeviriyor ya hatayı arayıp çözümünü bulun yada örnek dosyanızı (içinde yapmak istediğinizi belirtilmiş şekilde) ekleyerek yardım bekleyin.

 

[Erdem Akdemir]

Merhaba,

Bu kadar uzun bir formülü vba'da kullanmak yerine sonucu vba nesneleri ile ulaşmak daha mantıklı.