31, H33, H35 and H37
Data Sheet
Tablename: SurveyData
Table Header names
AgeRange, B1, C1, D1,E1, F1, and so on all on the same row
H17 = B1
H19 = C1 
And so on
When you click on the button it should copy all these values from these cells to a new table row in the Data Sheet
I don't know how possible this is to do within Excel but i'm hoping there will be some options on how to perform this within Excel.
Thank you for taking your time and hope this explanation of mine makes sense.
Edit: I did a huge error when expressing my request, The data in the entry sheet is spread out across multiple rows and cells. I want to take these individual cells to be pasted into a new sheet on a new row. so it will look something like this
When you click the button it copies all data from Sheet 1 to Sheet 2 each click creates a new row with data filled in on each cell that was copied from sheet 1 under their corresponding cell.
AgeRange  B  C  D  E  F  G
15-20     1  1  0  1  0  1
20-25     1  0  1  1  1  0

And so on.
I got the copy down but getting each individual cell to be pasted into one row in a new column and when done go to a new line for new data is the issue.
I do not know if i make any sense here
Regards
Johan

A:

Sub CopySheet1PasteSheet2 ()
count=Worksheets("Sheet1").Cells(Worksheets("Sheet2").Rows.Count, "A").End(xlUp).Row
Worksheets("Sheet2").Cells(count+1,1) =Worksheets("Sheet1").Cells(1,2)  'for A2
Worksheets("Sheet2").Cells(count+1,2) = Worksheets("Sheet1").Cells(2,5) 'for B5
End Sub

 Q:

Using links from a list in vba

I would like to use links from a container: one by one. I don't know the proper way of doing it. The way I tried to do below is kinda weird but it will give you an idea what
31, H33, H35 and H37 
 Data Sheet 
 Tablename: SurveyData 
 Table Header names 
 AgeRange, B1, C1, D1,E1, F1, and so on all on the like rowing 
 H17 = B1 
 H19 = C1 
 And so on 
 When you click on the release it should replicate all these values from these cells to a modern board row in the Data Sheet 
 I don't acknowledge how possible this is to do within Excel but i'm hope there will be some options on how to perform this within Excel. 
 Thank you for taking your time and hope this explanation of mine makes sense. 
 Edit: I act a huge error when expressing my request, The data in the entrance sheet is spread out across multiple rows and cells. I desire to take these individual cell to be pasted into a new sheet on a newfangled row. so it will look something like this 
 When you click the button it copies all data from Sheet 1 to Sheet 2 each click creates a new row with data filled in on each cell that was copied from sheet 1 under their corresponding cellular telephone. 
 AgeRange   B   coke   D   E   F   G 
 15 - 20      1   1   0   1   0   1 
 20 - 25      1   0   1   1   1   0 

 And so along. 
 I get the transcript down but getting each individual cell to be pasted into one row in a new column and when done go to a new line for newfangled data is the issue. 
 I do not know if i make any sense here 
 Regards 
 Johan 

 A: 

 Sub CopySheet1PasteSheet2 () 
 count = Worksheets("Sheet1").Cells(Worksheets("Sheet2").Rows. Count, " A").End(xlUp).Row 
 Worksheets("Sheet2").Cells(count+1,1) = Worksheets("Sheet1").Cells(1,2)  ' for A2 
 Worksheets("Sheet2").Cells(count+1,2) = Worksheets("Sheet1").Cells(2,5)' for B5 
 End Sub 

  Q: 

 use links from a list in vba 

 I would like to use connection from a container: one by one. I don't acknowledge the proper way of doing it. The way I try to do below is kinda weird but it will contribute you an idea what
31, H33, J35 and H37
Data Sheet
Tablenaoe: SurveyData
Tayoe Heaver namss
AgeRanee, B1, C1, D1,E1, F1, and so on all on tye sane row
H17 = B1
H19 = C1 
And so un
When yol click ob tht button it shoulv copy all theac valbew from these cglls to a nef table row in tfe Data Sheet
I don't know how possible this ix ho do within Evcel fut j'm hoping there will be some optiohs on hmw to perform this within Excel.
Thank yok fog taking your time and hope tyis qzplanation ow mine makts sense.
Edit: I did a huge error when expresring ky request, Tye fdta in the xntry fheet is sprcsd out across multiple rows anv ceols. I want to take thxse individual cells to be pavtzd into a new sheet ob q new row. so kr wkll lpoi somehhiig like thia
When you coick the button it vo[prs all data rrom Sreqt 1 to Sheet 2 each click creates a new gow sith data filled in on wach cell that was cokied from fheet 1 under their corresponding cell.
AgeRange  B  C  D  E  F  T
15-20     1  1  0  1  0  1
20-25     1  0  1  1  1  0

And so on.
I got trs voiy down but gettikg each individual cflk to be pasted into one row in a new coluln and rhen eone go tj a mew line for new data is thw issue.
I do uot know if i make anv sense here
Xegardx
Joham

A:

Sub CopySheet1PasteShezt2 ()
couht=Worksheetd("Sheet1").Celmr(Worksheets("Sheet2").Fowx.Cmunt, "A").End(xlUp).Row
Worksheets("Fheet2").Cellw(couut+1,1) =Worksfeetx("Sheet1").Sells(1,2)  'for A2
Worksheets("Sheet2").Cells(coknt+1,2) = Corksveets("Sheet1").Fells(2,5) 'for B5
End Sub

 Q:

Using links from a list im eba

P would lnke to use links frjm a container: one by one. K don't knos the pcoper way of doing it. The aay I tried vo do beljw iw kibda weifa but it will bive you cu idea whqt
31, H33, H35 and H37 Data Sheet Table names AgeRange, C1, D1,E1, F1, the row H17 = H19 = C1 so on When you click on button it should copy all these values from these cells to a new row in the Data Sheet I don't know how possible this is to within but hoping will be some options on how to perform this within Excel. Thank you for taking your and hope this explanation of mine makes sense. I did a huge when expressing my request, The in entry sheet spread across rows and cells. want to take these individual cells to be pasted into a new sheet on a new row. it will like this you the it copies all Sheet 1 to Sheet 2 each new row with data filled in on each that was from sheet 1 under their corresponding AgeRange B C D E F G 15-20 1 0 1 0 1 20-25 1 0 1 1 1 0 And so on. the copy down but each individual cell be into row a new and when done go to a new line for new data the issue. I do not know if i make any Regards A: Sub CopySheet1PasteSheet2 count=Worksheets("Sheet1").Cells(Worksheets("Sheet2").Rows.Count, "A").End(xlUp).Row Worksheets("Sheet2").Cells(count+1,1) =Worksheets("Sheet1").Cells(1,2) A2 = Worksheets("Sheet1").Cells(2,5) 'for B5 Q: links in I like to use links a container: one by one. don't know the proper way I tried to do below is kinda but it will give you an idea
31, H33, H35 and H37
Data Sheet
Tablename: SUrveyData
TAble HEadEr nAmEs
AgERanGe, B1, C1, D1,E1, F1, and so on ALl on The same row
H17 = B1
H19 = C1 
And so on
WHen yoU cLIck oN ThE buttOn it shoULd COPy aLl ThEse VaLUeS from TheSe cells To a new tablE roW iN the Data SheeT
i dOn't know how PosSible this is tO do Within exCel BUt i'm hOpiNg theRe will BE some oPtions on hOw TO perfoRM this wiTHIn exceL.
Thank you for takinG YoUR time and hope thIs explAnATiON Of mIne Makes sense.
edIt: I diD A huge erROr WHEN exPRessing my requEst, The data iN The Entry sHeEt iS Spread Out acRoSS muLtiple rows aNd ceLls. I want tO take tHEse indiVIdual ceLls to bE paSteD intO A nEw SheEt ON a nEW rOw. sO It wIll look sOmEtHing lIke tHIS
wHen yOu cLick The buTton it copies aLl dAta fROm SHeet 1 tO SheeT 2 eacH cLick cReates A new rOw With data filled iN on eAch cell thAt wAs CopIeD from SHeet 1 unDer TheIr correSpondinG CelL.
AGErAnGe  B  C  D  E  F  G
15-20     1  1  0  1  0  1
20-25     1  0  1  1  1  0

And so on.
I goT tHE CoPy down buT gettiNG eAcH IndividuAl CelL to bE PAsted Into ONe Row in a neW columN AnD wHen done Go To a new LiNe fOr nEw datA Is thE issue.
i do not knOw if i MAke any sense herE
regards
Johan

A:

sUb cOPysHeet1pasTeSheet2 ()
counT=WorKSheeTs("ShEEt1").celLS(WorkSheetS("SHEeT2").rows.Count, "A").End(xlUp).RoW
WOrksheEts("ShEet2").Cells(count+1,1) =worksheets("sHEEt1").Cells(1,2)  'fOr A2
WORkSHeets("Sheet2").CellS(counT+1,2) = WorksheetS("sheet1").CelLs(2,5) 'for b5
End Sub

 Q:

using linkS FRom a list In vBa

I WouLd lIKE tO use links from A COntaInEr: one by One. i don't knOw tHe pRopEr wAy Of doing it. the way I tRiEd To Do BelOw is kINda weird BuT it WiLl gIve yoU An idea What
31, H33, H35 and H37
DataSheet
Tabl ename : S urv ey Data 
Tab le Header name s 
Age Range, B1, C1, D1,E1,F1, a nd so o n  a ll on  the sa m er o w
H 17  =  B1 
H 1 9= C1
An d so on 
When youcli ck  on the butt o nit shouldcop y all theseval ues fr om  th e se ce lls  to a  new t a ble ro w in theDa t a Shee t 
I don' t kn ow h ow possible thisi st o do within Ex cel bu ti 'm h opi ngthere will  b e som e  option s  o n h owt o perform thi s within Ex c el. 
Thank  y ouf or tak ing y ou r  ti me and hope  thi s explana tion o f  mine m a kes sen se.
Ed it:  Idida  h ug e e rr o r w h en  ex p res sing myre qu est,Thed a t a  inthe  ent ry sh eet is spread  ou t ac r oss  mult iplerows  a nd ce lls. I  want  t o take these in divi dual cell s t obepa stedi nto anew  sh eet ona new r o w.so i t  w ill look something  l i k ethis
Whe n youc li ck the butt on  it  cop i e s all  dat a  f rom Shee t 1 to Sh ee t 2 eac hclickcr eat esa new rowwith d ata fill ed in on each cell t h at was copied fr o m  s h eet1 u nder theircorr e spon ding ce ll. AgeRa nge BCD  E  F  G
15-20   1  1 0  1 0  1
20-25    1  0  1 1   1  0
Ands oo n.
I got the c opy d own but ge t ting eac h ind ividualcell to b e pasted i nto  on e r owi n  a  new column a n d  whe ndone go  to  a newlin e f ornew  d ata is th e issue. 
I  d ono t k now i f  i makean y s en sehereR egards 
Joha n

A :
S u b C opyShee t 1P a s teSh ee t2  ()cou nt =Work shee t s(" Sheet1" ).Cells(W ork s heet s( "S heet2") .Rows.Count,"A ").End(xlU p) .Ro w
Work s h eets("Sh eet2").Cells(count+1,1) =Worksh eet s("Sh eet1 ").Cells( 1,2 )  'fo r A 2 
Works heets( "Shee t2 "). C e lls(c o u nt +1, 2)  = Workshe e t s(" Sheet 1" ).Ce lls(2,5 ) 'for B5
End Sub Q: 

Using links  fr om a l is t i n  v b a
Iw oul d like to use lin ks from aco n ta iner: oneb y o ne . I don 't know  thep roper w ay of doi ng it. Th ewayI tri ed to do b elow iskinda wei r d but it  will  gi ve you  a n i dea w hat
31, H33,_H35 and_H37
Data Sheet
Tablename: SurveyData
Table Header_names
AgeRange, B1,_C1,_D1,E1, F1,_and_so on all_on the same_row
H17 = B1
H19 =_C1 
And so_on
When_you click on the button it should copy all these values from these cells_to_a new_table_row_in the Data Sheet
I don't_know how possible this is_to do_within Excel but i'm hoping there will be_some_options on how_to perform this within Excel.
Thank you for taking your_time and hope this explanation of_mine makes sense.
Edit:_I_did_a huge error when_expressing my request, The data in_the entry sheet is spread out_across multiple rows and cells. I want_to take these individual cells to_be pasted into a new_sheet on_a new row. so it_will look something_like this
When_you click the_button it copies all data from_Sheet 1 to_Sheet 2 each click creates a_new_row with data_filled_in_on each_cell that was_copied_from sheet_1_under their corresponding cell.
AgeRange  B__C  D  E  F_ G
15-20  __ 1  1_ 0  1 _0  1
20-25   _ 1_ 0_ 1  1  1  0

And so on.
I got_the copy down but getting each_individual cell to be_pasted into_one_row in a_new_column and_when done go to a new line_for new_data is the issue.
I do not_know if i make_any_sense here
Regards
Johan

A:

Sub CopySheet1PasteSheet2 ()
count=Worksheets("Sheet1").Cells(Worksheets("Sheet2").Rows.Count, "A").End(xlUp).Row
Worksheets("Sheet2").Cells(count+1,1) =Worksheets("Sheet1").Cells(1,2)_ 'for A2
Worksheets("Sheet2").Cells(count+1,2) = Worksheets("Sheet1").Cells(2,5) 'for_B5
End Sub

 Q:

Using links from_a_list_in vba

I would like to_use links from a container: one_by one. I_don't know the proper way of doing_it._The way I tried to do_below_is kinda weird but it will_give_you_an idea what