Değişken Atama

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar makrolarda değişken atama mantığını kavramaya çalışıyorum. Makrolar konusunda henüz çok yeniyim. Ekteki dosyada derdimi anlattım. İki saattir uğraşıyorum ama değişkeni atayamadım. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Husgvarna]

Forumda emeği geçen herkese merhaba. Arkadaşlar makrolarda değişken atama mantığını kavramaya çalışıyorum.

Aşağıdaki gibi başlayın:

Sub makro()
For a = 2 To Cells(65000, 1).End(xlUp).Row
b = (Cells(a, 2) + Cells(a, 3)) / 2
Select Case b
Case Is >= 60
Cells(a, 4) = "GEÇTİ"
Case Is < 60
Cells(a, 4) = "KALDI"
End Select
Next  
End Sub

"TAKDİR" sütunu için:

'......
'...

Select Case b
Case Is > 80
Cells(a, 5) = "TAKDİR"
Case Is >= 60
Cells(a, 4) = "GEÇTİ"
Case Is < 60
Cells(a, 4) = "KALDI"
'......
'...

 

[excellcan]

Aşağıdaki gibi başlayın:

Sub makro()
For a = 2 To Cells(65000, 1).End(xlUp).Row
b = (Cells(a, 2) + Cells(a, 3)) / 2
Select Case b
Case Is >= 60
Cells(a, 4) = "GEÇTİ"
Case Is < 60
Cells(a, 4) = "KALDI"
End Select
Next  
End Sub

"TAKDİR" sütunu için:

'......
'...

Select Case b
Case Is > 80
Cells(a, 5) = "TAKDİR"
Case Is >= 60
Cells(a, 4) = "GEÇTİ"
Case Is < 60
Cells(a, 4) = "KALDI"
'......
'...

Hocam çok teşekkür ederim. Aslında bu şekilde denemiştim. Fakat bir parantezi eksik yazınca -ya da akıl edemeyince - o kadar uğraştım. Ama olsun demek ki doğru yoldayım. Hocam bir soru daha sormak istiyorum b yi tanımladığımız alan daha geniş bir alan olsaydı nasıl tanımlayacaktık. Varsayalım ki Cells(a,2) den Cells(a, 15) e kadar olan bir alan. Aynı mantıkla mı tanımlayacaktık. Hepsini yazıp sonra adede mi bölecektik ? Gecenin bu vaktinde ilginiz için tekrar teşekkürler. İyi geceler.

 

[Husgvarna]

Varsayalım ki Cells(a,2) den Cells(a, 15) e kadar olan bir alan. Aynı mantıkla mı tanımlayacaktık. Hepsini yazıp sonra adede mi bölecektik ?

b = Application.Sum(Range("B" & a & ":O" & a))
c=(b/14)/2

Select Case c
Case Is >= 60
Cells(a, 16) = "GEÇTİ"