Kodda donma sorunu

[FlighTAiR]

Selamlar,

asagidaki kodda kirmizi renkteki satiri ekledigim zaman kod donmaya sebebiyet veriyor. Bunun sebebi ne olabilir?

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If [G14] <> "X" And [G14] <> "Y" Then [M14,S14,X14,Z14,AA14,AB14,AD14,AE14].NumberFormat = "#,##0 ""YTL"";[Red]-#,##0 ""YTL"""
If [G14] = "X" Or [G14] = "Y" Then [M14,S14,X14,Z14,AA14,AB14,AD14,AE14].NumberFormat = "[$&#8364;-2] #,##0_ ;[Red]-[$&#8364;-2] #,##0"
If [AJ14] <> "A" And [AJ14] <> "B" And [AJ14] <> "C" Then [M14].Interior.ColorIndex = 3 _
Else: [M14].Interior.ColorIndex = 0
If [M14] = "" Then [M14].Interior.ColorIndex = 0
[M12].Value = [AJ14]

End Sub

 

[Skorpiyon]

If [AJ14] <> "A" And [AJ14] <> "B" And [AJ14] <> "C" Then [M14].Interior.ColorIndex = 3 _

Bu k&#305;s&#305;mda Then 'den sonra olay&#305; kapatm&#305;&#351;s&#305;n&#305;z ve alt sat&#305;ra Else diye ba&#351;lam&#305;&#351;s&#305;n&#305;z.
O k&#305;sm&#305; &#351;u &#351;ekilde d&#252;zenlerseniz olur san&#305;r&#305;m.

If [AJ14] <> "A" And [AJ14] <> "B" And [AJ14] <> "C" Then
[M14].Interior.ColorIndex = 3
Else
[M14].Interior.ColorIndex = 0
End if

 

[FlighTAiR]

Hala takılıyor. Dedigim gibi koddaki kırmızı satırı kaldırdıgımda kod problemsiz calisiyor. Gün içinde bir örnek dosya eklemeye çalışacağım. Teşekkürler.

 

[FlighTAiR]

Problem cıkaran satiri selectionchange' e atınca düzeldi. Kod son olarak asagidaki sekilde saglikli bir sekilde calismaya basladi. Yardim icin tesekkurler.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If [G14] <> "X" And [G14] <> "Y" Then [M14,S14,X14,Z14,AA14,AB14,AD14,AE14].NumberFormat = "#,##0 ""YTL"";[Red]-#,##0 ""YTL"""
If [G14] = "Y" Or [G14] = "X" Then [M14,S14,X14,Z14,AA14,AB14,AD14,AE14].NumberFormat = "[$€-2] #,##0_ ;[Red]-[$€-2] #,##0"
If [AJ14] <> "A" And [AJ14] <> "B" And [AJ14] <> "C" Then
[M14].Interior.ColorIndex = 3
Else
[M14].Interior.ColorIndex = 0
End If
If [M14] = "" Then [M14].Interior.ColorIndex = 0

End Sub

[COLOR="Red"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[M12].Value = [AJ14]
End Sub[/COLOR]