Auto-fill items repeatedly for two sheets based on another
Solved/Closed
leapout
Posts
20
Registration date
Monday March 1, 2021
Status
Member
Last seen
April 26, 2022
-
Updated on Feb 16, 2022 at 05:20 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 24, 2022 at 11:46 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 24, 2022 at 11:46 AM
Related:
- Auto-fill items repeatedly for two sheets based on another
- Grand theft auto v free download no verification for pc - Download - Action and adventure
- Grand theft auto iv download apk for pc - Download - Action and adventure
- Facebook auto refresh - Guide
- Op auto clicker for mac - Download - Mouse and keyboard
- Nvidia drivers auto detect - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Feb 22, 2022 at 12:08 PM
Feb 22, 2022 at 12:08 PM
Hi Leapout,
Check out the following code:
This is the code for FIL1. Change it on code line 5 for FIL2.
Best regards,
Trowa
Check out the following code:
Sub RunMe() Dim mVal1, mVal2 As String Dim lRow, x As Long Sheets("FIL1").Select With Sheets("REP") lRow = .Range("B1").End(xlDown).Row For Each cell In Range("B2:B" & Range("B1").End(xlDown).Row) mVal1 = Replace(cell.Value, " ", vbNullString) x = 1 Do x = x + 1 mVal2 = Replace(.Cells(x, "B") & .Cells(x, "C") & .Cells(x, "D"), " ", vbNullString) If mVal1 = mVal2 Then If .Cells(x, "A").Value <> vbNullString Then cell.Offset(0, -1).Value = .Cells(x, "A").Value Else cell.Offset(0, -1).Value = .Cells(x, "A").End(xlUp).Value End If End If Loop Until x = lRow Next cell End With End Sub
This is the code for FIL1. Change it on code line 5 for FIL2.
Best regards,
Trowa
Updated on Feb 22, 2022 at 01:59 PM
Impressive! Actually I got idea from some forum to implement your code for two sheets by putting in array.
So see bold some adjusting how your code becomes.
many thanks for your great work
Feb 24, 2022 at 11:46 AM