Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 20 de julho de 2011

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

 

__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog