relationship table

[pankaj8219]

Hi All,
Again I came up with a new tricky copy past problem...and I hope my problem will be resolved here...
Need a VBA code for belwo issue...

Please Open attached sheet...
In attached sheet I have to copy three columns data from "Source" into "Destination" sheet but only as per given format (tabular form)(Same format I given in "Destination" sheet)

[watersev]

hi pankaj8219, basing on the sample file provided it could be done this way, press "Run" button or run code "test"

[pankaj8219]

Hi watersev....
its wonderful...how quickly all the myth solved...Thank You So much...

one small issue....after clicking on run button every time a new sheet is created, but its not require...

I want to make relationship table only on Destination sheet

[watersev]

please check attachment

[watersev]

the code is updated to collapse outline levels before processing data otherwise the code would not work

[pankaj8219]

Thanks but now I am getting subscript out of range error on the line " result(3, j) = arr(I, 3)"

One mistake: In source tab my columns are "C","D",and"E"

[watersev]

please check attachment

[pankaj8219]

Thanks but now I am getting subscript out of range error on the line " result(3, j) = arr(I, 3)"

One mistake: In source tab my columns are "C","D",and"E"

[pankaj8219]

Thanks a lot:
but now I am getting subscript out of range error on the line " result(3, j) = arr(I, 3)"

One mistake: I given the wrong format of Source tab...actually I want to make unique for first and second column...

Please see in attached new workbook "Book3(1).xls"

[watersev]

please check attachment, press "Run" button or run code "test"

[pankaj8219]

again getting error as Subscript Out of Range on ("arr(i + 1, 3)" in the line "If arr(i, 3) = "" And arr(i + 1, 3) <> "" Then", for the last item in column E

getting hard to debug it...

Please help

[watersev]

the code works on the sample file as required without errors

[pankaj8219]

yes...its fine on sample file...but when I placed it in original file...then getting error....data format is same for both....dont know why this error occuring...

[watersev]

because data format is not the same

[pankaj8219]

I checked with formatting all the columns (C,D,E) as general as well as text...but problem is still same....give some more debugging steps please

[pankaj8219]

Hi...
If I replace the arr value as fixed range then code is working
'arr = mainsh.Range("c11:e" & lrow)
arr = mainsh.Range("C11:E70")

for less then E70 its giving same error "Subscript Out of range", even if my last row is 58....

[watersev]

post original data file

[pankaj8219]

Hi
Here attached is the original data

[watersev]

please check attachment

[pankaj8219]

Thanks a lot for your effort and time...it working...

I hope in some days I will make myself familiar with these type of array coding...