Weird issue with cell spacing

  • Thread starter Thread starter Rishi Dhupar
  • Start date Start date
R

Rishi Dhupar

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
 
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
| 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
|
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel How to run multiple Private Sub Worksheet_Change(ByVal Target As Range) 0
Place a date in another cell only if adjacent cell = "X" 1
Event to add a date if "X" is entered in a cell 3
Automatically Copy Information when data is entered 2
Problem With Code...Still 6
Locking/unlocking cells based on column headers 5
part of a code not being executed 2
adding comment to cell if value changed 5

Back
Top