Vba to conditionally copy and paste

[Legacy 450108]

i have column D
column D contains data and it has headers
what i want with column D is column D has data and i want that data should be pasted to column H
column D contains data in some cells the data has decimals what i want is it should paste the data before decimals and leave the data from decimals
example
suppose
D15 has 10.0512
what i want is it should copy the same but it should paste only 10 in H15


and after the process completed it should save the file
i need vba to do the same

 

[DanteAmor]

You can use the following formula:


<table border="1" cellspacing="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; "> <colgroup><col style="font-weight:bold; width:30px; " /><col style="width:76.04px;" /><col style="width:76.04px;" /><col style="width:26.61px;" /><col style="width:26.61px;" /><col style="width:26.61px;" /><col style="width:76.04px;" /><col style="width:76.04px;" /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td > </td><td >A</td><td >D</td><td >E</td><td >F</td><td >G</td><td >H</td><td >I</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td > </td><td style="text-align:right; ">10.0512</td><td > </td><td > </td><td > </td><td style="text-align:right; ">10</td><td > </td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >16</td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b></b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Cell</td><td >Formula</td></tr><tr><td >H15</td><td >=INT(D15)</td></tr></table></td></tr></table>

 

[Legacy 450108]

Thnx Sir for giving ur precious time and great support to this post Sir
Have a Great Day

 

[DanteAmor]

Im glad to help you. Thanks for your kind words.