Dannottheman
Board Regular
- Joined
- Dec 24, 2020
- Messages
- 55
- Office Version
- 2007
Hello,
I searched for this and could not find the answer. I have 3 VBAs that would like to run at once. Even though I copy paste the code as shown below, Excel is not running all 3 tasks. I have to delete or manually copy paste each one and run again. Is there a way to make all 3 run one after the other?:
I searched for this and could not find the answer. I have 3 VBAs that would like to run at once. Even though I copy paste the code as shown below, Excel is not running all 3 tasks. I have to delete or manually copy paste each one and run again. Is there a way to make all 3 run one after the other?:
VBA Code:
Sub Dannottheman3()
Dim Cl As Range
For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
If LCase(Cl.Value) Like "*lesson*" Then
Cl.Interior.Color = rgbLightBlue
Cl.Font.Bold = True
End If
Next Cl
End Sub
Sub Test2()
Application.ScreenUpdating = False
With ActiveSheet.Columns("A")
.ColumnWidth = 95
.WrapText = True
End With
Columns("A:B").NumberFormat = "General"
Application.ScreenUpdating = True
End Sub
Sub Dannottheman()
Dim Ary As Variant, Nary As Variant
Dim r As Long
Ary = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value2
ReDim Nary(1 To UBound(Ary) * 2, 1 To 1)
For r = 1 To UBound(Ary)
Nary(r * 2 - 1, 1) = Ary(r, 1)
Nary(r * 2, 1) = Ary(r, 2)
Next r
With Range("A1").Resize(UBound(Nary))
.NumberFormat = "@"
.Value = Nary
End With
End Sub