Posts by Spaceballs_fan

Quote from vcoolio

Re: Find string match in column then paste adjacent cell

Hello again TS,

Just thought that you may be interested in an alternative code to do the same job:-

Code

Sub FindStuff()


Dim lr As Long
Dim i As Integer


lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row


For i = 1 To lr


If UCase(Sheet2.Cells(1, 3).Value) = UCase(Sheet1.Cells(i, 1).Value) Then
Sheet2.Cells(14, 5).Value = Sheet1.Cells(i, 1).Offset(, 5).Value
End If
Next i


End Sub

Display More

Cheerio,
vcoolio.

Display More

THANK YOU SO MUCH Vcoolio!!! I've spent about a week looking for something just like this. I was able to tweak it a bit and it works PERECTLY for my application. =)

Quote from chirayuw

sample file please

Here is a sample. Thanks for looking.

Hi. I have also posted this question here: https://www.mrexcel.com/forum/…-date-ws2-copy-paste.html
I have an worksheet that is updated every week.
However, I want to copy and paste the values from 2 different cells into another worksheet.
Worksheet 1 will have a date entered in cell H1.
I want to find the date from Sheet1 H1 in Column A on worksheet 2, and then I want it to copy the value (as the cell contains a formula and I don't want the formula to copy) and paste it into the same row Column B. I would like to do the same for another cell into the same row in Column C.

Your help is much appreciated.

Thanks [USER="108665"]AlanSidman[/USER] worked perfectly!!
I needed the calculation and result to start at row 5, I was able to figure out to simply change i = 5

Hi. I have a table of data.
column B contains dates
cell C2 contains the control date

i need a macro that will enter the formula into column F
=IF ($c $2>b5, "over", "in")

i need it to loop until there is no more data left in column B

thanks