ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 731
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
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
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