Dear Master
Saya ingin menambahkan msgbox untuk data makro dibawah
Bila click cancel tidak melakukan apa2 dan untuk OK (sudah berjalan dgn baik)
Filenya tidak bisa saya lampirkan krn 2 mega lebih.
Tks
Sub Refresh()
Hapus
Range("B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="range"
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
Sheets("PPPH").Select
ActiveWindow.SelectedSheets.Delete
End Sub
Sub Hapus()
Range("B6:B64").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Delete
End Sub
Terima kasih
wandi
Nenhum comentário:
Postar um comentário