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

 

[Shaner73]

Yes its working like a charm thanks for your help again I am trying to learn as i go along but Macros are really hard stuff.

P.S. Do you know how to get dependent data validation boxes I already have the boxes just need link make the boxes dependent.

Thanks K

Great!!! I'm still learning macro's and codes as well. It's a never-ending process.

As for Validation Boxes..I'm CLUELESS!!! Sorry.

 

[keranali]

Thanks for your help you are a pro.

K