RE: ]] XL-mania [[ Menambahkan Makro Cancel

 

Semoga bisa membantu:

 

Sub Refresh()

Dim respon

Respon =msgbox(“Apakah anda yakin ingin menghapus?”,vbquestion+vbyesno,”Konfirmasi Hapus”)

If respon = vbyes then

 

    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
exit sub

Else

Msgbox “Anda batal menghapus”,vbexclamation,”Batal Hapus”

Exit sub 
end if

End Sub

Sub Hapus()
Range("B6:B64").Select
    Selection.SpecialCells(xlCellTypeFormulas, 16).Select
    Selection.EntireRow.Delete
End Sub

 

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Wandi Wandi
Sent: Wednesday, July 13, 2011 5:12 PM
To: xl-mania@yahoogroups.com
Cc: Wandi
Subject: ]] 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

 

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 65

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___