for döngüsünü büyükten küçüğe doğru çalıştırabilirmiyiz

[bulentcigali]

iyi günler for döngüsünü for i=1 to 12 gibi çalıştırabiliyoruz.ancak for i=12 to 1 şeklinde kullanmak istiyorum çalışmıyor.başka bir yöntem kullanabilirmiyiz? amacım bu döngüyü elektrik faturası girerken kullanmak istiyorum.
örneğin;
şimdiki ay haziran, fatura, mayıs ayına ait.mayıs ayına ait faturayı girdiğimde, mayıs ayından önceki aylardan nisan,mart,şubat,ocak aylarına bakacak bu aylardan hangisi girilmişse o ayın son endeksini alacak.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde uygulayın.

For i = 12 To 1 Step -1

 

[bulentcigali]

teşekkürler korhan ayhan hemen deneyip sonucu bildireceğim iyi günler

 

[bulentcigali]

korhan bey merhaba döngüyü yaptım teşekkürler.ancak örnekte anlatmaya çalıştığım uygulamaya uyarlayamadım.örneği inceleme zamanınız olursa memnun olacağım teşekkürler

 

[bulentcigali]

Private Sub ComboBox2_Change()
If ComboBox2 = "OCAK" Then ay2 = 1
If ComboBox2 = "ŞUBAT" Then ay2 = 2
If ComboBox2 = "MART" Then ay2 = 3
If ComboBox2 = "NİSAN" Then ay2 = 4
If ComboBox2 = "MAYIS" Then ay2 = 5
If ComboBox2 = "HAZİRAN" Then ay2 = 6
If ComboBox2 = "TEMMUZ" Then ay2 = 7
If ComboBox2 = "AĞUSTOS" Then ay2 = 8
If ComboBox2 = "EYLÜL" Then ay2 = 9
If ComboBox2 = "EKİM" Then ay2 = 10
If ComboBox2 = "KASIM" Then ay2 = 11
If ComboBox2 = "ARALIK" Then ay2 = 12


ay = ComboBox2
t = ay2 - 1
sw1 = 0
abone = ComboBox1.Text
Set sh = Sheets("elek")
sh.Select
For i = 2 To 100
If Val(sh.Cells(i, 1)) = abone Then
If sw1 = 0 Then
say = i
sw1 = 1
End If
x = i
End If
Next
For k = x To say Step -1
For Y = t To 1 Step -1

If Val(sh.Cells(k, 20)) = Y Then
TextBox3.Text = Val(sh.Cells(k, 8))
Exit Sub
End If
Next
Next
End Sub


korhan bey belki basit çözümü vardır ama bu kodlarla işimi hallettim çok çok teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz dosyada herhangi bir kod uygulaması göremedim. Zaten bu işlemi nasıl yapmak istediğinizide bilemediğim için yorum yapamadım.