Look Up To Columns, if Match The Same Values Paste to Relevant Cell Values to Another Cell

This is the Screenshot for Example output file.

Please Login or Register  to view this content.

Excellent sir,

Now your code did wonders

Thank you very much sir.

Dear sir,

kindly make small modification for filling of columns. observe the attached image.

One of the Friend from this site is developed as below code for filling. kindly combine below code and your code.


Sub filldata_ascending_incolumnA_()

'from top to below (ascending)

Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp).Offset(, 0)). _
SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

End Sub



Thanking you sir.

@pvsvprasad
Show us some examples of what you have tried yourself to make it work.

Originally Posted by jolivanes

@pvsvprasad
Show us some examples of what you have tried yourself to make it work.

Dear sir,
Thank you for responding, kindly find #1 and #9 threads attachments.

I want combine below codes.

1st code is

Sub filldata_ascending_incolumnA_()

'from top to below (ascending)

Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp).Offset(, 0)). _
SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

End Sub




2nd Code is




Sub Maybe()
Dim c As Range
For Each c In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("O3:O" & Cells(Rows.Count, 15).End(xlUp).Row).Find(c.Value, lookat:=xlWhole).Offset(, 2).Resize(, 2).Copy c.Offset(, 9)
Next c
End Sub



1 st code is regarding fill the empty cells. please find #9 thread

2nd Code is for Lookup the values and paste to another cell, please #1 thread and solution at #6 thread.


So kindly make the both codes to one code.

Thanking you.

@ pvsvprasad
This is a free help forum where people help others, that need help, for nothing. In other words, they give their precious time for no monetary return just to help.
However, most helpers want to see that people try to help themselves by attempting to make code work. Not just requesting code.
So again, what have you done yourself to help yourself?
Show it to us and we'll let you know what to change.

Have not heard anything for a while so try this maybe

Please Login or Register  to view this content.

Dear sir,

Sorry for late reply. yes your code is working well.

Thank you for providing