How to Repair Dll Error Code In a Simple Way?: Fast Solution to Error: 2 Part Question about shapes using vba

Tuesday, March 15, 2016

Fast Solution to Error: 2 Part Question about shapes using vba

2 Part Question about shapes using vba

PART 1: I have 40 shapes all named Card1 thru Card40. I would like some vba to hide a range of shapes. So like Card15 thru Card40 would be hidden.

PART 2: (a little more difficult) all 40 shapes are over a cell. The ranges are:
"B2,D2,F2,H2,J2,L2,N2,P2,B4,D4,F4,H4,J4,L4,N4,P4,B6,D6,F6,H6,J6,L6,N6,P6,B8,D8,F8,H8,J8,L8,N8,P8,B10,D10,F10,H10,J10,L10,N10,P10"
So Card1 is over B2, Card2 is over D2 and so on. I'm not sure how to do it but I would like if a shape is clicked that shape is hidden and the cell value below the now hidden shape is inputted in cell V2. Then a second shape is selected and that shape
is hidden and the cell value below it is inputted in V3. Now after the second shape is hidden, both of those shapes will stay hidden for say 5 seconds and then they are shown again.
and the process starts over again.

Solutions to the Problem 2 Part Question about shapes using vba

Download SmartPCFixer to Fix It (Free)

I'm not sure what to say...
What you have described is exactly how mine is working (for me anyway).

Just to confirm...
The upper left hand corner of the card is in the cell with the number in it.
If not then mine will not work.
Can you setp through the code one line at a time and see how it is executing.
blnFirstCard should alternate between true and false each time it is run.

Try this to see

Public Sub ShapeClicked()
    Dim shp As Shape
    Static blnFirstCard As Boolean
    Static shpFirstShape As Shape

    blnFirstCard = Not blnFirstCard
    msgbox "boolean " & blnfirstrun
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
    .Visible = msoFalse
    If blnFirstCard = True Then
        msgbox "first card is " & .TopLeftCell.address
        Set shpFirstShape = shp
        .Parent.Range("V2") = .TopLeftCell
    Else
        msgbox "second card is " & .TopLeftCell.address
        .Parent.Range("V3") = .TopLeftCell
        Application.Wait Now + TimeSerial(0, 0, 5)
        shpFirstShape.Visible = msoTrue
        shp.Visible = msoTrue
    End If
    End With

End Sub

System Update Readiness Command: To Fix 2 Part Question about shapes using vba

On running the System Update readiness Command, it will Detect & Replace Incorrect Registry data with the Correct one. Which may ultimately Solve 2 Part Question about shapes using vba in Windows.

Open CMD as Administrator by Simply Right Clicking on Start button > Command Prompt (Admin).
Now Type or Copy paste "DISM.exe /Online /Cleanup-image /Scanhealth" and hit Enter,
Now again Type or Copy paste this "DISM.exe /Online /Cleanup-image /Restorehealth" and hit Enter.
Close the Command Prompt Window because we are done.

Reboot your Windows & see if error 2 Part Question about shapes using vba still comes up.

Note: Your administrator's password might be needed.

Another Safe way to Repair the Problem: 2 Part Question about shapes using vba:

How to Fix 2 Part Question about shapes using vba with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer. Open it, and it will perform a scan for your computer. The junk files will be shown in the scan result.

2. After the scan is finished, you can see the errors and problems need to be fixed. Click Fix All.

3. The Repair part is finished, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in this software. Like dll downloading, windows updating and print spooler error repair.

How to Repair Dll Error Code In a Simple Way?