try (as per your spec):

It currently doesn't clear t50:U50 onwards if you re-run== just clear
manually. If it works, I can add code to clear.

Sub Find_Row2COLx()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim x As Variant
Dim findRng As Range
Dim r As Long, c As Integer, rr As Long

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

Set findRng = ws1.Range("i46:r62")

Findval = Application.InputBox("Enter value to be found", Type:=1)


rr = 49

With ws1

x = .Range("i46:r62")

For r = 1 To UBound(x, 1)
For c = 1 To UBound(x, 2)
If x(r, c) = Findval Then
rr = rr + 1
.Cells(rr, "T") = .Cells(r + 45, "F")
.Cells(rr, "U") = .Cells(7, c + 8)
End If
Next c
Next r
End With

End Sub


"JB2010" wrote:

Hi Toppers

Many thanks for your help on this

The actual data is stored in cells (I46:R62)

The data is all either TRUE or FALSE, i want it fire the cell & row headings
if the data is FALSE

the column headings are in cells (I7:R7)

the row headings are in cells (F46:F62)

where a FALSE is found in the main data i would like the column heading to
be put column T starting at row 50, corresponding row headings to be put in
column U starting at row 50. the list would obviously need to have the
ability to drop down as many rows as there are possible permutations of
references to be fired (about 170, i think, but am only expecting there to be
a couple of FALSE's at any one time!)

i will then CONCATENATE the results of columns T & U in column V to get the
full reference i need

i hope this helps, let me know if you need any more info


cheers



jb




"Toppers" wrote:

What is the range of your data (rows/columns) and do want the output to be a
list of headings in two columns?