Combine Workbook open events

VonFeed

New Member
Joined
Dec 12, 2011
Messages
11
Hello, I figured out my last post to make a drop down list default to a certain choice when opening up excel. However I could not edit my post to state so and then ask my follow up question that I have to now to complete my workbook for users. My question is as follows:

How can I cobble together the following codes for workbook_open? What I would like is for a customer/user to open the workbook, 1) see the pop up & then x the pop up, then once the pop up is closed, 2) the workbook takes them to Sheet 2, 3) then the last routine to run resets a drop down list to a default value (can this item also be made to effect multiple sheets that have the drop down list in the same location on those sheets?). Here is my code so far:


Private Sub Workbook_Open()
MsgBox "Hello"
End Sub


Private Sub Workbook_Open()
Worksheets("Sheet2").Activate
End Sub


Private Sub Workbook_Open()
Sheets("Sheet2").Range("V6").Value = Sheets("Sheet1").Range("D5") ..... (((( can this item do this? (Sheets("Sheet2:Sheet5").Range("V6").Value = Sheets("Sheet1").Range("D5") ))))
End Sub


Thanks to everyone for viewing and helping me with this. Step by step I am starting to understand VBA.
 

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
75,392
Office Version
365
Platform
Windows
You don't need anything special to combine the code but you'll need to add to the code to reset all the dropdowns.
Code:
Private Sub Workbook_Open()

    MsgBox "Hello"

    Worksheets("Sheet2").Activate
    
    For I = 2 To 5
        Sheets("Sheet" & I).Range("V6").Value = Sheets("Sheet1").Range("D5")
    Next I

End Sub
 

Forum statistics

Threads
1,084,733
Messages
5,379,498
Members
401,607
Latest member
Zemexi

Some videos you may like

This Week's Hot Topics

  • VBA code giving errors and stopping Excel
    Hello Experts, I have this code being used to loop through files in a file path, and copy specific data to another sheet. It is giving me several...
  • Disable MsgBox message
    Morning, I have a userform where if i leave a ComboBox empty i see a MsgBox warning me that i must enter an invoice number. It is this MsgBox i...
  • Macro Recorder into VBA, Copy Paste Data Filled Cells
    Hi Everyone, I have a macro recorder file that takes a selection of data, copies, then pastes into a new sheet on ("A2:B2") The issue is my...
  • Number format changes while pasting into a cell
    Hi, I am trying to paste a number 180204524303 from an email to an excel cell, however, whenever i try to do so , the the paste value appears as...
  • Collating data
    Hello all. Could someone please help. I am trying to pull all column data from multiple sheets (24 I total so far) into 1 master sheet without...
  • Sum Multiple Columns Based on Multiple Criteria
    I am trying to consolidate data by summing columns G through M based on material, plant, vendor, and fiscal year being identical. The period does...
Top