ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 203
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Dim vAddress As Range
With Sheets("Sayfa1").ChartObjects(1).Chart.SeriesCollection(1)
Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
For i = 1 To vAddress.Cells.Count
If (vAddress.Cells(i).Offset(0, 1).Value) <> 0 Then
.Points(i).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(vAddress.Cells(i).Interior.ColorIndex)
End If
Next i
End With
End Sub
Set vAddress = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))