Microsoft Excel'de Hesap Yapmak

[Muzurr]

Alış satış takibini Excel de mi yapıyorsunuz? Excel kolay ve kullanışlı ama çok fazla riskli.

Neden riskLi :alien:

 

[hkncetin]

Dosya bozulması, verilerin yanlış girilmesi, değiştirilmesi, yanlış bir işlemde tüm verilerin silinmesi hatta kaydettiğin dosyanın bilerek / bilmeyerek tamamen silinmesi. Bunlar sadece aklıma gelenler ve benim bizzat gördüğüm ve yaşadığım sorunlar.

 

[Muzurr]

Dosya bozulması, verilerin yanlış girilmesi, değiştirilmesi, yanlış bir işlemde tüm verilerin silinmesi hatta kaydettiğin dosyanın bilerek / bilmeyerek tamamen silinmesi. Bunlar sadece aklıma gelenler ve benim bizzat gördüğüm ve yaşadığım sorunlar.

sadece exsel dosyasında tutmuyorum bilgileri :sad: benimde başıma geldi malesef :fever:

 

[eozulu]

sorun çözüldü mü? çözüldüyse abonelikten çıkmak istiyorumda

 

[Be5tE]

Muzurrum noldu ?? yapabildin mi ?

 

[Muzurr]

Arkadaşlar bu aralar biraz yoğunum.Malzeme listesini düzene sokayım derken çizim yapmam gerekiyor. İstediğim tabloyu Majeste arkadaşımız yaptı.Ama daha değişiklik yapamadım.Sanırım sorun çıkmaz.Bir haftaya kalmaz temize geçireceğim Bir sorunla karşılaşırsam gene buraya yazarım.Bana yardım ettiğiniz için herkese ayrı ayrı teşekkür ediyorum.
Çok sağolun.

 

[Majeste]

Eğer tabloda değişmesini, geliştirilmesini istediğin bir yer varsa yine yaz. Sürekli değişme olmasın ki, düzgün olsun. Kolay gelsin.

 

[_Cheff_06_]

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [M279]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[B3:B29,B31:B36].Interior.Color = 12611584

ElseIf Target > 500 Then

[B3:B29,B31:B36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[B3:B29,B31:B36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[B3:B29,B31:B36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[B3:B29,B31:B36].Interior.Color = 13382655

ElseIf Target > -750 Then

[B3:B29,B31:B36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [B36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[C3:C29,C31:C36].Interior.Color = 12611584

ElseIf Target > 500 Then

[C3:C29,C31:C36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[C3:C29,C31:C36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[C3:C29,C31:C36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[C3:C29,C31:C36].Interior.Color = 13382655

ElseIf Target > -750 Then

[C3:C29,C31:C36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [C36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[D329,D3136].Interior.Color = 12611584

ElseIf Target > 500 Then

[D329,D3136].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D329,D3136].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D329,D3136].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D329,D3136].Interior.Color = 13382655

ElseIf Target > -750 Then

[D329,D3136].Interior.Color = vbRed

End If

End If

End If

End Sub