Pulling Multiple Vales From Multiple Cells & Displaying them in one cell.
 

I have 100 cells that display either a number, or nothing in them. If there is a number =1, I would like it to display on one page, my master page. The second page is where I copy & paste all of my information, and the display page, or pretty part is the first page. I have tried many thing I have seen, the + method, the &""& method. None of these work. Is it possible to display the content all in one cell?

Actually this code works :
='CCI Info'!DI105 & " " & 'CCI Info'!DI106 & " " & 'CCI Info'!DI107 & " " & 'CCI Info'!DI108

However, I do not want it to display unless its a number greater than 0. This allows the "false" statements to display.

Well, this solved it. Can anyone help me make this code shorter? Its waaay to long. But it works!!

=IF('CCI Info'!DI105=1&'CCI Info'!DI106=1&'CCI Info'!DI107=1&'CCI Info'!DI108=1&'CCI Info'!DI109=1&'CCI Info'!DI110=1&'CCI Info'!DI111=1&'CCI Info'!DI112=1&'CCI Info'!DI113=1&'CCI Info'!DI114=1&'CCI Info'!DI115=1&'CCI Info'!DI116=1&'CCI Info'!DI117=1&'CCI Info'!DI118=1&'CCI Info'!DI119=1&'CCI Info'!DI120=1&'CCI Info'!DI121=1&'CCI Info'!DI122=1&'CCI Info'!DI123=1&'CCI Info'!DI124=1&'CCI Info'!DI125=1&'CCI Info'!DI126=1&'CCI Info'!DI127=1&'CCI Info'!DI128=1&'CCI Info'!DI129=1&'CCI Info'!DI130=1&'CCI Info'!DI131=1&'CCI Info'!DI132=1&'CCI Info'!DI133=1&'CCI Info'!DI134=1&'CCI Info'!DI135=1&'CCI Info'!DI136=1&'CCI Info'!DI137=1&'CCI Info'!DI138=1&'CCI Info'!DI139=1&'CCI Info'!DI140=1&'CCI Info'!DI141=1&'CCI Info'!DI142=1&'CCI Info'!DI143=1&'CCI Info'!DI144=1&'CCI Info'!DI145=1&'CCI Info'!DI146=1&'CCI Info'!DI147=1&'CCI Info'!DI148=1&'CCI Info'!DI149=1&'CCI Info'!DI150=1&'CCI Info'!DI151=1&'CCI Info'!DI152=1&'CCI Info'!DI153=1&'CCI Info'!DI154=1&'CCI Info'!DI155=1&'CCI Info'!DI156=1&'CCI Info'!DI157=1&'CCI Info'!DI158=1&'CCI Info'!DI159=1&'CCI Info'!DI160=1&'CCI Info'!DI161=1&'CCI Info'!DI162=1&'CCI Info'!DI163=1&'CCI Info'!DI164=1&'CCI Info'!DI165=1&'CCI Info'!DI166=1&'CCI Info'!DI167=1&'CCI Info'!DI168=1&'CCI Info'!DI169=1&'CCI Info'!DI170=1&'CCI Info'!DI171=1&'CCI Info'!DI172=1&'CCI Info'!DI173=1&'CCI Info'!DI174=1&'CCI Info'!DI175=1&'CCI Info'!DI176=1&'CCI Info'!DI177=1&'CCI Info'!DI178=1&'CCI Info'!DI179=1&'CCI Info'!DI180=1&'CCI Info'!DI181=1&'CCI Info'!DI182=1&'CCI Info'!DI183=1&'CCI Info'!DI184=1&'CCI Info'!DI185=1&'CCI Info'!DI186=1&'CCI Info'!DI187=1&'CCI Info'!DI188=1&'CCI Info'!DI189=1&'CCI Info'!DI190=1&'CCI Info'!DI191=1&'CCI Info'!DI192=1&'CCI Info'!DI193=1&'CCI Info'!DI194=1&'CCI Info'!DI195=1&'CCI Info'!DI196=1&'CCI Info'!DI197=1&'CCI Info'!DI198=1&'CCI Info'!DI199=1&'CCI Info'!DI200=1&'CCI Info'!DI201=1&'CCI Info'!DI202=1&'CCI Info'!DI203=1&'CCI Info'!DI204=1, 'CCI Info'!$DI$105&" "&'CCI Info'!$DI$106&" "&'CCI Info'!$DI$107&" "&'CCI Info'!$DI$108&" "&'CCI Info'!$DI$109&" "&'CCI Info'!$DI$110&" "&'CCI Info'!$DI$111&" "&'CCI Info'!$DI$112&" "&'CCI Info'!$DI$113&" "&'CCI Info'!$DI$114&" "&'CCI Info'!$DI$115&" "&'CCI Info'!$DI$116&" "&'CCI Info'!$DI$117&" "&'CCI Info'!$DI$118&" "&'CCI Info'!$DI$119&" "&'CCI Info'!$DI$120&" "&'CCI Info'!$DI$121&" "&'CCI Info'!$DI$122&" "&'CCI Info'!$DI$123&" "&'CCI Info'!$DI$124&" "&'CCI Info'!$DI$125&" "&'CCI Info'!$DI$126&" "&'CCI Info'!$DI$127&" "&'CCI Info'!$DI$128&" "&'CCI Info'!$DI$129&" "&'CCI Info'!$DI$130&" "&'CCI Info'!$DI$131&" "&'CCI Info'!$DI$132&" "&'CCI Info'!$DI$133&" "&'CCI Info'!$DI$134&" "&'CCI Info'!$DI$135&" "&'CCI Info'!$DI$136&" "&'CCI Info'!$DI$137&" "&'CCI Info'!$DI$138&" "&'CCI Info'!$DI$139&" "&'CCI Info'!$DI$140&" "&'CCI Info'!$DI$141&" "&'CCI Info'!$DI$142&" "&'CCI Info'!$DI$143&" "&'CCI Info'!$DI$144&" "&'CCI Info'!$DI$145&" "&'CCI Info'!$DI$146&" "&'CCI Info'!$DI$147&" "&'CCI Info'!$DI$148&" "&'CCI Info'!$DI$149&" "&'CCI Info'!$DI$150&" "&'CCI Info'!$DI$151&" "&'CCI Info'!$DI$152&" "&'CCI Info'!$DI$153&" "&'CCI Info'!$DI$154&" "&'CCI Info'!$DI$155&" "&'CCI Info'!$DI$156&" "&'CCI Info'!$DI$157&" "&'CCI Info'!$DI$158&" "&'CCI Info'!$DI$159&" "&'CCI Info'!$DI$160&" "&'CCI Info'!$DI$161&" "&'CCI Info'!$DI$162&" "&'CCI Info'!$DI$163&" "&'CCI Info'!$DI$164&" "&'CCI Info'!$DI$165&" "&'CCI Info'!$DI$166&" "&'CCI Info'!$DI$167&" "&'CCI Info'!$DI$168&" "&'CCI Info'!$DI$169&" "&'CCI Info'!$DI$170&" "&'CCI Info'!$DI$171&" "&'CCI Info'!$DI$172&" "&'CCI Info'!$DI$173&" "&'CCI Info'!$DI$174&" "&'CCI Info'!$DI$175&" "&'CCI Info'!$DI$176&" "&'CCI Info'!$DI$177&" "&'CCI Info'!$DI$178&" "&'CCI Info'!$DI$179&" "&'CCI Info'!$DI$180&" "&'CCI Info'!$DI$181&" "&'CCI Info'!$DI$182&" "&'CCI Info'!$DI$183&" "&'CCI Info'!$DI$184&" "&'CCI Info'!$DI$185&" "&'CCI Info'!$DI$186&" "&'CCI Info'!$DI$187&" "&'CCI Info'!$DI$188&" "&'CCI Info'!$DI$189&" "&'CCI Info'!$DI$190&" "&'CCI Info'!$DI$191&" "&'CCI Info'!$DI$192&" "&'CCI Info'!$DI$193&" "&'CCI Info'!$DI$194&" "&'CCI Info'!$DI$195&" "&'CCI Info'!$DI$196&" "&'CCI Info'!$DI$197&" "&'CCI Info'!$DI$198&" "&'CCI Info'!$DI$199&" "&'CCI Info'!$DI$200&" "&'CCI Info'!$DI$201&" "&'CCI Info'!$DI$202&" "&'CCI Info'!$DI$203&" "&'CCI Info'!$DI$204,"")

The function that ends all functions......

Pulling Multiple Vales From Multiple Cells & Displaying them in one cell.
 

Sub Combine_Numbers()
Dim lastrow As Long
Dim cell As Range
Dim DataRng As Range
Dim strRow As String
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set DataRng = ActiveSheet.Range("A1:A" & lastrow)
For Each cell In DataRng
If IsNumeric(cell.Value) And cell.Value = 1 Then
strRow = strRow & cell.Value & ","
End If
Next cell
Sheets("Master").Range("B1").Value = strRow
End Sub


Gord

On Wed, 9 May 2012 14:30:27 +0000, JPP
wrote:


I have 100 cells that display either a number, or nothing in them. If
there is a number =1, I would like it to display on one page, my master
page. The second page is where I copy & paste all of my information, and
the display page, or pretty part is the first page. I have tried many
thing I have seen, the + method, the &""& method. None of these work. Is
it possible to display the content all in one cell?