Need help with lookup? or if? command
Solved/Closed
nycm
Posts
6
Registration date
Monday October 28, 2013
Status
Member
Last seen
October 31, 2013
-
Oct 28, 2013 at 07:20 PM
nycm Posts 6 Registration date Monday October 28, 2013 Status Member Last seen October 31, 2013 - Oct 31, 2013 at 05:43 PM
nycm Posts 6 Registration date Monday October 28, 2013 Status Member Last seen October 31, 2013 - Oct 31, 2013 at 05:43 PM
Related:
- Need help with lookup? or if? command
- Cs 1.6 money command - Guide
- Csgo speed command - Guide
- Net send command - Guide
- Wake on lan command - Guide
- Command f on mac - Guide
2 responses
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Oct 30, 2013 at 12:10 AM
Oct 30, 2013 at 12:10 AM
the data is in sheet1 from A1 to c3
now try to macro and confirm wheter you got what you want (in columns G etc.
now try to macro and confirm wheter you got what you want (in columns G etc.
Sub test()
Dim ra As Range, r1 As Range, ca As Range, c1 As Range, unq As Range
Worksheets("sheet1").Activate
Set ra = Range(Range("a2"), Range("A2").End(xlDown))
Set r1 = Range(Range("B1"), Range("B1").End(xlToRight))
For Each ca In ra
For Each c1 In r1
Set unq = Cells(Rows.Count, "G").End(xlUp).Offset(1, 0)
'MsgBox c1
'MsgBox ca
unq = ca
unq.Offset(0, 1) = c1
unq.Offset(0, 2) = Application.Intersect(Columns(c1.Column), Rows(ca.Row))
Next c1
Next ca
End Sub
nycm
Posts
6
Registration date
Monday October 28, 2013
Status
Member
Last seen
October 31, 2013
Oct 31, 2013 at 05:43 PM
Oct 31, 2013 at 05:43 PM
Hi Venkat,
I got it to work once I modified for my spreadsheet. Your help is genuinely appreciated!
I got it to work once I modified for my spreadsheet. Your help is genuinely appreciated!
Oct 30, 2013 at 09:38 AM