If and ELseIF

[imback2nite]

I've written this and don't know what is going wrong.

Private Sub CommandButton3_Click()
        If Range("3:2544").EntireRow.Hidden = False Then
        MsgBox ("Select Which Week To Update Names")
            Exit Sub
       ElseIf Range("4:6").EntireRow.Hidden = False Then
            Range("B8:B47").ClearContents
            Worksheets("Names").Range("B2:B41").Copy
            Range("B8").PasteSpecial Paste:=xlPasteValues
        ElseIf Range("51:54").EntireRow.Hidden = False Then
            Range("B56:B95").ClearContents
            Worksheets("Names").Range("B2:B41").Copy
            Range("B56").PasteSpecial Paste:=xlPasteValues
       ElseIf Range("99:102").EntireRow.Hidden = False Then
            Range("B104:B143").ClearContents
            Worksheets("Names").Range("B2:B41").Copy
            Range("B104").PasteSpecial Paste:=xlPasteValues
       ElseIf Range("147:150").EntireRow.Hidden = False Then
            Range("B152:B191").ClearContents
            Worksheets("Names").Range("B2:B41").Copy
            Range("B152").PasteSpecial Paste:=xlPasteValues
        End If
            Application.CutCopyMode = False
        Range("B1").Select
    Application.ScreenUpdating = True
End Sub

It all works except for the

       ElseIf Range("4:6").EntireRow.Hidden = False Then
            Range("B8:B47").ClearContents
            Worksheets("Names").Range("B2:B41").Copy
            Range("B8").PasteSpecial Paste:=xlPasteValues

The rest of the ElseIf's work fine. I tried deleting the code below and it works fine but I do need it. Any help wound be appreciated.

 If Range("3:2544").EntireRow.Hidden = False Then
        MsgBox ("Select Which Week To Update Names")
            Exit Sub

[/CODE] Because the code works fine without it.

 

[imback2nite]

Can I just confirm that you understand that ElseIf statements are alternatives. By that I mean when the code reaches an ElseIf that is True then it executes that section of code and from there goes straight to End If, bypassing all the ElseIfs that follow.

Yes. That's why I find it odd that with rows ("3:6") Unhidden, excel will not work. Yet the other ElseIf statements are unimpeded. With the rows ("3:6") unhidden it should stop there and complete till the next ElseIf.

 

[Alex Blakenburg]

Can you share your workbook using Dropbox, Google drive or some other sharing platform. You will need to allow access to anyone with the link.

 

[imback2nite]

Can you share your workbook using Dropbox, Google drive or some other sharing platform. You will need to allow access to anyone with the link.

I would be happy to. How do I send the link?

 

[imback2nite]

I would be happy to. How do I send the link?

Loading Google Sheets

 

[Alex Blakenburg]

How are you kicking off the macro ? When I run it dirrectly it seems to do what it is intended to do.

 

[imback2nite]

How are you kicking off the macro ? When I run it dirrectly it seems to do what it is intended to do.

View attachment 104643

Let's see. I run it from the TOKES page. I select the Input Names button and the 'Names' field is populated from the 'Names' page. It works for all the dates but from 12/31/23 to 01/06/24. When that filed is brought up I get the hiccup. The Select Which Week To Update Names MsgBox appears. It's not supposed to do that. Also, on the Dates Form you can select to see all weeks. If you then select the 'Input Names' button the names will repopulate the 12/31/23 to 1/6/24 field. It's not supposed to populate anything till only one weeks field is present. Not all of them. It's really a mess.

 

[Alex Blakenburg]

I am confused, your buttons on the sheet TOKES appear to be Pictures and not buttons and don't seem to link to the macros you are running.
Is Input Names in your original spreadsheet an Active X button and linked to CommandButton3_Click() ?

 

[imback2nite]

I am confused, your buttons on the sheet TOKES appear to be Pictures and not buttons and don't seem to link to the macros you are running.
Is Input Names in your original spreadsheet an Active X button and linked to CommandButton3_Click() ?

Yes. They are connected to buttons. I used the link I sent you and what I got really is a terrible representation.

 

[imback2nite]

I am confused, your buttons on the sheet TOKES appear to be Pictures and not buttons and don't seem to link to the macros you are running.
Is Input Names in your original spreadsheet an Active X button and linked to CommandButton3_Click() ?

Yes. The Google Sheets is a poor download representation. You would have to see the worksheet. Using F8 should have bypassed the first IF statement.

 

[imback2nite]

Yes. The Google Sheets is a poor download representation. You would have to see the worksheet. Using F8 should have bypassed the first IF statement.

I'm really not sure how but this seemed to have fixed it. Instead of ("3:2544") I put ("2:2544"). I wish you could see it and explain it to me. I say fixed but I don't think so. It just seems to work.

        If Range("2:2544").EntireRow.Hidden = False Then
        MsgBox ("Select Which Week To Update Names")
        Exit Sub
        End If