Türkçe formülü hücreye makroyla insert etmek?

[snx111]

Bu formülü makro ile nasıl nasıl mesela a1 hücresine insert edebilirim ?

inglizceye çevirmek şartmıdır ?
2010 tr kullanıyorum vba nında türkçesi varda benim mi haberim yok ?

range("a1").formula= "=KAYDIR($V1;;TOPLA.ÇARPIM(MAK(($V1:$AH100=$A1)*SÜTUN($V1:$AH100)-SÜTUN($V1))))"

 

[snx111]

Sanırım ing ye çevirmem şart

 

[Muhammet Okumuş]

Sanırım çevirmeniz gerekiyor.

 

[snx111]

Çevirdim ama yine olmadı makro ile formul insert etmek için formulude makroya uyarlamak lazım ?
Küçük formüllerde problem çıkmıyor

If Range("a1") <> "" Then Range("a2").Formula = "=offset($V1;;sumproduct(MAx(($V1:$AH100=$A1)*column($V1:$AH100)-column($V1))))"

error "1001" application denined error

 

[snx111]

If Range("a1") <> "" Then Range("a2").Formula = "=offset($V1;;sumproduct(MAx(($V1:$AH100=$A1)*column($V1:$AH100)-column($V1))))"

şu column daki boşluk sanırım forumdaki bir hatadan boşluk gösteriyor 2 defa denedim bende boşluksuz !!!1

 

[Muhammet Okumuş]

; yerine , deneyiniz.

 

[snx111]

; yerine , deneyiniz.

ad hatası veriyor ama sayfadan fx çubuguna girip enter yapınca dogru çalışıyor ?
sayfa yeniden hesaplattım ama nafile;

çözümü buldum ing şart teşekkürler

 

[Muhammet Okumuş]

Hocam ben de hata vermedi.
Range("a2").Formula = "=offset($V1,,sumproduct(MAX(($V1:$AH100=$A1)*column($V1:$AH100)-column($V1))))"

 

[snx111]

Hocam ben de hata vermedi.
Range("a2").Formula = "=offset($V1,,sumproduct(MAX(($V1:$AH100=$A1)*column($V1:$AH100)-column($V1))))"

sorun çözüldü teşekkür ederim ;

devamsal olarak bir sorum daha olacak formulu değilde formülün sonucunu a2 hücresinde göremezmiyim makroda yine ;

sayfada ("a2") ye bakınca sadece sonuç görünsün ; formul görünmesin istiyorum;

formulu bir dim x as integer ; yada dim x as range ; atayıp range("a2")=x.value gibi bir şey söz konusu olabilirmi ?

 

[Muhammet Okumuş]

Range("a2").Formula = "=offset($V1,,sumproduct(MAX(($V1:$AH100=$A1)*colu mn($V1:$AH100)-column($V1))))"
Range("a2")=Range("a2").value
bu işinizi görür mü?

 

[snx111]

Range("a2").Formula = "=offset($V1,,sumproduct(MAX(($V1:$AH100=$A1)*colu mn($V1:$AH100)-column($V1))))"
Range("a2")=Range("a2").value
bu işinizi görür mü?

işimi görüyor sagolasın ama tabiri caizse formül sayfaya hiç dokunmasın istiyorum mümkünse yoksa buda işimi görür teşekkürler ..

 

[Muhammet Okumuş]

WorksheetFunction deneyiniz.

 

[Muhammet Okumuş]

Ama o zaman tek hücrede işlem yaparsınız. Döngüyü almanız gerekebilir. Sanırım En kısa ve en hızlı bu yol olsa gerek.