How to Combine two Macros

[keranali]

Hi everyone how do you join two macros into one I have macro 1


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRw As Long, ThisRw As Long

LastRw = Range("A" & Rows.Count).End(xlUp).Row
If Intersect(ActiveCell, Range("A2:I" & LastRw)) Is Nothing Then
Range("w3:w5,w8:w11").ClearContents
Else
ThisRw = ActiveCell.Row
Range("w3:w5").Value = Application.Transpose(Cells(ThisRw, "G").Resize(, 3).Value)
Range("w8:w12").Value = Application.Transpose(Cells(ThisRw, "B").Resize(, 5).Value)
End If
End Sub




And macro 2

Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub


I needed both of them to work on the same sheet?

Thanks
K

 

[JamesW]

Hi,

Do you mean when you run the first macro it should also run the second automatically? If so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim LastRw As Long, ThisRw As Long
    
        LastRw = Range("A" & Rows.Count).End(xlUp).Row
        If Intersect(ActiveCell, Range("A2:I" & LastRw)) Is Nothing Then
            Range("w3:w5,w8:w11").ClearContents
        Else
            ThisRw = ActiveCell.Row
            Range("w3:w5").Value = Application.Transpose(Cells(ThisRw, "G").Resize(, 3).Value)
            Range("w8:w12").Value = Application.Transpose(Cells(ThisRw, "B").Resize(, 5).Value)
        End If
    [B]Uppercase[/B]
End Sub

 

[keranali]

Hi thanks for your reply however its more like merging two into one to run real time once excel opens.
The both starts automatically independent but I needed them merged.
Thanks
K

 

[JamesW]

Hi,

Not sure exactly what you mean. You want them both to run at the same time once Excel opens? - If this is true then macro 1 only works when you change something in a cell.

'Merging' them (adding macro 2 into macro 1) is the same as what I posted.

 

[Shaner73]

Hi thanks for your reply however its more like merging two into one to run real time once excel opens.
The both starts automatically independent but I needed them merged.
Thanks
K

Maybe calling the second macro???

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRw As Long, ThisRw As Long

LastRw = Range("A" & Rows.Count).End(xlUp).Row
If Intersect(ActiveCell, Range("A2:I" & LastRw)) Is Nothing Then
Range("w3:w5,w8:w11").ClearContents
Else
ThisRw = ActiveCell.Row
Range("w3:w5").Value = Application.Transpose(Cells(ThisRw, "G").Resize(, 3).Value)
Range("w8:w12").Value = Application.Transpose(Cells(ThisRw, "B").Resize(, 5).Value)
End If
End Sub

Call Uppercase

 

[keranali]

Hi Guys I dont understand "Call Uppercase" what is ment by call uppercase

 

[VoG]

Runs your Uppercase macro.

 

[keranali]

Ok so then it will be like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRw As Long, ThisRw As Long

LastRw = Range("A" & Rows.Count).End(xlUp).Row
If Intersect(ActiveCell, Range("A2:I" & LastRw)) Is Nothing Then
Range("w3:w5,w8:w11").ClearContents
Else
ThisRw = ActiveCell.Row
Range("w3:w5").Value = Application.Transpose(Cells(ThisRw, "G").Resize(, 3).Value)
Range("w8:w12").Value = Application.Transpose(Cells(ThisRw, "B").Resize(, 5).Value)
End If
End Sub

Call uppercase
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub

 

[Shaner73]

Ok so then it will be like this?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRw As Long, ThisRw As Long

LastRw = Range("A" & Rows.Count).End(xlUp).Row
If Intersect(ActiveCell, Range("A2:I" & LastRw)) Is Nothing Then
Range("w3:w5,w8:w11").ClearContents
Else
ThisRw = ActiveCell.Row
Range("w3:w5").Value = Application.Transpose(Cells(ThisRw, "G").Resize(, 3).Value)
Range("w8:w12").Value = Application.Transpose(Cells(ThisRw, "B").Resize(, 5).Value)
End If
End Sub

Call uppercase
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub

As of right now, you have two separate macro's, correct? If so, copy the code I posted above exactly the way I did. Once "Macro 1" is through running it will automatically run "Macro 2".

 

[keranali]

Hi I am getting a compile error, where do I insert the second macro below "call Uppercase"