makro ile Grafik değerlerini güncellemede hata mesajı hk.

[tamer42]

Merhabalar,
Ekli dosyada tanımlanmış alan adları üzerinden dinamik Grafik Oluşturmak için değerleri makro ile değiştirmek istediğimde;

Ekli hata mesajını vermekte;
Bu hata mesajından ansıl kurtulabilirz?

Desteğiniz için şimdiden teşekkürler,
iyi Akşamlar.

Sub Graphical()
Dim SH As Worksheet
Dim deg As String
Dim i As Long
Dim random As Integer

Set SH = ActiveSheet

SH.Range("A2:B1000").Clear

For i = 1 To 20
    deg = "A" & i
    random = Int(3 - 0 + 1) * Rnd + 0
    
    SH.Cells(i + 1, 1).Value = deg
    SH.Cells(i + 1, 2).Value = random
        
Next i

End Sub

 

[Zeki Gürsoy]

Grafiğin kaynağını tamamen sildiğiniz için bu uyarıyı aldınız.

Şu satırı silin: SH.Range("A2:B1000").Clear

Eğer grafik kaynağını silmeniz zorunluysa, grafik kaynağını da makro ile yeniden belirlemeniz gerekiyor.

.

 

[tamer42]

ynağını tamamen sildiğiniz için bu uyarıyı aldınız.

Grafiğin kaynağını tamamen sildiğiniz için bu uyarıyı aldınız.

Şu satırı silin: SH.Range("A2:B1000").Clear

Eğer grafik kaynağını silmeniz zorunluysa, grafik kaynağını da makro ile yeniden belirlemeniz gerekiyor.

.

çok teşekkürler Zeki Hocam