Şarta Bağlı Döngünün Sadece İlk Satırında İşlem Yapma

[ahmedummu]

Merhaba arkadaşlar.

Aşağıdaki kodda Döngü içinde Çizgi içine aldığım kod bloğunda Şart doğru ise Yani optionbutton1 seçili ise Sadece ii değişkeninin (Döngünün) 1. değerinde kod bloğundaki işlemi yapacak Diğer satırlarda çizgi içindeki kod bloğundaki işlemi yapmayacak.

Bu hali ile sadece döngünün 1. değerinde yapmasını istediğim işlev döngünün sanuna kadar devam ediyor. Yani her satırda aynı işlemi takrar ediyor.

If ComboBox1.Value = "5434" Then
Sheets("5434").Select
Dim ii As Integer
On Error Resume Next
For ii = 6 To Range("B32000").End(xlUp).Row
Cells(ii, "E") = WorksheetFunction.VLookup(Cells(ii, 2), Sheets("KATSAYILAR").Range("A:B"), 2, 0)

Cells(ii, "F") = fark
Cells(ii, "G") = "'" & TextBox6.Value & "/" & TextBox7.Value
Cells(ii, "I") = Format(Sheets("5434").Cells(ii, "E").Value * Sheets("5434").Cells(ii, "F").Value, "#,##0.00") * 1
'===================================================
If OptionButton1.Value = True Then
Cells(0, "J") = Format(Sheets("5434").Cells(ii, "E").Value * Sheets("5434").Cells(ii, "F").Value, "#,##0.00") * 1
Else
Exit Sub
End If
'====================================================
Cells(ii, "K") = Format(Sheets("5434").Cells(ii, "I").Value * 0.2, "#,##0.00") * 1
Cells(ii, "M") = Format(Sheets("5434").Cells(ii, "I").Value * 0.12, "#,##0.00") * 1
Cells(ii, "L") = Format(Sheets("5434").Cells(ii, "E").Value * ozelhizfark * 100, "#,##0.00") * 1
Cells(ii, "N") = (Format(Sheets("5434").Cells(ii, "I").Value + Sheets("5434").Cells(ii, "J").Value + Sheets("5434").Cells(ii, "K").Value + Sheets("5434").Cells(ii, "L").Value + Sheets("5434").Cells(ii, "M").Value, "#,##0.00") * 1)
Cells(ii, "U") = Format(Sheets("5434").Cells(ii, "I").Value * 0.16, "#,##0.00") * 1
matrah = Sheets("5434").Cells(ii, "I").Value - Sheets("5434").Cells(ii, "U").Value
Cells(ii, "O") = Format(matrah * 0.15, "#,##0.00") * 1
Cells(ii, "P") = Format(Sheets("5434").Cells(ii, "I").Value * 0.00759, "#,##0.00") * 1
Cells(ii, "T") = Format(Sheets("5434").Cells(ii, "I").Value * 0.2, "#,##0.00") * 1
Cells(ii, "S") = Format(Sheets("5434").Cells(ii, "I").Value * 0.12, "#,##0.00") * 1
Cells(ii, "V") = Format(Sheets("5434").Cells(ii, "T").Value + Sheets("5434").Cells(ii, "U").Value, "#,##0.00") * 1
Cells(ii, "W") = (Sheets("5434").Cells(ii, "O").Value + Sheets("5434").Cells(ii, "P").Value + Sheets("5434").Cells(ii, "Q").Value + Sheets("5434").Cells(ii, "R").Value + Sheets("5434").Cells(ii, "S").Value + Sheets("5434").Cells(ii, "T").Value + Sheets("5434").Cells(ii, "U").Value)
Cells(ii, "X") = Format(Sheets("5434").Cells(ii, "N").Value - Sheets("5434").Cells(ii, "W").Value, "#,##0.00") * 1

 

[ÖmerBey]

Merhaba,
Doğru anladım mı bilemiyorum ama aşağıdaki düzeltmeyi uygulayıp dener misiniz?

If OptionButton1.Value = True Then
Cells(0, "J") = Format(Sheets("5434").Cells(ii, "E").Value * Sheets("5434").Cells(ii, "F").Value, "#,##0.00") * 1
[COLOR="Red"]Exit Sub[/COLOR]
[COLOR="red"]Else[/COLOR]
End If

 

[ahmedummu]

Merhaba

Yanlış anlamadıysam "Exit Sub ve Else" kodlarını sildim. Kod aşağıdaki gibi

If OptionButton1.Value = True Then
Cells(ii, "J") = Format(Sheets("5434").Cells(ii, "E").Value * Sheets("5434").Cells(ii, "F").Value, "#,##0.00") * 1
End If

Yine tüm satırda işlem yaptı.

 

[ÖmerBey]

Silmemeniz gerekiyor. Kodlarınızda "Exit Sub" kodu "Else" satırından sonra yer alıyor, 2. mesajda belirttiğim gibi öncesine yazmanız gerekiyor.

 

[ahmedummu]

Merhaba Mucit77 Hocam.

Dediğiniz gibi yaptım fakat Bu kez de işlemi sadece 1. satırda yapıyor ve döngü devam etmiyor. Kod aşağıdaki gibi.

If CheckBox1.Value = True Then
Cells(ii, "J") = Format(Sheets("5434").Cells(ii, "E").Value * Sheets("5434").Cells(ii, "F").Value, "#,##0.00") * 1
Exit Sub
Else

 

[ÖmerBey]

Sorunuzdan benim anladığım şekliyle verdiğim kod doğru şekilde çalışıyor. Ancak anlaşılan ben, sizi doğru anlamamışım, şu ana kadarki önerilerimi iptal edebiliriz.

Sorunuza defalarca baktıktan sonra anladığım kadarıyla Döngünün 1. değeri ifadesinden eğer ii = 6 olduğu zaman kod çalışsın gibi bir istekte bulunuyorsanız kodun ilk halindeki if sorgusunu aşağıdaki gibi değiştiriniz.

If OptionButton1.Value = True [COLOR="Red"]And ii = 6[/COLOR] Then

Not: Bu önerim de tamamen tahmine dayalı bir ifadedir, isteğinizi gerçekleştirmeyebilir. Örnek dosya yükleyip ne yapmak istediğinizi dosya üzerinde anlatırsanız daha iyi anlaşabiliriz.

İyi çalışmalar...

 

[ahmedummu]

Sayın Mucit77 Kodlar için teşekkür ederim. Çalıştı gibi. Biraz oynarsam olacak gibi. Sorun olmazsa bilgi veririm.

 

[ahmedummu]

Sayın Mucit77 sorunsuz çalışıyor. Teşekkür ederim.