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 January 16, 2023 - Feb 24, 2022 at 11:46 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Feb 24, 2022 at 11:46 AM
Related:
- Auto-fill items repeatedly for two sheets based on another
- Auto serial number in excel based on another column ✓ - Excel Forum
- Compare two worksheets and paste differences to another sheet - excel vba free download ✓ - Excel Forum
- Nvidia drivers auto detect - Guide
- Auto clicker for xbox ✓ - Xbox360 & Xbox One Forum
- Based on the values in cells b77 b81 ✓ - Excel Forum
1 reply
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
545
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