Can you look into it Ivan?
Closed
Abhy
-
May 24, 2010 at 05:13 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - May 25, 2010 at 05:59 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - May 25, 2010 at 05:59 PM
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
May 25, 2010 at 05:59 PM
May 25, 2010 at 05:59 PM
Well I guess Ivan was not here or not had a chance to answer
Sub AddData() Dim lMaxRowsSheet2 As Long Sheets("Sheet2").Select lMaxRowsSheet2 = Cells(Rows.Count, "A").End(xlUp).Row Range(Cells(2, "C"), Cells(lMaxRowsSheet2, "C")).FormulaR1C1 = "=MATCH(RC1, Sheet1!C1:C1,0)" Sheets.Add ActiveSheet.Name = "Output" Cells(1, "A") = Sheets("Sheet1").Cells(1, "A") Cells(1, "B") = Sheets("Sheet1").Cells(1, "B") Cells(1, "C") = Sheets("Sheet2").Cells(1, "B") ' Sheets("Sheet2").Select For lrow = 2 To lMaxRowsSheet2 If (IsError(Sheets("Sheet2").Cells(lrow, "C"))) Then 'nothing Else Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "A") = Sheets("Sheet1").Cells(Sheets("Sheet2").Cells(lrow, "C"), "A") Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "B") = Sheets("Sheet1").Cells(Sheets("Sheet2").Cells(lrow, "C"), "B") If (Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "C") = "") Then Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "C") = Sheets("Sheet2").Cells(lrow, "B") Else Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "C") = Sheets("Output").Cells(Sheets("Sheet2").Cells(lrow, "C"), "C") & ", " & Sheets("Sheet2").Cells(lrow, "B") End If End If Next Sheets("Sheet2").Select Range(Cells(1, "C"), Cells(lMaxRowsSheet2, "C")).Clear End Sub