İyi günler. Yazdığım formüle "Y" sütununda hücre değeri 1 olan satırlara hesaplanan değeri yazdırmak istiyorum. Ancak sadece hücre değeri 1 olan ilk satıra yazıyor. Diğer hücre değeri 1 olan satırlara. yazmıyor. Yardım edebilirseniz sevinirim. Şimdiden teşekkür ederim.
Sub AylikTuatar(Optional satirNo As Long)
Dim AyGün, FarkGün, MaKt, MaKtF As Integer
AyGün = Sheets("Bordro").Range("A3").Value
FarkGün = Sheets("Bordro").Range("A5").Value
MaKt = Sheets("Ayar").Range("C3").Value
MaKtF = Sheets("Ayar").Range("D3").Value
For i = 12 To Range("Y65536").End(3).Row
If Cells(i, "Y").Value = 1 Then
strA = BORDRO_ILKSTR
If Sheets("Bordro").Range("A1").Value = "Maaş" And Cells(strA + 3, ACİK_SUTUN).Value = "" Then
AyTtr = WorksheetFunction.Round((MaKt * Cells(strA + 4, 5)), 2)
End If
If AyTtr >= 0 Then
Cells(strA, BİR_SUTUN).Value = AyTtr
End If
End If
Next
MsgBox "TÜM PERSONELİN AYLIKLARI HESAPLANDI."
End Sub
Sub AylikTuatar(Optional satirNo As Long)
Dim AyGün, FarkGün, MaKt, MaKtF As Integer
AyGün = Sheets("Bordro").Range("A3").Value
FarkGün = Sheets("Bordro").Range("A5").Value
MaKt = Sheets("Ayar").Range("C3").Value
MaKtF = Sheets("Ayar").Range("D3").Value
For i = 12 To Range("Y65536").End(3).Row
If Cells(i, "Y").Value = 1 Then
strA = BORDRO_ILKSTR
If Sheets("Bordro").Range("A1").Value = "Maaş" And Cells(strA + 3, ACİK_SUTUN).Value = "" Then
AyTtr = WorksheetFunction.Round((MaKt * Cells(strA + 4, 5)), 2)
End If
If AyTtr >= 0 Then
Cells(strA, BİR_SUTUN).Value = AyTtr
End If
End If
Next
MsgBox "TÜM PERSONELİN AYLIKLARI HESAPLANDI."
End Sub