• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

FORMÜLÜ KODA ÇEVİRMEK

  • Konbuyu başlatan Konbuyu başlatan recep
  • Başlangıç tarihi Başlangıç tarihi
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
FORMÜLÜ KODA ÇEVÝRMEK

=EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>84;5;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>69;4;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>54;3;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>44;2;EÐER(YUVARLA(ORTALAMA(CW71:DB71);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
 
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
 
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.
 
formül hesaplama işlevini yitiriyor ben hesaplama işlevini yitirmesin istiyorum
 
bana yardım edecek yok mu yoksa bunu başka bir başlık altında sormrm mı gerekiyor :düsün:
 
formülü kopyaladığın hücreleri seç
hücreleri biçimlendir>sayı>genel seç bir dene
 
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.
 
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
 
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.
 
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.
 
Re: FORMÜLÜ KODA ÇEVÝRMEK

recep' Alıntı:
=EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>84;5;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>69;4;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>54;3;EÐER(YUVARLA(ORTALAMA(CW71:DB71);0)>44;2;EÐER(YUVARLA(ORTALAMA(CW71:DB71);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
Genişletmek için tıkla ...


hala sorunum çözülmedi yardımcı olurmusunuz :kafa: :kafa:
 
Re: FORMÜLÜ KODA ÇEVÝRMEK

syn rececp bey örneği inceler misiniz
 
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,"" "" )))))"
 
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:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst