FORMÜLÜ KODA ÇEVİRMEK

[recep]

FORMÜLÜ KODA ÇEVÝRMEK

=EÐER(YUVARLA(ORTALAMA(CW71B71);0)>84;5;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>69;4;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>54;3;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>44;2;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>-1;1;" " )))))

BU FORMOL TÜRKÇE NOTUNUN ORTALAMASINI HESAPLAYAN FORMÜL 100LÜK SİSTEMDE ORTALAMA 12345 YAZIYOR BU FORMÜLÜ KADEA ÇEVİRMEME YARDIM EDERMİEİNİZ. BU VE BUNUN GİBİ 1109x12 HÜCREDE BU VE BUNUN GİBİ FORMÜL VAR DİÞİNİN DOSYA BOYUTU NE KADAR ARTTIRMIÞTIR.

YARDIM EDECEK ARKADAÞLARA ÞİMDİDEN TEÞEKKÜR EDERİM

 

[Mahmut Bayram]

birazdan az kaldı çevirmeme

 

[Mahmut Bayram]

synrecep, yukarıdaki formülü istedğin hücreye yaz ve aşağıdaki kodu vba'ya ekle. ben formül yazılan hücreyi C1 olarak aldım. Application.ScreenUpdating = False
Range("C1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
Range("C1").Select
Application.ScreenUpdating = True
KOLAY GELSİN

 

[Mahmut Bayram]

synrecep, eğer formül atıyorum c1:c1000 arasında ise yukarıdaki ilgili (range c1:c1000 olarak ) kısımları değiştiriniz.

 

[recep]

formül hesaplama işlevini yitiriyor ben hesaplama işlevini yitirmesin istiyorum

 

[recep]

bana yardım edecek yok mu yoksa bunu başka bir başlık altında sormrm mı gerekiyor :düsün:

 

[veyselemre]

formülü kopyaladığın hücreleri seç
hücreleri biçimlendir>sayı>genel seç bir dene

 

[recep]

bana bir excel saffasınad ornek verirmisin

 

[isakarakus]

formül hesaplama işlevini yitiriyor ben hesaplama işlevini yitirmesin istiyorum

öyleyse fonksiyon yazmalısız..

http://www.excel.web.tr/viewtopic.php?t=4851

 

[recep]

okuldum ama istediğim bu değil bana 0rtalama alma kodunu verebilirmisiniz.
örneğin 1.2.3.4.5.6.7.8sadırların ortalaması nı 8 . sutunu yazzın.

 

[Mahmut Bayram]

synrecep, bey aşağıda formula = kısmındaki hangi hücre veya hücre aralığında formüller varsa değiştirin. Yani aşağıdaki kod, formülden koda dönüştürülmüş hücrelerinize sizin eski formülleri geri koyar.
Application.ScreenUpdating = False
Range("f7").Select
Range("f7").Formula = "=IF(RC2>0,IF(RC3=""Md.Y.Ã?ğrt."",gun(R6C),OGR(R6C)),0)"
Range("f7").Select
Selection.AutoFill Destination:=Range("f7"), Type:=xlFillDefault
Range("f7").Select
Selection.AutoFill Destination:=Range("f7"), Type:=xlFillDefault
Range("f7").Select
Application.ScreenUpdating = True

 

[recep]

teşekkür eski formüllerim geri geldi. ama su formülün kod hali yok mu bir türlü onu yapmayı başaramadım.

 

[Mahmut Bayram]

synrecep, forumda aratırsanız kesinlikle bulursunuz. türkçe formüllerinizi vba diline çeviren makro mutlaka var. çünkü bende bu siteden almıştım.

 

[recep]

teşekkür.

 

[recep]

Re: FORMÜLÜ KODA ÇEVÝRMEK

=EÐER(YUVARLA(ORTALAMA(CW71B71);0)>84;5;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>69;4;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>54;3;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>44;2;EÐER(YUVARLA(ORTALAMA(CW71B71);0)>-1;1;" " )))))

BU FORMOL TÜRKÇE NOTUNUN ORTALAMASINI HESAPLAYAN FORMÜL 100LÜK SİSTEMDE ORTALAMA 12345 YAZIYOR BU FORMÜLÜ KADEA ÇEVİRMEME YARDIM EDERMİEİNİZ. BU VE BUNUN GİBİ 1109x12 HÜCREDE BU VE BUNUN GİBİ FORMÜL VAR DİÞİNİN DOSYA BOYUTU NE KADAR ARTTIRMIÞTIR.

YARDIM EDECEK ARKADAÞLARA ÞİMDİDEN TEÞEKKÜR EDERİM

hala sorunum çözülmedi yardımcı olurmusunuz :kafa: :kafa:

 

[Mahmut Bayram]

Re: FORMÜLÜ KODA ÇEVÝRMEK

syn rececp bey örneği inceler misiniz

 

[recep]

evet bunu denedim ana eğer formül a sütununun hepsinde ise ne yapmalıyım

 

[Mahmut Bayram]

syn recep, bey aşağıdaki kodu deneyin
Range("a1:a65000").Select
ActiveCell.FormulaR1C1 = _
"=IF(ROUND(AVERAGE(R[-3]C[-2]:R[67]C[-2]),0)>84,5,IF(ROUND(AVERAGE(R[-3]C[-2]:R[67]C[-2]),0)>69,4,IF(ROUND(AVERAGE(R[-3]C[-2]:R[67]C[-2]),0)>54,3,IF(ROUND(AVERAGE(R[-3]C[-2]:R[707]C[-2]),0)>44,2,IF(ROUND(AVERAGE(R[-3]C[-2]:R[67]C[-2]),0)>-1,1,"" "" )))))"

 

[muallim]

Arkadaşlar, ben de ortalama hesaplayan kod arıyorum hala bir şey yapamadım.
A,B,C,D sütunlarındaki notların ortalamasını alıp E sütununa örneğin 84 ten büyükse 5 yazsın gibi. Çok acil lazım. Teşekkürler. :agla:

 

[exceltims]

örnek çalışma ekte