excel sayfa kapanma sorunu

[maliex]

arkadaşlar merhaba,
aşağıdaki kod sorunsuz çalışıyor idi
bu kodu ekleyince sayfa hemen kapanıyor ayrdım rica ederim

Else
Range("B1") = 11

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next


If Target.Address = "$A$2" Then
 
If Range("A2") = "UKRAYNA" Then Range("B1") = 1
If Range("A2") = "İTALYA" Then Range("B1") = 2
If Range("A2") = "CEZAYİR" Then Range("B1") = 3
If Range("A2") = "PAKİSTAN" Then Range("B1") = 4
If Range("A2") = "FAS" Then Range("B1") = 5
If Range("A2") = "POLONYA" Then Range("B1") = 6
If Range("A2") = "RUSYA" Then Range("B1") = 7
If Range("A2") = "BULGARİSTAN" Then Range("B1") = 8
If Range("A2") = "PORTEKİZ" Then Range("B1") = 9
If Range("A2") = "AZERBAYCAN" Then Range("B1") = 10
Else
Range("B1") = 11
q = Range("B1")


ActiveSheet.ChartObjects("Grafik 309").Activate
  ActiveChart.FullSeriesCollection(1).Select
   
For i = 1 To 11
ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 0
Next i

ActiveChart.FullSeriesCollection(1).Points(q).Explosion = 50
Range("B1").Select

End If

 

[EmrExcel16]

Aşağıdaki gibi deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next


If Target.Address = "$A$2" Then
 
    If Range("A2") = "UKRAYNA" Then
        Range("B1") = 1
    ElseIf Range("A2") = "İTALYA" Then
        Range("B1") = 2
    ElseIf Range("A2") = "CEZAYİR" Then
        Range("B1") = 3
    ElseIf Range("A2") = "PAKİSTAN" Then
        Range("B1") = 4
    ElseIf Range("A2") = "FAS" Then
        Range("B1") = 5
    ElseIf Range("A2") = "POLONYA" Then
        Range("B1") = 6
    ElseIf Range("A2") = "RUSYA" Then
        Range("B1") = 7
    ElseIf Range("A2") = "BULGARİSTAN" Then
        Range("B1") = 8
    ElseIf Range("A2") = "PORTEKİZ" Then
        Range("B1") = 9
    ElseIf Range("A2") = "AZERBAYCAN" Then
        Range("B1") = 10
    
    Else
        Range("B1") = 11
        q = Range("B1")
    End If
    
    ActiveSheet.ChartObjects("Grafik 309").Activate
      ActiveChart.FullSeriesCollection(1).Select
      
    For i = 1 To 11
    ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 0
    Next i
    
    ActiveChart.FullSeriesCollection(1).Points(q).Explosion = 50
    Range("B1").Select

End If
End Sub

 

[maliex]

öle yapınca aşağıdaki kodlar tetiklenmiyor

ActiveSheet.ChartObjects("Grafik 309").Activate
      ActiveChart.FullSeriesCollection(1).Select
      
    For i = 1 To 11
    ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 0
    Next i
    
    ActiveChart.FullSeriesCollection(1).Points(q).Explosion = 50
    Range("B1").Select

 

[EmrExcel16]

Kodlarda orasının tetiklenmemesi gibi bir durum yok , isterseniz dosyanızı ekleyin bakalım , Kodda F8 ile ilerleyin oraya geleceğini görürsünüz.

 

[maliex]

Kodlarda orasının tetiklenmemesi gibi bir durum yok , isterseniz dosyanızı ekleyin bakalım , Kodda F8 ile ilerleyin oraya geleceğini görürsünüz.

Private Sub Worksheet_Change(ByVal Target As Range) F8 İŞLEMİYOR

 

[EmrExcel16]

kod içinde If Target.Address = "$A$2" Then satırana tıklayıp F9 yapın sonra kod sayfasını kapatıp A2 hücresine bir şeyler yazın.

 

[maliex]

buyrun deneyin

 

[EmrExcel16]

Buyurun .

q = Range("B1") if içinden çıkarmayı unutmuşum .

 

[EmrExcel16]

Kodlar bu şekilde .

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next


If Target.Address = "$A$2" Then
 
    If Range("A2") = "UKRAYNA" Then
        Range("B1") = 1
    ElseIf Range("A2") = "İTALYA" Then
        Range("B1") = 2
    ElseIf Range("A2") = "CEZAYİR" Then
        Range("B1") = 3
    ElseIf Range("A2") = "PAKİSTAN" Then
        Range("B1") = 4
    ElseIf Range("A2") = "FAS" Then
        Range("B1") = 5
    ElseIf Range("A2") = "POLONYA" Then
        Range("B1") = 6
    ElseIf Range("A2") = "RUSYA" Then
        Range("B1") = 7
    ElseIf Range("A2") = "BULGARİSTAN" Then
        Range("B1") = 8
    ElseIf Range("A2") = "PORTEKİZ" Then
        Range("B1") = 9
    ElseIf Range("A2") = "AZERBAYCAN" Then
        Range("B1") = 10
    
    Else
        Range("B1") = 11
    End If
    q = Range("B1")
    ActiveSheet.ChartObjects("Grafik 309").Activate
      ActiveChart.FullSeriesCollection(1).Select
      
    For i = 1 To 11
    ActiveChart.FullSeriesCollection(1).Points(i).Explosion = 0
    Next i
    
    ActiveChart.FullSeriesCollection(1).Points(q).Explosion = 50
    Range("B1").Select

End If
End Sub

 

[maliex]

teşekkür ederim çok sağolun

 

[EmrExcel16]

teşekkür ederim çok sağolun

Rica ederim , örnek dosyanın önemini birkez daha gördük , iyi çalışmalar.