Posts by Lifespeachy

Apologies for that royUK,

The code i'm tinkering with is as follows:

Sub Update_Status()

End Sub
Dim rFndCell As Range
Dim strData As String
Dim stFnd As String
Dim fCol As Integer
Dim sh As Worksheet
Dim ws As Worksheet

Set ws = Sheets("Sheet15")
Set sh = Sheets("Sheet9")
stFnd = ws.Range("L1").Value

With sh
 Set rFndCell = .Range("D:D").Find(stFnd, LookIn:=xlValues)
 If Not rFndCell Is Nothing Then
 fCol = rFndCell.Column
 ws.Range("N1").Copy sh.Cells(6, fCol)
 Else 'Can't find the item
 MsgBox "No Find"
 End If
 End With
 
 Exit Sub

I have also done up a quick example file and attached. in the example file the columns numbers are a bit different to my original post sorry, but the same principle applies.

Quote Status.xlsm

Much appreciated if someone could guide me in the right direction.

Hi all,

I am developing a quote register at my work.

I've hit a stumbling block with some VBA I'm wanting to execute

I have a worksheet (sheet 1) which contains the quote, it has the quote number in cell L1 and the previous quote revision number in cell H1

There is another worksheet (sheet 2) which is a register of quotes and their status. It has the quote numbers in column A and revision number in column B and the current status in column C.

What I'm wanting to do is: Look up the quote number from sheet 1 L1 in sheet 2 column A as well as the revision number from sheet 1 H1 in sheet 2 column B. Where there is an exact match for both occurrences, I want it to make the status "Rev'd" in the corresponding cell in column C.

I did manage to find some code but it only has 1 criteria and I'm struggling with the second criteria.

Any help would be greatly appreciated.

Thanks