How to combine two VBA macros

[skv89]

I'm a super noob at Excel VBA. I have a simple button macro and I have another macro with only two lines for copying cell values. I'm trying to combine the two macros but the two lines at the end for copying cell values don't work. Any help on how to get it to work is greatly appreciated!!

Sub ButtonC_Click()

Dim MyCell As Range
Set MyCell = Sheets("Batch Input").Range("C32")

If Dir(ThisWorkbook.Path & "\" & MyCell.Value & ".xls") <> "" Then
    On Error Resume Next: Err.Clear: Dim wb As Workbook
    Set wb = Workbooks(MyCell.Value & ".xls"): wb.Activate
    If Err.Number > 0 Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & MyCell.Value & ".xls")
    If Not wb Is Nothing Then wb.Worksheets("Shear Wall Analysis").Activate Else MsgBox "File not found", vbInformation
Else
     FileCopy ThisWorkbook.Path & "\Wood Shear Wall Template.xls", ThisWorkbook.Path & "\" & MyCell.Value & ".xls"
     Workbooks.Open Filename:=ThisWorkbook.Path & "\" & MyCell.Value & ".xls"
End If

Range("C67").Value = Range("C90").Value
Range("C68").Value = Range("C91").Value

End Sub

 

[Trevor G]

Welcome to the Board.

What is in C90 and C91? You could try writing it as

Range("C67")=Range("C90")
Range("C68")=Range("C91")

 

[Macropod]

Cross-posted at:

How to combine two VBA macros

I'm a super noob at Excel VBA. I have a simple button macro and I have another macro with only two lines for copying cell values. I'm trying to combine the two macros but the two lines at the end for copying cell values don't work. Any help on how to get it to work is greatly appreciated...

www.excelforum.com

Combine two macros

I'm a super noob at Excel VBA. I have a simple button macro and I have another macro with only two lines for copying cell values. I'm trying to combine the two macros but the two lines at the end for

stackoverflow.com

Please read Mr Excel's policy on Cross-Posting in rule 13: Message Board Rules

 

[skv89]

Welcome to the Board.

What is in C90 and C91? You could try writing it as

Range("C67")=Range("C90")
Range("C68")=Range("C91")

The value means to copy value only and not the formula. C90 and C91 are concatenate formulas and C67 and C68 are external cell references. The copy works on its own but not when combined with the other macro.

 

[Trevor G]

So the first macro works independently and does the second work independently?

 

[skv89]

Both work independently.

 

[Trevor G]

Suggestion then is to create a third subroutine and use the call command to see if that resolves it. If that doesn't work try adding in a time delay within the third subroutine (after the first call and before the second call) to see if that then works. Time events sometimes are needed and useful for so many different things.