Add Formula, fill the row and display the values

[Chefsohail]

HI Team,

Please help me with the below vba code. I am able to achieve the following - 1. Add formula to the cell and 2. Fill Formula down... What i achieved is that the formula is filled down as required. But i do not want the formula here. I want its corresponding value to appear. Please help

wsDS.Range("B2").Formula = "=LEFT(A2,8)": wsDS.Range("B2:B" & wsDS.UsedRange.Rows.Count).FillDown

 

[Fluff]

Just replace this

wsDS.Range("B2").Formula = "=LEFT(A2,8)": wsDS.Range("B2:B" & wsDS.UsedRange.Rows.Count).FillDown

with the code I provided.

 

[Chefsohail]

Ok @Fluff

I'll try that..

And for the rest ....

wsDS.Range("D2").Formula = "=RIGHT(C2,5)": wsDS.Range("D2:D" & wsDS.UsedRange.Rows.Count).FillDown
wsDS.Range("E2").Formula = "=VLOOKUP(D2,'UOM Comm'!D:R,2,0)": wsDS.Range("E2:E" & wsDS.UsedRange.Rows.Count).FillDown
wsDS.Range("F2").Formula = "=VLOOKUP(D2,'UOM Comm'!D:R,7,0)": wsDS.Range("F2:F" & wsDS.UsedRange.Rows.Count).FillDown
wsDS.Range("R2").Formula = "=IF(M2="""",""Failure"", IF(LEFT(J2,1)=CHAR(41),""Na"",""Auto Approve""))": wsDS.Range("R2:R" & wsDS.UsedRange.Rows.Count).FillDown

I'm not sure what all to change here...I understand the range...
But not sure about the formulae and if offset number will change.

 

[Chefsohail]

Hi @Fluff ,

The code that you gave worked. Thanx. If you can please help for others as well...Im trying my best to work it out...

 

[Chefsohail]

ill need your help with the others @Fluff....and The range D2:D i need the answer in text because there are values starting with 00XXX and they are looked up in the next codes.

I tried multiple combinations. The problem is that I dont understand that code....im still trying.

Sorry for being a pain.

 

[Chefsohail]

I give up now... cant figure it out.

 

[Chefsohail]

 

[Fluff]

Please start a new thread for these other formulae as it's now a different question.
Also please remember that not all members are in the same time as yourself & be patient.