Hi all,
So I'm stuck with getting my cut/paste vba to work as well as a separate question. Here are my criteria:
Here is what I have regarding the cut/paste VBA code:
Sub Macro14()
Dim rngA As Range
Dim cell As Range
Set rngA = Sheets("GL Detail").Range("I:I")
For Each cell In rngA
If cell.Value = "Final Difference (after factoring in Distributions/Withholding Taxes Payable)" Then
cell.Cut
Sheets("GL Detail").Range("I1:I").End(xlDown).Select
ActiveSheet.Paste
End If
Next cell
End Sub
So I'm stuck with getting my cut/paste vba to work as well as a separate question. Here are my criteria:
- Column "I" contains only one instance of the word "Final".
- Need to cut/paste "Final" so it moves 1 cell below.
- Need to insert the word "Total" into the original location of the word "Final"
- Outcome should be the word "Total" with the word "Final" below it.
Here is what I have regarding the cut/paste VBA code:
Sub Macro14()
Dim rngA As Range
Dim cell As Range
Set rngA = Sheets("GL Detail").Range("I:I")
For Each cell In rngA
If cell.Value = "Final Difference (after factoring in Distributions/Withholding Taxes Payable)" Then
cell.Cut
Sheets("GL Detail").Range("I1:I").End(xlDown).Select
ActiveSheet.Paste
End If
Next cell
End Sub