dgs puan hesaplama

[dincer47]

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

 

[dincer47]

yardım edecek bi arkadas yok mu?

 

[dincer47]

yardım etmek isteyen bi arkadaş war mı?

 

[Orion1]

Dosyanız ekte.

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

 

[dincer47]

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&#351;pe&#351;e
&#231;ok te&#351;ekk&#252;r ederim..

 

[Orion1]

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..

Bunun cevabını benim yazdığım kodlarla sizin yazdığınız kodları karşılaştırarak alabilirsiniz.

 

[dincer47]

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

 

[Orion1]

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

Boş bir modüle aşağıdaki kodları yapıştırınız.

Sub Auto_Open()
MsgBox "Buraya İstediğiniz Mesajı Yazınız..!!", vbOKOnly, "BAŞLIK"
End Sub

 

[dincer47]

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?

 

[dincer47]

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?

 

[dincer47]

Hocam Puan Gİrİlen HÜcreler Arasi Tab TuŞuna Basarak GeÇİŞ Yapmak MÜmkÜn MÜdÜr?

 

[dincer47]

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..

 

[Orion1]

Hocam Puan Gİrİlen HÜcreler Arasi Tab TuŞuna Basarak GeÇİŞ Yapmak MÜmkÜn MÜdÜr?

Ekli dosyayı inceleyiniz.

 

[dincer47]

HOCAM HARİKASIN ÇOK TEŞEKKÜR EDİYORUM. ÇIKARKEN DE MESAJ KUTUSU EKLEDİM ...

SON HALİ BUDUR... İHTİYACI OLAN ARKADAŞLAR GÜLE GÜLE KULLANSIN..

 

[Orion1]

HOCAM HARİKASIN ÇOK TEŞEKKÜR EDİYORUM. ÇIKARKEN DE MESAJ KUTUSU EKLEDİM ...

SON HALİ BUDUR... İHTİYACI OLAN ARKADAŞLAR GÜLE GÜLE KULLANSIN..

Rica ederim.
İyi çalışmalar.

 

[ibramoviç]

bu link çalışmıyor sanırım ????

 

[ibramoviç]

bu link çalışmıyor??

 

[tktukaci]

link Çalışmıyor yenileyebilir misiniz?