DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C6:C1000]) Is Nothing Then Exit Sub
If Target = "Tahsilat" Then
Target.Offset(, 4).NumberFormat = "-#,##0.00"
Else
Target.Offset(, 4).NumberFormat = "#,##0.00"
End If
End Sub
=EĞER(C7="TAHSİLAT";METNEÇEVİR(E7;"-#.##0,00");E7)