Copy certain cells in a row from one sheet to another if the value is less than

[sunjam]

Hi guys,

Please help.. VBA Codes..

I need codes to Copy Cells from column A, B, E, F and G in "Rent sheet" and paste it in "summary sheet" starting in
cell "B18" if the value of column G in "Rent sheet" is less than in the "summary sheet" cell "C11"
c11 is a date format cell that if the value is less than, it means expired.

Rent Sheet

A	B	C	D	E	F	G
Unit	Tenant	Type	Rent	Area	Begin	End
1	Apple	Retail	500	120	04/01/2011	08/01/2013
2	Co A	Office	600	150	01/01/2012	07/01/2014
3	Co B	Office	700	160	01/01/2010	01/01/2013

Summary Sheet

unit

tenant

area

begin

end

Thank you very much...

[ihmha]

Try this

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Another:

Please Login or Register  to view this content.

[sunjam]

Hi John H. Davis,

Apologies for my improvised table but the real table goes like this below.

A	E	F	G	N	AC	AF
Unit	Tenant	Type	Rent	Area	Begin	End
1	Apple	Retail	500	120	04/01/2011	08/01/2013
2	Co A	Office	600	150	01/01/2012	07/01/2014
3	Co B	Office	700	160	01/01/2010	01/01/2013

I only need the data from Column A, E, N, AC and AF.

Could you please give a revised VBA codes for this one.

Big Thanks!!!

[ihmha]

If you want to use a different row to copy or write the data just change the letter in inverted commas

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.

[sunjam]

Thanks John H. Davis!

I just change the Range A18 to the destination cellS

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

Thank you Very much!!!

[sunjam]

Hello John!

One last help!

It also captured the blank cells in Range AF.

How to disregard the blank cells?

Very Big Thanks!

[JOHN H. DAVIS]

Try:

Please Login or Register  to view this content.

[sunjam]

Thanks John!

This is Big Help!

Big Thanks!

[sunjam]

Hi Ihmha!

I used your codes and it is faster when it runs.

The only problem is, its also getting the blank cells. Could you please edit the below codes to skip blank cells.

Please Login or Register  to view this content.

Thank you very much!

[ihmha]

Sorry for the late response.

It needs to check that there is a value in the cell

Please Login or Register  to view this content.