ctrl+shift+enter kombinasyonu

[bluefalcon]

Arkadaşlar hücreye girdiğimiz formüle ctrl+shift+enter kombinasyonunu kullanarak {=INDEX(R4C2:R204C2,MATCH(1,IF(R4C4:R204C4=R[-9]C,IF(R4C5:R204C5=R[-9]C[1],1)),0))} şeklinde formülü girmek istiyorum. Ama hücreye metin olarak atıyor.Acaba bu kombinasyonun VBA 'da bir karşılığı var mı? Neden olmuyor?

 

[Merhum İdris SERDAR]

=INDEX(R4C2:R204C2;MATCH(1;IF(R4C4:R204C4=R[-9]C;IF(R4C5:R204C5=R[-9]C[1];1));0))

,'leri ; yapın.

.

 

[bluefalcon]

Teşekkürler ancak olmadı hata veriyor.. Range Sınıfının FormulaArray yöntemi başarısız diyor..Kod aşağıdaki gibi;

For i = 4 To 10

Range("j4").Select
With Cells(i, "j")
.FormulaArray "=INDEX(R4C2:R204C2;MATCH(1;IF(R4C4:R204C4=R[-9]C;IF(R4C5:R204C5=R[-9]C[1];1));0))"

.Value = .Value
End With

Next

 

[Merhum İdris SERDAR]

Teşekkürler ancak olmadı hata veriyor.. Range Sınıfının FormulaArray yöntemi başarısız diyor..Kod aşağıdaki gibi;

For i = 4 To 10

Range("j4").Select
With Cells(i, "j")
.FormulaArray "=INDEX(R4C2:R204C2;MATCH(1;IF(R4C4:R204C4=R[-9]C;IF(R4C5:R204C5=R[-9]C[1];1));0))"

.Value = .Value
End With

Next

Makroda ise ;'lerin , olması gerekir. Yukarıdaki mesajımı dikkate almayın.

.

 

[bluefalcon]

Benim için önemli bir konu yardımcı olursanız memnun olurum..

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklerseniz yardımcı olabiliriz.