Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
COURSE of the MONTH
8 days, 20 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Find value in one column and replace value in another
Posted on 2016-08-31
Hi Experts
I am having trouble finding a solution to my task so I am once again hoping that I might get some assistance here.
I require a VBA script to find the values listed in Column D and replace whatever is currently in Column F with the value "30-03-AM".
The sheet name is constant "COMBINATION-DLY" and the columns that the data will appear in is always the same. What changes
from day to day is the row that the data appears. It varies from day to day based on the total number of records. Also there is a chance that a value may NOT be there every day.
Any help would be greatly appreciated.
Andy
Column D Column F
252881 30-03-AM
252889 30-03-AM
252890 30-03-AM
207554 30-03-AM
233230 30-03-AM
252844 30-03-AM
253279 30-03-AM
257168 30-03-AM
261858 30-03-AM
I am having trouble finding a solution to my task so I am once again hoping that I might get some assistance here.
I require a VBA script to find the values listed in Column D and replace whatever is currently in Column F with the value "30-03-AM".
The sheet name is constant "COMBINATION-DLY" and the columns that the data will appear in is always the same. What changes
from day to day is the row that the data appears. It varies from day to day based on the total number of records. Also there is a chance that a value may NOT be there every day.
Any help would be greatly appreciated.
Andy
Column D Column F
252881 30-03-AM
252889 30-03-AM
252890 30-03-AM
207554 30-03-AM
233230 30-03-AM
252844 30-03-AM
253279 30-03-AM
257168 30-03-AM
261858 30-03-AM
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
4-
2
6 Comments
Active today
Please try this....
Sub ReplaceValues()
Dim lr As Long
Dim rng As Range
lr = Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.AutoFilterMode = 0
With Range("D1:D" & lr)
.AutoFilter field:=1, Criteria1:="<>"
On Error Resume Next
Set rng = Range("F2:F" & lr).SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then rng.Value = "30-03-AM"
End With
ActiveSheet.AutoFilterMode = 0
End Sub
Active 2 days ago
Not sure if I it was clear that there are other values in both columns. I can't do a global type find and replace. It must be where the specific value in column D (one of those listed) is found and then the replacement can be done. Column D might contains thousands of other values. I am sorry I wasn't more clear.
A
A
Active today
Where are those criteria for col. D placed in the workbook, on another Sheet?
Or you want to use them as hard coded values in the code?
Can you upload a sample workbook with some dummy data to work with?
Or you want to use them as hard coded values in the code?
Can you upload a sample workbook with some dummy data to work with?
Active today
If you list your criteria for column D on a separate sheet in column A (e.g. in column A on Sheet2 in the attached), then you may use the following code to get the desired output.
Please change the sheet names used in the code as per your requirement.
Replace-Values.xlsm
Please change the sheet names used in the code as per your requirement.
Sub ReplaceValues()
Dim lr As Long, dlr As Long, i As Long
Dim rng As Range
Dim arrFilters() As String
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 4).End(xlUp).Row
With Worksheets("Sheet2")
dlr = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim arrFilters(1 To dlr)
For i = 1 To dlr
arrFilters(i) = CStr(.Range("A" & i).Value)
Next i
End With
ActiveSheet.AutoFilterMode = 0
With Worksheets("Sheet1").Range("A1").CurrentRegion
.AutoFilter field:=4, Criteria1:=arrFilters, Operator:=7
On Error Resume Next
Set rng = Range("F2:F" & lr).SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then rng.Value = "30-03-AM"
End With
ActiveSheet.AutoFilterMode = 0
Application.ScreenUpdating = True
End Sub
Replace-Values.xlsm
Active 2 days ago
You are fantastic. This is exactly what I needed to complete this project. Thank you for your prompt response and sharing your knowledge.
Andy
Andy
Featured Post
Ready to get started with anonymous questions today? It's easy! Learn more.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A little background as to how I came to I design this code:
Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Suggested Courses
Course of the Month8 days, 20 hours left to enroll
764 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.