• DİKKAT

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

dgs puan hesaplama

D

dincer47

Katılım
4 Mayıs 2008
Mesajlar
75
Excel Vers. ve Dili
excel 2003 türkçe
dgs puan hesaplama programı yapmak istedim. sayısal net-sözel net- sayısal AÖBP-sözel AÖBP-eşit ağırlık AÖBP puanları girilip hesapla dugmesı tıklanıyor.
şimdi bunu çalıştırdım ben

sayısal net-Cells(4, 3)
sözel net-Cells(6, 3)
sayısal AÖBP-Cells(8, 3)
sözel AÖBP-Cells(10, 3)
eşit ağırlık AÖBP-Cells(12, 3)

Sub simdihesapla()
Cells(15, 2) = Cells(4, 3) * 3 + Cells(6, 3) * 0.6 + Cells(8, 3) * 0.6
Cells(15, 4) = Cells(4, 3) * 0.6 + Cells(6, 3) * 3 + Cells(10, 3) * 0.6
Cells(15, 6) = Cells(4, 3) * 1.8 + Cells(6, 3) * 1.8 + Cells(12, 3) * 0.6

bu şekilde hesaplıyorum.
fakat bir problem war.
mesela sözel AÖBP-sayısal AÖBP YADA EŞİT A. AÖBP puanlarından herhangi biri girilmediği zaman bile hesaplama yapıyo. yan şu şekilde sayısal AÖBP girilmediğinde hesaplamasın istiyorum.
bunun için IF komutunu kullanmaya çalıştım fakat nerde hata yapıyorum çözemedim
yardım edebılır mısınız
 
Dosyanız ekte.:cool:
Kod: 
Sub simdihesapla()
If Range("C4").Value <> "" And Cells(6, 3).Value <> "" And Cells(8, 3).Value <> "" Then
    Cells(15, 2) = Cells(4, 3) * 3 + Cells(6, 3) * 0.6 + Cells(8, 3) * 0.6
End If
If Range("C4").Value <> "" And Cells(6, 3).Value <> "" And Cells(10, 3).Value <> "" Then
    Cells(15, 4) = Cells(4, 3) * 0.6 + Cells(6, 3) * 3 + Cells(10, 3) * 0.6
End If
If Range("C4").Value <> "" And Cells(6, 3).Value <> "" And Cells(12, 3).Value <> "" Then
    Cells(15, 6) = Cells(4, 3) * 1.8 + Cells(6, 3) * 1.8 + Cells(12, 3) * 0.6
End If
End Sub
 
hocam &#231;ok te&#351;ekk&#252;r ettim almak istedi&#287;imi ald&#305;m.
sadece bir sorum olucak.benim IF kullanarak yazm&#305;&#351; oldu&#287;um form&#252;l neden &#231;al&#305;&#351;mad&#305;?
if cells(8,3)<>"" then
Cells(15, 2) = Cells(4, 3) * 3 + Cells(6, 3) * 0.6 + Cells(8, 3) * 0.6
end if
ve bunun gibi ikitane daha pe&#351;pe&#351;e
&#231;ok te&#351;ekk&#252;r ederim..
 
dincer47' Alıntı:
hocam çok teşekkür ettim almak istediğimi aldım.
sadece bir sorum olucak.benim IF kullanarak yazmış olduğum formül neden çalışmadı?
if cells(8,3)<>"" then
Cells(15, 2) = Cells(4, 3) * 3 + Cells(6, 3) * 0.6 + Cells(8, 3) * 0.6
end if
ve bunun gibi ikitane daha peşpeşe
çok teşekkür ederim..
Genişletmek için tıkla ...
Bunun cevabını benim yazdığım kodlarla sizin yazdığınız kodları karşılaştırarak alabilirsiniz.:cool:
 
hocam bir sorum daha olucak. &#351;imdi bu yapt&#305;g&#305;m program&#305; a&#231;ar a&#231;maz bi mesaj kutusu gels&#305;n istiyorum.. i&#231;ine ben gerekli bilgileri dolduray&#305;m ve prog. &#231;al&#305;&#351;&#305;r&#231;al&#305;&#351;maz uyar&#305; veya &#246;n bilgi gibi mesajkutusu gels&#305;n.... yard&#305;m edeb&#305;l&#305;rm&#305;s&#305;n&#305;z
 
dincer47' Alıntı:
hocam bir sorum daha olucak. şimdi bu yaptıgım programı açar açmaz bi mesaj kutusu gelsın istiyorum.. içine ben gerekli bilgileri doldurayım ve prog. çalışırçalışmaz uyarı veya ön bilgi gibi mesajkutusu gelsın.... yardım edebılırmısınız
Genişletmek için tıkla ...

Boş bir modüle aşağıdaki kodları yapıştırınız.:cool:
Kod: 
Sub Auto_Open()
MsgBox "Buraya İstediğiniz Mesajı Yazınız..!!", vbOKOnly, "BAŞLIK"
End Sub
 
Hocam Mesela O Puan G&#304;r&#304;len H&#220;creler Arasi Tab Tu&#350;u &#304;le Ge&#199;&#304;&#350; Yapmak M&#220;mk&#220;nm&#220;d&#220;r?
 
Hocam Puan G&#304;r&#304;len H&#220;creler Arasi Tab Tu&#350;una Basarak Ge&#199;&#304;&#350; Yapmak M&#220;mk&#220;n M&#220;d&#220;r?
 
Hocam Puan Gİrİlen HÜcreler Arasi Tab TuŞuna Basarak GeÇİŞ Yapmak MÜmkÜn MÜdÜr?
 
hocam çok teşekkür ettim harikasınız.. çok yardımcı oldunuz. bu arada aynı mesaj 3 defa gelmiş. yalış anlaşılmasın bi tuhaflık oldu yollamadı zannettım mesajı ama yollamış. 3 defa göndermiş bulundum..
 
HOCAM HARİKASIN ÇOK TEŞEKKÜR EDİYORUM. ÇIKARKEN DE MESAJ KUTUSU EKLEDİM :D...

SON HALİ BUDUR... İHTİYACI OLAN ARKADAŞLAR GÜLE GÜLE KULLANSIN..
 
link Çalışmıyor yenileyebilir misiniz?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst