Eğerhata ve düşey aranın birlikte kullanımı

[kemal turan]

Merhaba,
Bir kriterli 11 sahifede aramalı eğerhata ve düşey ara fonksiyonunu birlikte kullandım.
Hücresel formül olarak kullandığımda sorun yok.
=EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(DÜŞEYARA(A2;Panel!B:N;7;0);DÜŞEYARA(A2;Otr.Grubu!B:N;7;0));DÜŞEYARA(A2;'Masa san.bahce.'!B:N;7;0));DÜŞEYARA(A2;Baza!B:N;7;0));DÜŞEYARA(A2;yatak!B:N;7;0));DÜŞEYARA(A2;Halı!B:Q;7;0));DÜŞEYARA(A2;'Ev teks.'!B:N;7;0));DÜŞEYARA(A2;nevresim!B:N;7;0));DÜŞEYARA(A2;'fırsat urunlerı'!B:N;7;0));DÜŞEYARA(A2;aksesuar!B:N;7;0));DÜŞEYARA(A2;kozmetık!B:N;7;0));DÜŞEYARA(A2;mobılyaaksesuar!B:N;7;0));0)
Aşağıdaki şekilde Makroya çevirdiğimde hata veriyor.
Yardımlarınız için teşekkür ederim

Sub Makro11()
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(VLOOKUP(RC[-5],Panel!C[-4]:C[8],7,0),VLOOKUP(RC[-5],Otr.Grubu!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],'Masa san.bahce.'!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],Baza!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],yatak!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],Halı!C[-4]:C[11],7,0)),VLOOKUP(RC[-5],'Ev teks.'!C[-" & _
        "7,0)),VLOOKUP(RC[-5],nevresim!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],'fırsat urunlerı'!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],aksesuar!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],kozmetık!C[-4]:C[8],7,0)),VLOOKUP(RC[-5],mobılyaaksesuar!C[-4]:C[8],7,0)),0)"
    Range("G2").Select
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki gibi kullanın.

ActiveCell.formulalocal="=EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(DÜŞEYARA(A2;Panel!B:N;7;0);DÜŞEYARA(A2;Otr.Grubu!B:N;7;0));DÜŞEYARA(A2;'Masa san.bahce.'!B:N;7;0));DÜŞEYARA(A2;Baza!B:N;7;0));DÜŞEYARA(A2;yatak!B:N;7;0));DÜŞEYARA(A2;Halı!B:Q;7;0));DÜŞEYARA(A2;'Ev teks.'!B:N;7;0));DÜŞEYARA(A2;nevresim!B:N;7;0));DÜŞEYARA(A2;'fırsat urunlerı'!B:N;7;0));DÜŞEYARA(A2;aksesuar!B:N;7;0));DÜŞEYARA(A2;kozmetık!B:N;7;0));DÜŞEYARA(A2;mobılyaaksesuar!B:N;7;0));0)"

 

[kemal turan]

Muzaffer bey çok teşekkür ederim .
Kodunuzu aşağıdaki şekilde kendime uyarladım.
Selametle kalınız.

Sub Makro12()
On Error Resume Next
Set s1 = Sheets("ÜRÜNLER")
s1.Select
s1.[F2:F10000].ClearContents 'giren
Son = Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With s1.Range("F2:F" & Son) 'GİREN
.FormulaLocal = "=EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(EĞERHATA(DÜŞEYARA(A2;Panel!B:N;7;0);DÜŞEYARA(A2;Otr.Grubu!B:N;7;0));DÜŞEYARA(A2;'Masa san.bahce.'!B:N;7;0));DÜŞEYARA(A2;Baza!B:N;7;0));DÜŞEYARA(A2;yatak!B:N;7;0));DÜŞEYARA(A2;Halı!B:Q;7;0));DÜŞEYARA(A2;'Ev teks.'!B:N;7;0));DÜŞEYARA(A2;nevresim!B:N;7;0));DÜŞEYARA(A2;'fırsat urunlerı'!B:N;7;0));DÜŞEYARA(A2;aksesuar!B:N;7;0));DÜŞEYARA(A2;kozmetık!B:N;7;0));DÜŞEYARA(A2;mobılyaaksesuar!B:N;7;0));0)"
.Value = .Value
Range("j1").Select
End With
End Sub