Re: VBA to match value in one column to another and paste adjacent value
The first three stations worked perfectly (it added the two values for WITN, which is awesome), but it had an error when it to WVLT--a station that is not listed in column O.
Run-time error '91':
Object variable or With block variable not set
Re: VBA to match value in one column to another and paste adjacent value
Yes, previous code was changed too quickly, see next one
Sub Treat7()
Dim WkRg1 As Range, WkRg2 As Range
Dim Rg As Range
Const FR As Integer = 6 ' First Row
Const StatCol1 As String = "B"
Const StatCol2 As String = "O"
Const CCCol1 As String = "G"
Const CCCol2 As String = "P"
Dim F
Dim T, TT
Dim FIRST_Add
Set WkRg1 = Range(Cells(FR, StatCol1), Cells(Rows.Count, StatCol1).End(3))
Set WkRg2 = Range(Cells(FR, StatCol2), Cells(Rows.Count, StatCol2).End(3))
For Each Rg In WkRg1
If (Rg <> "") Then
Set F = WkRg2.Find(What:=Rg.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If (Not F Is Nothing) Then
FIRST_Add = F.Address
Do
If (Cells(F.Row, CCCol2) <> "") Then
T = Cells(Rg.Row, CCCol1).Formula
T = IIf(InStr(T, "=") = 0, "=" & T, T)
TT = T & "+" & Cells(F.Row, CCCol2)
Cells(Rg.Row, CCCol1).Formula = TT
Cells(F.Row, CCCol2) = ""
End If
Set F = WkRg2.FindNext(F)
Loop While (F.Address <> FIRST_Add)
End If
End If
Next
End SubRe: VBA to match value in one column to another and paste adjacent value
:thumbcoo: That worked perfectly!! Thank you so much. I know you put a great amount of time into this, and I really appreciate it!
Re: VBA to match value in one column to another and paste adjacent value
Are we really done ....?
Did you do enough tests ...?
I'm please it is working now, yes it was a long trip.
Re: VBA to match value in one column to another and paste adjacent value
I just ran it in a test file that was a duplicate of the report I did manually this morning and it worked perfectly. I cannot tell you how much time this is going to save me! Thanks again.
Don’t have an account yet? Register yourself now and be a part of our community!