Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Weird issue with cell spacing
Hi,
I am trying to write cell values to a WS from VBA. I am trying to add line feeds with Chr(10) to the cell if I will be adding more then 1 item to the same cell. I keep getting these random big spaces above the text (Click the picture below for a better understanding). I try to autofit the row, still won't shrink it down, and there is other then what is being displayed. Here is my code. 'If data exists then concatanate If LenB(findRange.Offset(0, ft + 1).Value) 0 Then findRange.Offset(0, ft + 1).Value = findRange.Offset(0, ft + 1).Value & Chr(10) & _ Format(cellRow.Columns(colPCCBFinal).Value, "m/dd/yyyy") & _ cellRow.Columns(colRevNum) Else findRange.Offset(0, ft + 1).Value = Format(cellRow.Columns(colPCCBFinal).Value, "m/dd/yyyy") & " " & cellRow.Columns(colRevNum) End If http://img137.imageshack.us/img137/4143/excel1aq.jpg Thanks, RishiD |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Weird issue with cell spacing
Regrettably Excel is a little weird this way. Good answer?<g Well, I can
reproduce the same effect manually. You just have to make the column width a little wider even if it looks like there is enough room currently. -- Jim "Rishi Dhupar" wrote in message oups.com... | Hi, | | I am trying to write cell values to a WS from VBA. I am trying to add | line feeds with Chr(10) to the cell if I will be adding more then 1 | item to the same cell. I keep getting these random big spaces above | the text (Click the picture below for a better understanding). I try | to autofit the row, still won't shrink it down, and there is other then | what is being displayed. Here is my code. | | 'If data exists then concatanate | If LenB(findRange.Offset(0, ft + 1).Value) 0 Then | findRange.Offset(0, ft + 1).Value = findRange.Offset(0, ft + | 1).Value & Chr(10) & _ Format(cellRow.Columns(colPCCBFinal).Value, | "m/dd/yyyy") & _ cellRow.Columns(colRevNum) | Else | findRange.Offset(0, ft + 1).Value = | Format(cellRow.Columns(colPCCBFinal).Value, "m/dd/yyyy") & " " & | cellRow.Columns(colRevNum) | End If | | http://img137.imageshack.us/img137/4143/excel1aq.jpg | | | Thanks, | RishiD | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Please please help!! Weird coding issue | Excel Discussion (Misc queries) | |||
Weird issue with very simple line chart - urgent | Excel Discussion (Misc queries) | |||
Weird Printing Issue | Excel Discussion (Misc queries) | |||
This is Weird - Dead Simple Issue with Sum Function | Excel Worksheet Functions | |||
weird date issue | Excel Programming |