Any assistance is appreciated!

I need a code which will make the commandbutton2 visible if cell "d18" is YES.

Any ideas?

Press Alt + F11 to open the Visual Basic Editor. In the project window,
under MICROSOFT EXCEL OBJECTS double click the workseet that has the command
buttons.

In the worksheet module add the following event code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("D18").Value = "Yes" Then
Me.CommandButton2.Visible = True
Else
Me.CommandButton2.Visible = False
End If

End Sub
--
Kevin Backmann


"cru" wrote:

> Any assistance is appreciated!
>
> I need a code which will make the commandbutton2 visible if cell "d18" is YES.
>
> Any ideas?
>

Hi Kevin,

Thank you so much!

Cru

"Kevin B" wrote:

> Press Alt + F11 to open the Visual Basic Editor. In the project window,
> under MICROSOFT EXCEL OBJECTS double click the workseet that has the command
> buttons.
>
> In the worksheet module add the following event code:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> If Range("D18").Value = "Yes" Then
> Me.CommandButton2.Visible = True
> Else
> Me.CommandButton2.Visible = False
> End If
>
> End Sub
> --
> Kevin Backmann
>
>
> "cru" wrote:
>
> > Any assistance is appreciated!
> >
> > I need a code which will make the commandbutton2 visible if cell "d18" is YES.
> >
> > Any ideas?
> >

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$18" Then
If UCase(Target.Value) = "YES" Then
CommandButton2.Visible = True
else
CommandButton2.Visible = false
End If
End If
End Sub

"cru" wrote:

> Any assistance is appreciated!
>
> I need a code which will make the commandbutton2 visible if cell "d18" is YES.
>
> Any ideas?
>

I think you will have better luck in the Worksheet Change Event

"cru" wrote:

> Hi Kevin,
>
> Thank you so much!
>
> Cru
>
> "Kevin B" wrote:
>
> > Press Alt + F11 to open the Visual Basic Editor. In the project window,
> > under MICROSOFT EXCEL OBJECTS double click the workseet that has the command
> > buttons.
> >
> > In the worksheet module add the following event code:
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> >
> > If Range("D18").Value = "Yes" Then
> > Me.CommandButton2.Visible = True
> > Else
> > Me.CommandButton2.Visible = False
> > End If
> >
> > End Sub
> > --
> > Kevin Backmann
> >
> >
> > "cru" wrote:
> >
> > > Any assistance is appreciated!
> > >
> > > I need a code which will make the commandbutton2 visible if cell "d18" is YES.
> > >
> > > Any ideas?
> > >

A shorter routine...

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Visible = (Range("D18").Value = "YES")
End Sub

Note that the above is case-sensitive; here is a non-case-sensitive
routine...

Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Visible = (UCase(Range("D18").Value) = "YES")
End Sub

--
Rick (MVP - Excel)


"cru" <(E-Mail Removed)> wrote in message
news:7AD7A303-DD87-4A38-8BC8-(E-Mail Removed)...
> Any assistance is appreciated!
>
> I need a code which will make the commandbutton2 visible if cell "d18" is
> YES.
>
> Any ideas?
>

I originally used the following code use macro (excluding if condition):

Sub Print_Preview_InputForm12()
'
' Print_Preview Macro
'
Dim Answer As String
Sheets("Ltr1").Visible = True
Sheets("Ltr1").Select
Range("A1:K48").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PrintPreview
Sheets("Print Ctr").Select

End Sub

Is there a way to insert the code into the above code so that if "d18" =
"yes" the button will be visible?

Thanks,
cru

"Mike" wrote:

> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$D$18" Then
> If UCase(Target.Value) = "YES" Then
> CommandButton2.Visible = True
> else
> CommandButton2.Visible = false
> End If
> End If
> End Sub
>
> "cru" wrote:
>
> > Any assistance is appreciated!
> >
> > I need a code which will make the commandbutton2 visible if cell "d18" is YES.
> >
> > Any ideas?
> >

Just add this line to your macro...

CommandButton2.Visible = (Range("D18").Value = "YES"

--
Rick (MVP - Excel)


"cru" <(E-Mail Removed)> wrote in message
news:27331B24-76C7-4E4B-B16B-(E-Mail Removed)...
>I originally used the following code use macro (excluding if condition):
>
> Sub Print_Preview_InputForm12()
> '
> ' Print_Preview Macro
> '
> Dim Answer As String
> Sheets("Ltr1").Visible = True
> Sheets("Ltr1").Select
> Range("A1:K48").Select
> ActiveSheet.PageSetup.PrintArea = Selection.Address
> ActiveSheet.PrintPreview
> Sheets("Print Ctr").Select
>
> End Sub
>
> Is there a way to insert the code into the above code so that if "d18" =
> "yes" the button will be visible?
>
> Thanks,
> cru
>
> "Mike" wrote:
>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Address = "$D$18" Then
>> If UCase(Target.Value) = "YES" Then
>> CommandButton2.Visible = True
>> else
>> CommandButton2.Visible = false
>> End If
>> End If
>> End Sub
>>
>> "cru" wrote:
>>
>> > Any assistance is appreciated!
>> >
>> > I need a code which will make the commandbutton2 visible if cell "d18"
>> > is YES.
>> >
>> > Any ideas?
>> >

I really should have filtered the change event. For the case-sensitive
version...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$18" Then
CommandButton1.Visible = (Target.Value = "YES")
End If
End Sub

For the non-case-sensitive version...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$18" Then
CommandButton1.Visible = (UCase(Target.Value) = "YES")
End If
End Sub

--
Rick (MVP - Excel)


"Rick Rothstein" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>A shorter routine...
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> CommandButton1.Visible = (Range("D18").Value = "YES")
> End Sub
>
> Note that the above is case-sensitive; here is a non-case-sensitive
> routine...
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> CommandButton1.Visible = (UCase(Range("D18").Value) = "YES")
> End Sub
>
> --
> Rick (MVP - Excel)
>
>
> "cru" <(E-Mail Removed)> wrote in message
> news:7AD7A303-DD87-4A38-8BC8-(E-Mail Removed)...
>> Any assistance is appreciated!
>>
>> I need a code which will make the commandbutton2 visible if cell "d18" is
>> YES.
>>
>> Any ideas?
>>
>

Rick,

How can I incorporate the code you have to the following code:

Sub Print_Preview_InputForm12()
'
' Print_Preview Macro
'
Dim Answer As String
Sheets("Ltr1").Visible = True
Sheets("Ltr1").Select
Range("A1:K48").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PrintPreview
Sheets("Print Ctr").Select

End Sub

I currently have this but if I can incorporate your code into the above code
then I wanted to see if I can eliminate from creating commandbutton. Thanks.

cru

"Rick Rothstein" wrote:

> I really should have filtered the change event. For the case-sensitive
> version...
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$D$18" Then
> CommandButton1.Visible = (Target.Value = "YES")
> End If
> End Sub
>
> For the non-case-sensitive version...
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = "$D$18" Then
> CommandButton1.Visible = (UCase(Target.Value) = "YES")
> End If
> End Sub
>
> --
> Rick (MVP - Excel)
>
>
> "Rick Rothstein" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> >A shorter routine...
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > CommandButton1.Visible = (Range("D18").Value = "YES")
> > End Sub
> >
> > Note that the above is case-sensitive; here is a non-case-sensitive
> > routine...
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > CommandButton1.Visible = (UCase(Range("D18").Value) = "YES")
> > End Sub
> >
> > --
> > Rick (MVP - Excel)
> >
> >
> > "cru" <(E-Mail Removed)> wrote in message
> > news:7AD7A303-DD87-4A38-8BC8-(E-Mail Removed)...
> >> Any assistance is appreciated!
> >>
> >> I need a code which will make the commandbutton2 visible if cell "d18" is
> >> YES.
> >>
> >> Any ideas?
> >>
> >
>
>