Döngü de Şart Doğru ise Sadece İlk Satırda İşlem Yapsın.

[ahmed_ummu]

Merhaba rakadaşlar.

Bir For Next döngüsünde şart doğru ise sadece ilk değerde işlem yapsın. Aşağıdaki kırmızı renkli kod bloğunda Checkbox1 seçili ise sadece döngünün ilk değerinden işlem yapsın diğer satırların değeri 0 olsun nasıl yapabilirim.

For a = 11 To sh1.Range("b" & Rows.Count).End(3).Row
sh1.Range("e" & a).Value = fark
sh1.Range("f" & a).Value = "'" & UserForm22.ComboBox2.Value & "/" & UserForm22.ComboBox3.Value
sh1.Range("g" & a).Value = Val(ekgosterge + Val(gosterge))
sh1.Range("h" & a).Value = WorksheetFunction.Round(sh1.Range("d" & a).Value * sh1.Range("e" & a).Value, 2)
sh1.Range("h" & a).NumberFormat = "#,##0.00"

If UserForm22.CheckBox1.Value = True Then
sh1.Range("ı" & a).Value = sh1.Range("h" & a).Value
sh1.Range("ı" & a).NumberFormat = "#,##0.00"
Else
sh1.Range("ı" & a).Value = 0
sh1.Range("ı" & a).NumberFormat = "#,##0.00"
End If

sh1.Range("a12" & sh1.Cells(Rows.Count, "o").End(3).Row + 15).Font.Size = 9
Next a

 

[ahmed_ummu]

Aşağıdaki kırmızı renkli kod mantığı ile. Yardımcı olursanız çok sevinirim.

tarih = Format(UserForm22.TextBox3.Value, "dd.mm.yyyy")
ay = Format(tarih, "mmmm")
yil = Format(tarih, "yyyy")
If UserForm22.CheckBox1.Value = True And sh1.Range("c" & a).Value = ay And sh1.Range("b" & a).Value = yil Then
sh1.Range("ı" & a).Value = sh1.Range("h" & a).Value
sh1.Range("ı" & a).NumberFormat = "#,##0.00"
Else
sh1.Range("ı" & a).Value = 0
sh1.Range("ı" & a).NumberFormat = "#,##0.00"
End If