Kod:
birKGMaliyet = AraBul(birKG, .Range("B:B"))
birLTMaliyet = AraBul(birLT, .Range("B:B"))
If birLTMaliyet > 0 Then .Cells(birLTMaliyet, "D").Value = 0
If birKGMaliyet > 0 Then .Cells(birKGMaliyet, "D").Value = 0
birKGMaliyet = AraBul(birKG, .Range("B:B"))
birLTMaliyet = AraBul(birLT, .Range("B:B"))
If birLTMaliyet > 0 Then .Cells(birLTMaliyet, "D").Value = 0
If birKGMaliyet > 0 Then .Cells(birKGMaliyet, "D").Value = 0