Join Date: May 2006
Posts: 19

Input box inside a macro

--------------------------------------------------------------------------------

Ok, I need to create a button with a macro attached which allows me to
delete columns within a worksheet,

in this macro I must include an input box which asks the user to
either
identify as 'the treasurer' and delete all 'financial' data

Sheets("Membership").Select
Range("G3:H17,K3:K17").Select
Range("K3").Activate
Selection.ClearContents
End Sub

or identify as 'the registrar' and delete all 'results' data

Sheets("Results").Select
Range("E3:I17").Select
Selection.ClearContents
End Sub

how do I this?, above is two seperate macros I have recorded which I
want to combine with an input box, can anybody give me an example that
I can copy and paste into the macro??


--
Drummy
------------------------------------------------------------------------
Drummy's Profile: http://www.excelforum.com/member.php...o&userid=34780
View this thread: http://www.excelforum.com/showthread...hreadid=549324

Do you need passwords, or do you trust them? Either way, I'd suggest a
UserForm rather than an input box, but if you want an input box then
sub ClearData
dim Who as string
who=lcase$(inputbox("Please identify yourself"))
select case who
case "treasurer"
Sheets("Membership").Range("G3:H17,K3:K17").ClearC ontents
case "registrar"
Sheets("Results").Range("E3:I17").ClearContents
case else
msgbox "You have identified yourself as something other than
Registrar or Treasurer!"
end select
end sub

(is it always rows 3-17?)


Drummy wrote:
Join Date: May 2006
Posts: 19

Input box inside a macro

--------------------------------------------------------------------------------

Ok, I need to create a button with a macro attached which allows me to
delete columns within a worksheet,

in this macro I must include an input box which asks the user to
either
identify as 'the treasurer' and delete all 'financial' data

Sheets("Membership").Select
Range("G3:H17,K3:K17").Select
Range("K3").Activate
Selection.ClearContents
End Sub

or identify as 'the registrar' and delete all 'results' data

Sheets("Results").Select
Range("E3:I17").Select
Selection.ClearContents
End Sub

how do I this?, above is two seperate macros I have recorded which I
want to combine with an input box, can anybody give me an example that
I can copy and paste into the macro??


--
Drummy
------------------------------------------------------------------------
Drummy's Profile: http://www.excelforum.com/member.php...o&userid=34780
View this thread: http://www.excelforum.com/showthread...hreadid=549324