merhaba arkadaşlar,
sorunum kısaca şöyle . aşagıdaki kodlarıma daha bir çok koşul eklemem gerekiyor ancak koşulları eklediğimde prosedur too large hatası veriyor.bu kodları ayrı ayrı makrolara yazarak dağıtmam gerekiyor ancak bir türlü bunu beceremedim.eminim ki sizler için bu çok kolay .sizlerden ricam aşagıdaki kodu örnek olması açısından bir makroya yazabilirseniz çok memnun olurum.ben bu örnekleri çogaltarak devam edebilirim.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
If Target <> "" And Target.Offset(0, -17) = 12 Then
Target.Offset(0, 5) = Format((Target.Offset(0, -13) - 50), "#,##0.00")
Target.Offset(0, 6) = Format((Target.Offset(0, -12) - 25) - (Target.Offset(0, -1)), "#,##0.00")
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
End If
End Sub
sorunum kısaca şöyle . aşagıdaki kodlarıma daha bir çok koşul eklemem gerekiyor ancak koşulları eklediğimde prosedur too large hatası veriyor.bu kodları ayrı ayrı makrolara yazarak dağıtmam gerekiyor ancak bir türlü bunu beceremedim.eminim ki sizler için bu çok kolay .sizlerden ricam aşagıdaki kodu örnek olması açısından bir makroya yazabilirseniz çok memnun olurum.ben bu örnekleri çogaltarak devam edebilirim.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
If Target <> "" And Target.Offset(0, -17) = 12 Then
Target.Offset(0, 5) = Format((Target.Offset(0, -13) - 50), "#,##0.00")
Target.Offset(0, 6) = Format((Target.Offset(0, -12) - 25) - (Target.Offset(0, -1)), "#,##0.00")
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
End If
End Sub