Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 13 de julho de 2011

]] XL-mania [[ Menambahkan Makro Cancel

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:

Arquivo do blog