Prev: Hide subsequent rows based on pull down list choice - macro
Next: Please help with Custom Views
From: Jazz on 13 May 2010 15:11
Jacob your procedure is perfect. Thank you for your help. I am very
appreciative.

"Jacob Skaria" wrote:

> Try the below to concatenate the cells as displayed....
>
> Sub MyMacro()
> Dim lngRow As Long, lngCol As Long
> Dim lngLastRow As Long, sht As Worksheet
>
> Set sht = Sheets("Data")
> lngLastRow = sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row
>
> For lngRow = 1 To lngLastRow
> For lngCol = 1 To 13
> strData = strData & Cells(lngRow, lngCol).Text
> Next
> Range("N" & lngRow) = strData: strData = vbNullString
> Next
>
> End Sub
>
> --
> Jacob (MVP - Excel)
>
>
> "Jazz" wrote:
>
> > I am trying to concatenate A1:M1 into N1 using this macro
> >
> > Dim Variable1 As Long
> > Dim Variable2 As Range
> > Set sht = Sheets("Data")
> > Variable1 = sht.Cells(Cells.Rows.Count, "A").End(xlUp).Row
> > Set MyRange = sht.Range("A1:A" & Variable1)
> > For Each Variable2 In MyRange
> > Variable2.Offset(, 13) = Variable2 & Variable2.Offset(, 1) &
> > Variable2.Offset(, 2)
> > Next
> >
> > I am having two problems
> > 1. Only A1:B1 are concatenating into N1
> > 2. A1 and F1 have percentages inside them. When A1 concatenates (F1 will
> > have same problem) any numbers after the decimal point are showing up in the
> > concatenated cell. I only want the numbers before the decimal point to
> > display for A1 and F1.
> >
> > I don't know how to fix either problem. If you can you offer any
> > instruction thank you.
> >
First  |  Prev  | 
Pages: 1 2
Prev: Hide subsequent rows based on pull down list choice - macro
Next: Please help with Custom Views