Please help. Need Command button hide/ make disappear if cell range is empty.

[pedie]

Hi,

I have vba code that bring in data from another worksheet with certain conditions and paste it in range C7:G7, C8:G8, C9:G9 and so on...

Corresponding to each row in H col I have 7 Rounded Rectangle shape inserted from insert tab and is assigned a macro to it.

What i want is the macro to make this Rounded Rectangle or command button disappear or make it transparent if there is no value ("blank") in corresponding row...

This could be difficult but please help me if this is possible.

I am trying it myself!

Thanks for helping!

 

[pedie]

I have recorded something that might helping adding to the code....

I have writen few words whic is still not working
Please advice

sub try1()
if range("C7:G7").value = "" then
ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=false
else
ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=true
End sub

Sub Macro3()
'
' Macro3 Macro
'
'
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=True, Left:=144, Top:=279, Width:=136.5, Height:=16.5 _
        ).Select
End Sub

 

[pedie]

I am still trying you see? Please advice it is still not working....

Please

Sub try2()
Dim OLEObjects As Object
If Range("C7:G7").Value = "" Then
    OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=144, Top:=279, Width:=136.5, Height:=16.5 _
        ).Select
        Else
        OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=True, Left:=144, Top:=279, Width:=136.5, Height:=16.5 _
        ).Select
End If
End Sub

 

[pedie]

Thanks i figured out something....
thanks have Great weekend guys!!!