Dear pakar excel,,,,
mohon bantuannya sekali lagi.
Saya memakai makro pada combo box dengan makro sbb
Private Sub ComboBox1_Click()
Range("j3:m69").Copy
Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=True, Transpose:=False
'replace 0 with blank
Range("B3:D69").Replace _
What:=0, Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True
'Applying sort
With ActiveWorkbook.Worksheets("GRAFIK 9001").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("D3:d69"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
.SetRange Range("A3:D69")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' make a charts
ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Range("A2:D2",
Range("d3").End(xlDown))
Range("L70").ClearContents
Range("l70").Select
End Sub
Cuma kenapa ya koq berpengaruh ke sheet yg lain, misal ketika saya copy
paste pada sheet yg lain. Akhirnya perintah diatas akan ikut berjalan.
Mohon bantuannya banget. Trims....
Regards,
Riska Wahyu N.
