Repeat cell value with said value and auto adjust data accordingly(need Amendment in code)

[adeel1]

Hi All

in attached, as previous code when i run code repeats row values as mention in column O & other data adjusted accordingly..!
just required little amend in code that i have added one new column(H) in sheet2 & want to adjust this data in column O in sheet1, all other sequences will remain same like previous..!

in third sheet(desired) is output
Adeel

[Arkadi]

Does this work? (Changed 2 lines... they are red)

Please Login or Register  to view this content.

[adeel1]

thanks Arkadi, this is working perfectly, i have added below online

ThisWorkbook.Worksheets("Sheet1").Cells.EntireColumn.AutoFit

after

For Each cel In .Range("G2:G" & tgtLR)
cel.Value = "'0" & CStr(cel.Value)

is this write place..??perhaps this is working
Adeel

[Arkadi]

I would put it just before

Please Login or Register  to view this content.

If it is inside the For loop, then you are repeating the autofit code a lot of times without needing to.

[adeel1]

Hi Arkadi
but that's not working i checked that why i added this line..?

[Arkadi]

As you can see below, I added that line (in red), it ran, and the column widths adjusted fine... what do you mean when you say "not working"

Please Login or Register  to view this content.

[adeel1]

May you missed this line at your first post you can check it
any how sir, now this is working great thanks for your response and time..!!
Adeel

[xladept]

Another way:

Please Login or Register  to view this content.

[Arkadi]

Adeel,

Thanks for the rep, and for marking the thread as solved

xladept did better than me... I just looked to solve your issue, but he evaluated the code and has come up with something that looks to me as a more elegant and efficient approach to the task...I recommend seeing if it works for you.

[adeel1]

Hi Arkadi
you can do better analysis as which code is better, i just run xladept solution but code need to refine for some data adjustment but i have a solution so i don't want to waste time of you, thanks Arkadi & xladept, keep helping like us
Adeel