If donem = "Aralık-2007" Then
Label8.Caption = FormatNumber(sayfa.Cells(37, 12), 2)
Label9.Caption = FormatNumber(sayfa.Cells(37, 13), 2)
Label10.Caption = FormatNumber(sayfa.Cells(37, 14), 2)
Label11.Caption = FormatNumber(sayfa.Cells(37, 16), 2)
Label12.Caption = FormatNumber(sayfa.Cells(37, 17), 2)
Label13.Caption = FormatNumber(sayfa.Cells(37, 18), 2)
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Platts Bilgileri").Range("D634") _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Platts Bilgileri"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Grafik 1").IncrementLeft -297#
ActiveSheet.Shapes("Grafik 1").IncrementTop 492.75
End If
yukarıdaki kodda neyi değiştirmem gerekiyor ki grafiği userform üzerinde gösterebileyim. Teşekkürler
Label8.Caption = FormatNumber(sayfa.Cells(37, 12), 2)
Label9.Caption = FormatNumber(sayfa.Cells(37, 13), 2)
Label10.Caption = FormatNumber(sayfa.Cells(37, 14), 2)
Label11.Caption = FormatNumber(sayfa.Cells(37, 16), 2)
Label12.Caption = FormatNumber(sayfa.Cells(37, 17), 2)
Label13.Caption = FormatNumber(sayfa.Cells(37, 18), 2)
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Platts Bilgileri").Range("D634") _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Platts Bilgileri"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Grafik 1").IncrementLeft -297#
ActiveSheet.Shapes("Grafik 1").IncrementTop 492.75
End If
yukarıdaki kodda neyi değiştirmem gerekiyor ki grafiği userform üzerinde gösterebileyim. Teşekkürler