Copy data from sheet 1 same cell to sheet 2 and on pushbutton move to next row i thru VBA programming

npilankar09

New Member
Joined
May 2, 2014
Messages
1
Dear All,

I want to copy the following data from
Also attached the file

sheet 1 - See below

Data in E2 & F3 changes automatically when C1, C2 & C3 is changed.
Unit size1404TC SHC
Outdoor Air temp.3711.98.7
Indoor Condition18.0CWB
26.5CDB

<COLGROUP><COL style="WIDTH: 39pt; mso-width-source: userset; mso-width-alt: 1901" width=52><COL style="WIDTH: 47pt; mso-width-source: userset; mso-width-alt: 2267" width=62><COL style="WIDTH: 27pt; mso-width-source: userset; mso-width-alt: 1316" span=8 width=36><TBODY>
</TBODY>
Unit size1404TC SHC
Outdoor Air temp.3711.98.7
Indoor Condition18.0CWB
26.5CDB
<v:shapetype id=_x0000_t201 path="m,l,21600r21600,l21600,xe" o:spt="201" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:path o:connecttype="rect" fillok="f" strokeok="f" o:extrusionok="f" shadowok="f"></v:path><o:lock shapetype="t" v:ext="edit"></o:lock></v:shapetype><v:shape style="Z-INDEX: 1; POSITION: absolute; MARGIN-TOP: 4.5pt; WIDTH: 83.25pt; HEIGHT: 39.75pt; MARGIN-LEFT: 0px" id=CommandButton3 o:insetmode="auto" strokecolor="windowText [64]" stroked="f" o:gfxdata="UEsDBBQABgAIAAAAIQA0Ev94FAEAAFACAAATAAAAW0NvbnRlbnRfVHlwZXNdLnhtbKSSy07DMBBF
90j8g+UtSpyyQAg16YLHEliUDxjsSWLhl2y3tH/PJE0kqEo33Vj2zNy5x2MvVztr2BZj0t7VfFFW
nKGTXmnX1fxj/VLcc5YyOAXGO6z5HhNfNddXy/U+YGKkdqnmfc7hQYgke7SQSh/QUab10UKmY+xE
APkFHYrbqroT0ruMLhd56MGb5RO2sDGZPe8ofCAJruPs8VA3WNVc20E/xMVJRUSTjiQQgtESMt1N
bJ064iomppKUY03qdUg3BP6Pw5D5y/TbYNK90TCjVsjeIeZXsEQupNHh00NUQkX4ptGmebMozzc9
Qe3bVktUXm4szbCcOs7Y5+0zvQ+Kcb3ceWwz+4rxPzQ/AAAA//8DAFBLAwQUAAYACAAAACEArTA/
8cEAAAAyAQAACwAAAF9yZWxzLy5yZWxzhI/NCsIwEITvgu8Q9m7TehCRpr2I4FX0AdZk2wbbJGTj
39ubi6AgeJtl2G9m6vYxjeJGka13CqqiBEFOe2Ndr+B03C3WIDihMzh6RwqexNA281l9oBFTfuLB
BhaZ4ljBkFLYSMl6oAm58IFcdjofJ0z5jL0MqC/Yk1yW5UrGTwY0X0yxNwri3lQgjs+Qk/+zfddZ
TVuvrxO59CNCmoj3vCwjMfaUFOjRhrPHaN4Wv0VV5OYgm1p+LW1eAAAA//8DAFBLAwQUAAYACAAA
ACEA0Vvp470BAAALBAAAHwAAAGNsaXBib2FyZC9kcmF3aW5ncy9kcmF3aW5nMS54bWysk11P2zAU
hu+R9h8s30PSlkIVkaKtDDQJQQXbDzicOIk1f8l2s/LvOU7SUvWCTdvufOzXj1+fj6vrrVasEz5I
a0o+Ocs5EwZtJU1T8h/fb08XnIUIpgJljSj5qwj8evnp5AqKxoNrJTIimFBAydsYXZFlAVuhIZxZ
Jwyd1dZriBT6Jqs8/CKyVtk0zy8yDdLw5TvqBiKwjZd/gVIWf4pqBaaDQEiFxeHO6FHhv5OhMN2d
d89u7ZNzfOjWnsmq5JQ5A5pSxLPxYJRRmB3dat4B29rrpLd1zbYln03OZ9M5sV6pGovZgoKBJ7aR
IQkm+fxyejnnDEkxz88XOwG2j79BYPv1YwjZHOzQ4sCik5gcmm4t8fjX092vV1ZrapMvmxitme1z
sL9CkHuqUWDGrlowjfgcnMBIH0paejBlcuD32dpffFHS3UqlkoW0Hmvp/6SUlFSJ4sbiRgsTh6bz
QkGkbg+tdIEzXwj9Iqh+/lvVW4EiRC8itunBmh5+IpuDxf0BOTy0FcZm+E+1JPqO5HyId8Jqlhbk
kaz0AwPdfRhN7SR9EgcnBKB008bRGPSScWzTrB3GyzcAAAD//wMAUEsDBBQABgAIAAAAIQBTUolh
0gAAAKsBAAAqAAAAY2xpcGJvYXJkL2RyYXdpbmdzL19yZWxzL2RyYXdpbmcxLnhtbC5yZWxzrJDB
SgQxDIbvgu9QcreZ2YOIbGcvIuxV1gcIbaZTnKalreK+vdW9OLDgxUsgCfny8e8Pn3FVH1xqSGJg
1AMoFptcEG/g9fR89wCqNhJHaxI2cOYKh+n2Zv/CK7V+VJeQq+oUqQaW1vIjYrULR6o6ZZa+mVOJ
1HpbPGayb+QZd8Nwj+U3A6YNUx2dgXJ0O1Cnc+6f/2aneQ6Wn5J9jyztygts3Ys7kIrnZkDry+RS
R91dAa9rjP+pEWKPYKMR2QXCn/mos/hvDdxEPH0BAAD//wMAUEsDBBQABgAIAAAAIQD9wVrvzgYA
AD0cAAAaAAAAY2xpcGJvYXJkL3RoZW1lL3RoZW1lMS54bWzsWU9vG0UUvyPxHUZ7b+P/jaM6VezY
DbRpo9gt6nG8Hu9OM7uzmhkn9Q21RyQkREFckLhxQEClVuJSPk2gCIrUr8Cbmd31TrwmSRuBKM0h
3n37m/f/vXmze/Xag4ihQyIk5XHHq16ueIjEPp/QOOh4d0aDS+sekgrHE8x4TDrenEjv2ub7713F
Gz6jyZhjMRmFJCIIGMVyA3e8UKlkY21N+kDG8jJPSAzPplxEWMGtCNYmAh+BgIit1SqV1lqEaext
AkelGfUZ/IuV1ASfiaFmQ1CMI5B+ezqlPjHYyUFVI+Rc9phAh5h1POA54Ucj8kB5iGGp4EHHq5g/
b23z6hreSBcxtWJtYd3A/KXr0gWTg5qRKYJxLrQ6aLSvbOf8DYCpZVy/3+/1qzk/A8C+D5ZaXYo8
G4P1ajfjWQDZy2XevUqz0nDxBf71JZ3b3W632U51sUwNyF42lvDrlVZjq+bgDcjim0v4Rner12s5
eAOy+NYSfnCl3Wq4eAMKGY0PltA6oINByj2HTDnbKYWvA3y9ksIXKMiGPLu0iCmP1apci/B9LgYA
0ECGFY2Rmidkin3IyR6OxoJiLQBvEFx4Ykm+XCJpWUj6giaq432Y4NgrQF49//7V86fo1fMnxw+f
HT/86fjRo+OHP1pezsIdHAfFhS+//ezPrz9Gfzz95uXjL8rxsoj/9YdPfvn583IgVNDCwhdfPvnt
2ZMXX336+3ePS+BbAo+L8BGNiES3yBHa5xHYZhzjak7G4nwrRiGmzgocAu8S1n0VOsBbc8zKcF3i
Ou+ugOZRBrw+u+/oOgzFTNESyTfCyAHucs66XJQ64IaWVfDwaBYH5cLFrIjbx/iwTHYPx05o+7ME
umaWlI7veyFx1NxjOFY4IDFRSD/jB4SUWHePUsevu9QXXPKpQvco6mJa6pIRHTuJtFi0QyOIy7zM
Zgi145vdu6jLWZnV2+TQRUJBYFai/Igwx43X8UzhqIzlCEes6PCbWIVlSg7nwi/i+lJBpAPCOOpP
iJRla24LsLcQ9BsY+lVp2HfZPHKRQtGDMp43MedF5DY/6IU4SsqwQxqHRewH8gBSFKM9rsrgu9yt
EH0PccDxynDfpcQJ9+mN4A4NHJUWCaKfzERJLK8T7uTvcM6mmJguAy3d6dQRjf+ubTMKfdtKeNe2
O94WbGJlxbNzolmvwv0HW/Q2nsV7BKpieYt616HfdWjvre/Qq2r54vvyohVDl9YDiZ21zeQdrRy8
p5SxoZozclOa2VvCBjQZAFGvMwdMkh/EkhAudSWDAAcXCGzWIMHVR1SFwxAnMLdXPc0kkCnrQKKE
SzgvGnIpb42H2V/Z02ZTn0Ns55BY7fKJJdc1OTtu5GyMVoE502aC6prBWYXVr6RMwbbXEVbVSp1Z
WtWoZpqiIy03WbvYnMvB5blpQMy9CZMNgnkIvNyCI74WDecdzMhE+93GKAuLicJFhkiGeELSGGm7
l2NUNUHKcmXJEG2HTQZ9djzFawVpbc32DaSdJUhFcY0V4rLovUmUsgxeRAm4nSxHFheLk8XoqOO1
m7Wmh3ycdLwpHJXhMkog6lIPk5gF8JLJV8Km/anFbKp8Ec12ZphbBFV4+2H9vmSw0wcSIdU2lqFN
DfMoTQEWa0lW/1oT3HpRBpR0o7NpUV+HZPjXtAA/uqEl0ynxVTHYBYr2nb1NWymfKSKG4eQIjdlM
7GMIv05VsGdCJbzxMB1B38DrOe1t88htzmnRFV+KGZylY5aEOG23ukSzSrZw05ByHcxdQT2wrVR3
Y9z5TTElf0GmFNP4f2aK3k/gFUR9oiPgw7tegZGulI7HhQo5dKEkpP5AwOBgegdkC7zihceQVPBi
2vwKcqh/bc1ZHqas4SSp9mmABIX9SIWCkD1oSyb7TmFWTfcuy5KljExGFdSViVV7TA4JG+ke2NJ7
u4dCSHXTTdI2YHAn88+9TytoHOghp1hvTifL915bA//05GOLGYxy+7AZaDL/5yrm48FiV7XrzfJs
7y0aoh8sxqxGVhUgrLAVtNOyf00VzrnV2o61ZHGtmSkHUVy2GIj5QJTAiySk/8H+R4XP7EcMvaGO
+D70VgTfLzQzSBvI6kt28EC6QVriGAYnS7TJpFlZ16ajk/Zatllf8KSbyz3hbK3ZWeJ9Tmfnw5kr
zqnFi3R26mHH15a20tUQ2ZMlCqRpdpAxgSn7mLWLEzQOqh0PPihBoB/AFXyS8oBW07SapsEVfGeC
Ycl+HOp46UVGgeeWkmPqGaWeYRoZpZFRmhkFhrP0M0xGaUGn0l9O4Mud/vFQ9pEEJrj0o0rWVJ0v
fpt/AQAA//8DAFBLAwQKAAAAAAAAACEAbilj9LoFAAC6BQAAGgAAAGNsaXBib2FyZC9tZWRpYS9p
bWFnZTEucG5niVBORw0KGgoAAAANSUhEUgAAAK4AAABTCAYAAAAGADwpAAAAAXNSR0IArs4c6QAA
AARnQU1BAACxjwv8YQUAAAAJcEhZcwAAFxEAABcRAcom8z8AAAVPSURBVHhe7ZxRcqMwDIZzqpyH
15wk1+h77sIleoHcgA0NNraRje2YrkW/zjA7LdQR0q9PsmB7mfjCA0o8cLvdpvm4zF9KbMZMPPAj
2o1wv7+/Jw580KsGvr6+4sJ9Pp8TBz7oUQMIl+RUCSeEi3ARbo8lBZvO2epAXIgLcaHbOenWY1wh
LsSFuD1mJjadswpAXIgLcaHbOenWY1whLsSFuD1mJjadswpAXIgLcaHbOenWY1whLsSFuD1mJjad
swpAXIgLcaHbOenWY1whLsSFuD1mJjadswpAXIgLcaHbOenWY1whLsSFuD1mJjadswpAXIgLcaHb
OenWY1whLsSFuD1mJjadswpAXIj7h4k73qfr6y+Uzn+l1B7X+zQiijpRGH8OD/v74/3q+zfw9/U+
1n2WEKNxjK+VOte+usXt+JC443S/BoL1HHqd7uM5S1X7IDl+qhDuDzAcoVfZJ3yuXSd17hBAPabh
dU+x+/hIuI/BiHaYHoHxqXNVTj3EOZ0mVUK4w0Oy+R3kWbzy+cz77Ei4psK0F+5jeJeuREtgxNuy
jP0J0RcL9yXMJR4f+bob4ZpKPrQnrhFlMsMXR0jXrEReqL0pc6vxM8296+21QatyyBourVayrf18
2A4tNs0JHfT+sqiCNed7aCZc34dr0i+f6ULHgMhp9WzcUueWSpgdz2y/pKtEZasQc0hOSZKCL7Uc
62cMtiVZ++nhIffXvjharLHckxA8dzO6Jme67/fskza1L+Fch+G92RU2Z+lWIZJEl7CVaync0njK
e6LSSlEpXOHGM3tQm5lei+EEW6Sp43hXQBIxYuu6wStaYxausW+72bT3I9nt2GKnAs7Ptr+7lvxw
s7U3VZD72wLizvGraBWq4rnjl5x28JeFa7Jzu5l7PsNzq5h9ysREJK3dYo2dKmKSYCPcUORBshuR
CHsEK9KCcZg8VThauDXx3PFLJgB/V7g7I5V39pobiwk0Fgzp5y3WiAg3bB02wt0pz6nNVEWPK2+E
DxZuVTwz2pYM8VYKt7LHbXKjNcINnVWyhhFuqpdz+9FMsTQW7trOuPeaaYsRSmmr0CSedW1npXDX
XX56bhiUkiY3WiK6kmvdXjYm9GVjIfXW/5m4c1/4pi7CTT9CTPRoprnelq+anugTWjYSbiLhtv1o
LuXipEn1uHFQpFqlwIex2JUSd7MvkUaH5rNz/TKvsfqm/QMIb7aa2G0Ho5jyXWhHwo3dize6yg+Q
OFVwR2TZ4zBnzh3MsrfwcCY44cYwBaPIuc/jKSewWfcQ4a59Vex9BeldhdK5XwfCteOwxHsZVgT5
wl0nKf66qTmu9yJT+GKT3dg65JPmz8P9/Y7JZqLhx8afrcbOfRrPWOU58F0Fmw2Sc3beDst+0rIZ
npeU/5JrUz2uey58Ay42xsvdPQcPLHaenEWFm/C3NwP+uW75zNQoTnhpx1snQnZr385TzORTPDtV
OOztsJwnZVyTM1DnmjKdVE8VcHSZo/FXW38h3IxhN6JrK7oW/kS4CLfZ/5xoIcjcNRAuwkW4udnC
df2VXm0xgbgQF+Jqy1rs1Ut+iAtxIS4E00swbbGDuBAX4mrLWuzVWyEgLsSFuBBML8G0xQ7iQlyI
qy1rsVdvhYC4EBfiQjC9BNMWO4gLcSGutqzFXr0VAuJCXIgLwfQSTFvsIC7EhbjashZ79VYIiAtx
IS4E00swbbGDuBAX4mrLWuzVWyEgLsSFuBBML8G0xQ7iQlyIqy1rsVdvhYgSdz7BgQ961sDtdpvm
4/XHpC8X8w3/vp3C0b8PEC5CVZmoP8LlCw9o9MA//cldz914IlgAAAAASUVORK5CYIJQSwECLQAU
AAYACAAAACEANBL/eBQBAABQAgAAEwAAAAAAAAAAAAAAAAAAAAAAW0NvbnRlbnRfVHlwZXNdLnht
bFBLAQItABQABgAIAAAAIQCtMD/xwQAAADIBAAALAAAAAAAAAAAAAAAAAEUBAABfcmVscy8ucmVs
c1BLAQItABQABgAIAAAAIQDRW+njvQEAAAsEAAAfAAAAAAAAAAAAAAAAAC8CAABjbGlwYm9hcmQv
ZHJhd2luZ3MvZHJhd2luZzEueG1sUEsBAi0AFAAGAAgAAAAhAFNSiWHSAAAAqwEAACoAAAAAAAAA
AAAAAAAAKQQAAGNsaXBib2FyZC9kcmF3aW5ncy9fcmVscy9kcmF3aW5nMS54bWwucmVsc1BLAQIt
ABQABgAIAAAAIQD9wVrvzgYAAD0cAAAaAAAAAAAAAAAAAAAAAEMFAABjbGlwYm9hcmQvdGhlbWUv
dGhlbWUxLnhtbFBLAQItAAoAAAAAAAAAIQBuKWP0ugUAALoFAAAaAAAAAAAAAAAAAAAAAEkMAABj
bGlwYm9hcmQvbWVkaWEvaW1hZ2UxLnBuZ1BLBQYAAAAABgAGAK8BAAA7EgAAAAA=
" type="#_x0000_t201" o:spid="_x0000_s1037"><v:imagedata o:title="" src="file:///C:\Users\NPILAN~1\AppData\Local\Temp\msohtmlclip1\01\clip_image001.emz"></v:imagedata><x:ClientData ObjectType="Pict"><x:SizeWithCells></x:SizeWithCells><x:AutoLine>Push button</x:AutoLine></x:ClientData></v:shape>
On pressing the Push button the data in Sheet1 E2 & F2 along with value in C1 to C4 should be transferred to sheet 2.


Sheet 2 format as shown below..On each push button data should add to next row. Until clear button is pressed.
S.NO.Unit sizeModel no.Ambient temp.WBDBTotal Cap.Sensible cap.Qty
11404RAV-SM1103DT-A +RAV-SP1104AT-A3718.0CWB 26.5CDB11.98.71

<COLGROUP><COL style="WIDTH: 32pt; mso-width-source: userset; mso-width-alt: 1536" width=42><COL style="WIDTH: 48pt" width=64><COL style="WIDTH: 174pt; mso-width-source: userset; mso-width-alt: 8484" width=232><COL style="WIDTH: 51pt; mso-width-source: userset; mso-width-alt: 2486" width=68><COL style="WIDTH: 31pt; mso-width-source: userset; mso-width-alt: 1499" width=41><COL style="WIDTH: 20pt; mso-width-source: userset; mso-width-alt: 987" width=27><COL style="WIDTH: 35pt; mso-width-source: userset; mso-width-alt: 1682" width=46><COL style="WIDTH: 43pt; mso-width-source: userset; mso-width-alt: 2084" width=57><COL style="WIDTH: 33pt; mso-width-source: userset; mso-width-alt: 1609" width=44><TBODY>
</TBODY>

<COLGROUP><COL style="WIDTH: 39pt; mso-width-source: userset; mso-width-alt: 1901" width=52><COL style="WIDTH: 47pt; mso-width-source: userset; mso-width-alt: 2267" width=62><COL style="WIDTH: 27pt; mso-width-source: userset; mso-width-alt: 1316" span=10 width=36><TBODY>
</TBODY>
 

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().

Forum statistics

Threads
1,216,122
Messages
6,128,958
Members
449,480
Latest member
yesitisasport

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top