View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
andreashermle andreashermle is offline
external usenet poster
 
Posts: 123
Default Insert a space in all blank cells of the first column

On 10 Dez., 17:12, p45cal wrote:
andreashermle;582988 Wrote:

Dear Experts:


For some specific reasons I would like to enter a space in all blank
cells of the first column of my spreadsheet called sheet 1.


How is this done by using VBA?


Help is much appreciated. Thank you very much in advance. Regards,
Andreas


Code:
--------------------
* * Sheets("Sheet1").Columns(1).SpecialCells(xlCellTyp eBlanks).FormulaR1C1 = " "

--------------------

it is intelligent enough only to do this for the used range of the
sheet.
If this doesn't suit your purposes then specify the range:

Code:
--------------------

* For Each cll In Sheets("Sheet1").Range("A1:A200").Cells
* If IsEmpty(cll) Then cll.Value = " "
* Next cll

--------------------

--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: 558
View this thread:http://www.thecodecage.com/forumz/sh...d.php?t=161338

Microsoft Office Help


Dear p45cal,

thank you very much for your professional help. It works fine.
Regards, Andreas