Visual Basic :: How To Determine Is A Cell Is Empty?

How To Determine If A Cell Is Empty
I'm attempting to create a macro that will delete an entire row if the gift
amount is less than $99 and the comment field is blank.

'Delete row for all gifts under $100 and comment field is empty
giftcount = 1
Set xRng = Selection
Range("A2").Select
For giftcounter = 2 To FinalRow Step 1
If Cells(giftcount, 89).Value <= 99 Then
If Cells(giftcount, 96) = "" Then
xRng.Cells(giftcount).EntireRow.Delete
Else
giftcount = giftcount + 1
End If
Else
giftcount = giftcount + 1
End If
Next giftcounter

Thanks,
Dorie

********************************************
"Success is to be measured not so much by the position
that one has reached in life as by the obstacles which he
has overcome while trying to succeed.
-- Booker T. Washington

Cannot Distinguish An Empty Cell From A Cell Having A Value Of 0
guys i need some help on this one,
i am comparing two cells in excel, however
if the value of the first cell is 0 (zero) and
the other cell has no value the resulting
value is true...
meaning comparing 0 and an empty cell evaluates to true,
how is this possible, how can i make this expression
to evaluate to false???

hanks.

Determine If Database Is Empty
how to determine if the database is empty then if it is then do something
i tried this

Code:
If Acc.Fields.Count = 0 Then MsgBox "There are currently no active accounts." & vbNewLine & _
"Please create an account to continue...", vbInformation, "No accounts were created": Exit Sub

How To Determine If A .dat File Is Empty?
I created a user defined type with one field 30 characters long:

Type TestDataStructure
field1 as string * 30
End type

Then I assigned the length to a constant:

Public Const TestDataStructureLength = 30

Then I made this available to all forms:

Public mTestDataStructure as TestDataStructureLength

I am creating a .dat file to hold the value of field1.
Now I want to check the .dat file to see if it contains any characters, such as a, b, 12, 89, "| *, etc.
I know I have an empty .dat file, but when I check the len(field1), it comes back as 30.

I tried checking with:
if field1=""
if field1 = Null
and I can't get it to see that it contains no characters. It is like it contains 30 blank characters, so it skips my IF THEN Else checks.

Does anyone know how to check the .dat file to see if it is empty and contains no characters? How can I get VB to recognize that no characters are in the .dat file?

Thanks in advance,

Best Way To Determine If A Range Of Cells Is Empty
I would like to determine if the cells in the following range are empty:

Range("A6:A10,C6:C10")

Obviously I could use two loops (one nested on another) that sets a boolean = IsEmpty(cell) and kick out of the loop if the boolean becomes true, but I'm sure there is a better way. And if there is, you guys would know it.

Hau To Determine An Empty Data Report?[solved]
how may i know that my data report is empty or not.
example if i want to make a statement if my datareport is empty..
any help would do.

Last Empty Cell
What I want to do is to simply take the data from the last cell, copy it and then paste it 5 cells down. If I use the code below the computer hangs every time. What am I doing wrong?

Code:

Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row

Range(Cells).copy

Range(cells + 5).Paste

Next Empty Cell
Hey guys and gals...

should be simply but not working too well...

I have UserForm1 with 5 info boxes accross

that is the same 12 times down the form..

All I am trying to do is write info from the UserForm (on button click) to the next empty cell from a starting row...

Get A Next Empty Cell
I have a prog using which I can open an existing Excel file and then send the date from it to new created Excel file. But here I have a problem on passing to another cell.
I mean how can I go to the next empty Row after I entered the date?
Let's see an example:
The first time when I click on SendButton the date will be placed on new created file in A1,B1,C1,D1,....est. the next time I will send the date I need it to go to A2,B2,C2,D2,....est.

How can I learn the next empty Cell

Private Sub SendButton_Click()

Like what steps I need to go here to learn
the next empty row

ws.Cells(1, 1) = txtName.Text
ws.Cells(1, 2) = txtAmount.Text

End Sub

Any idea appreciated!

VBA Sub To Delete A Row If A Cell Is Empty
Hello Iam a newbie VBA user.
I have a spreadheet with several rows. Some of teh cells within the rows are blank. I am trying to write a subroutine that will look for a specif cell in a row (say B2) and if it is blank delete the entire row.

The code below will work if a ROW is empty but I am trying to refine it such that I select a range of Cells and if the cell is empty delete the entire row

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = "" _
Then Rows(r).Delete
Next r
End Sub

Any suggestions?

Excel Help - First Empty Cell
Hi,

I would like to select the first empty cell in a column and then add text to it from a textbox on the userform. What I use is

Code:
Sheet2.Range("B1").End(xlDown).Offset(1, 0).Value = TextBox1.Text
and that works fine,

but then when I try

Code:
Sheet2.Range("J2").End(xlDown).Offset(1, 0).Value = Sheet1.Cells(1, 4).Value
I get the error

'Run-time error '1004':
Application-defined or object-defined error'

what am I doing wrong?

Thanks,

Jim

Finding The Last Empty Cell
I'm struggling to find an empty cell. I'm using:

Code:
intRow = Cells.Find(What:=IsEmpty(),LookIn:=xlValues,SearchOrder:=xlByRows)
I need to know what to put in the IsEmpty bit.

Any ideas?

Fill Next Empty Cell
Hello Everyone,

I have read alot of posts on this topic but I couldnt find one that worked for me, hopefully someone can help me out.

I have a userform in MS Excel in which when a user presses the command button it will fill in data on my WorkSheet1. The data that will be entered is Company Name, Customer Name, Address, Address2, City-State-Zip.

If every field had data in it when the user hits the command button then it would look something like this below on the worksheet:

Cell ("C11") = Company Name
Cell ("C12") = Customer Name
Cell ("C13") = Address
Cell ("C14") = Address2
Cell ("C15") = City, State Zip

However sometimes the Address2 field (which mainly has P.O. Boxes) is empty cuz not every company has a P.O. Box.

When this is the case I would like all the data below this to shift up and fill in the void for that empty field. Same goes with any other field that does not contain any values when the user hits the command button.

Any help is greatly appreciated,
Kind Regards

To Select An Empty Cell
In order to select a value before a blank cell, I get this command from other topic:

myvariable = Range("C5").End(xlDown).Row

unfortunately if the cells contain a formula like this:

=IF($C55="";"";........)

the above command not recognize no empty cell until that do not end the formulas introduced

In few word I need to modificate the command, inserting a control if cell is empty, or something like this, and not if is blank.
Someone could write to me this simply (I hope) solution ?
Thanks to everybody.

Excel Cell Value Is Not Empty
Hello,

Sometimes I do not understand simple things but maybe somebody else. I'am testing a cell value but I do not understand why the if statement is true:

if (IsNumeric(trim(wshSubnet.Cells(i, wshSubnet.Range("DBB_CB_NAME"& i).Column))) and _
(cint(trim(wshSubnet.Cells(i, wshSubnet.Range("DBB_CB_NAME"& i).Column))) > iCountInstal )) Then

Now: the value of the Cell is 2; iCountInstal = 2
DBB_CB_NAME"& i is a cell name

What I do not understand how can this be True? Because in my opinion the the value of the cell is 2 and is not bigger than iCountInstal which is 2 as well. The same problem do I have when the value of iCountInstal = 1
I think I make somewhere a stupid mistake but I don't see where

Must I do a type conversion first?

Nico

Empty Cell Verify...
Need to verify that a cell contains no text or value before a VB routine over-wrights it.

I need a little help here, most of the folks that are acquainted with me say that I’m beyond help. All of the cells contain formatting, but none contain text or values on the test sheet, every time the error trap routine (If Not ("C" & RW) = "" Then GoSub FullRoutine) runs it tells me that the cell contains data but isblank() returns true. This is way beyond my comprehenson, haven’t scrached code in a lot of years, usually just record it and hope for the best. But need a little something more here.

Sheets("new").Select
Range("A31:J36,B33,B34,A36").Select
Range("A36").Activate
Selection.ClearContents
Range("A27").Activate
RW = Range("A27") + 1
Range("A36") = RW
Sheets("2005").Select
Range("B" & RW).Select
Range("B" & RW).Activate
If Not ("B" & RW) =””Then GoSub FullRoutine
Range("C" & RW).Select
Range("C" & RW).Activate
If Not ("C" & RW) = "" Then GoSub FullRoutine
Range("A27:I27").Select
Selection.Copy
Sheets("2005").Select
Range("A" & RW).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Stop
FullRoutine:
Sheets("new").Select
Range("A33").Select
ActiveCell.FormulaR1C1 = "STOP"
Range("B33").Select
ActiveCell.FormulaR1C1 = "Are You Sure Someone's not in this unit?"
Range("B35").Select
End
End Sub

Nex Empty Cell In Range
If I have the range A1:A65536, how do I search that range and activate the next empty cell below within the range ?

Paste To An Empty Cell
My question must have been answered before... but I just can't find the thread...

how can VB paste into an empty excel cell, without producing the "paste method out of range" error?

-jb

How To Avoid Empty Cell?
Hello, Everyone,
If there is some empty cell in 18 column, it won't return the last Row number. Is there a way to solve it?
Thank you very much!
Charlie

Code:
nLastRow = xlApp.Worksheets("sheet1").Cells(65536, 18).End(xlUp).Row

Detect Empty Cell
I'm writing a macro ( actually 2 macros, one for character, one for numeric ) that allows the user to override an exsiting value calulated elsewhere in the spreadsheet. As a first step, I want to detect when/whether the user has entered a value or not.

I thought that something like

mycheck = IsEmpty(Override)
If mycheck = -1 ( or NULL ) Then .....

would tell me that when the user DID NOT enter something ( or had deleted what he did enter ). However, even when the cell is empty ( and confirmed by ISBLANK in Excel ), I can't detect when the cell is empty.

hope this isn't a really stupid queston .

thanks in advance for your help

regards
woody

Empty Cell Test
Guys,
How would you test a column for a empty cell, then once you have found your empty cell, mark that as being empty then go back up one and select from top of the column to the variable defined bottom of that column. Any help would be appreciated. Thanks!

Empty Cell In Graph
Hello,
Facts:
Column A are X axe of a graph. Column B is the Y axe of the graph.
If the cell B3 equal zero or some texte, the graph will show a point at zero. But if B3 is empty, the graph will not show the point at all.
Question?
My cell B3 contain a formula, which return "" if false. Excel recognize "" as empty cell, but the graph show a point at zero! I would like either:
-to find a way that the graph do not show the point when the cell got "" as value.
-to find a way in the formula to return an empty cell (carriage return?)
I have already tried to play with the graph options with no luck. I am trying not using VBA.
Thanks in advance,
Chib

How To Emulate A Really EMPTY Cell?
Hi folks,

I can't find a solution for my problem. Excel treates empty cells very special and I want to have this behavior for cells containing following function:

Public Function NumOnly(r As Range) As Variant
' r referes to cells containing numbers of any kind -> return this number
' otherwise make the cell appear empty
' (event to Excel: e.g. Charts or AVERAGE)
Dim c As Range ' For Each c

Application.Volatile ' always recalculate

For Each c In r.Cells
Select Case VarType(c.Value)
Case vbInteger, vbLong, vbSingle, vbDouble ' numbers only
NumOnly = c.Value
Case Else ' otherwise empty
' NumOnly = CVErr(xlErrNA) ' #NV doesn't do what I want
' Set c.Value = Empty ' this in turn doesn't work
End Select
Next c
End Function

It is not enough to return "" because charts would just draw a value of 0 and AVERAGE would sum up this cell, too. The porblem is that the cell can't be empty as such, since it contains a formula (e.g. "=NumOnly($A$1)"). But how can I make Excel behave like it was empt? With the #NV-solution I could get by (sort of) but line charts wouldn't leave a gap where the empty cell should be and AVERAGE would return #NV, too.

Please help

AndyR

Giving A Cell An 'empty' Value
I want to include an IF statement in one of my cells and I want to have an 'empty' value, that is, the same as if i had just pressed delete to wipe the contents of that cell. How can I integrate this into my EXCEL formula?
Thanks,
Rob

Find First Empty Cell
I am using VB to open a worksheet and find a value within a cell. From there I need to read every cell until I get to the first blank cell. If I know the column and row to start from in question how can I find the first row in that column that is empty.

How To Determine Cell Format?
I need to write VB code to determine the format of a certain cell and display it with MSGBOX.

Anybody?

Some Help Needed {check If Cell Is Empty}
Hi.

I'm new here. I hope this is the right place to put this.

I am very new to visual basic, and the one I'm using atm is the one from Excel 97.

This is the code I need hlp with.

If Range("D7") Then

I have no idea how to say this but what I want is basically, if the cell D7 has any kind of text/numbers etc. then i want it to etc. The trouble is I don't know what to put inbetween Range D7 and Then to say if the cell has any text/numbers.

Can anyone help me please.

Selecting A Range {until Empty Cell}
Hi

I'm trying to write code that will select a range of cells (in column A) but will stop selecting once an empty cell is detected.

I'm not sure if this code should include a do-until loop?
I would greatly appreciate any help.
Thanks

Making A Do While Loop Until Empty Cell
How do i make a do..while.. loop until it reaches an empty cell in column x?

thanx

Empty Cell/clear Row If Doesn't Contain #
Hi everyone,

I'm looking for some help here. I have an excel worksheet and I'm trying to find out if this is possible.

I need to have Column C checked to see if the cell contains a "#", if not to empty the row.

Then I need to check again if Column C has empty cell, to delete that entire row.

I need to do the empty Colum C cell first because some rows with only Column A filled with text (no #) need to stay put.

Is this possible? Can someone with some macro knowdledge kindly lend a hand?

Thanks so much in advance!

Error If Reading Empty Cell.
When ever my program hits a cell that is empty in my database, it crashes and says "invalid use of Null."

Anyway for me to keep it going?

Or am I going to have to redesign my database to fill every cell?

Highlight Empty Cell In Excel
What is the VB code I should use to browse through a database in a spreadsheet, and then hilight any cells that are blank?

Thank you!

How To Determine If MSFlexGrid Cell Is Bolded?
what command can i use to determine if a cell in a flexgrid has been previously bolded?

the table is filled in by one procedure/button, and when it comes to printing the table, I need to bold the cells that have bolded text and since i am printing it one cell at a time, i need to know if its bolded or not.
thanks in advance

How To Determine If MSFlexGrid Cell Is Bolded?
How can i determine if a cell in a msflexgrid has been bolded or not? the cells are bolded in one area of the pgm, and need to be printed as bold if they are. Currently, since its printed one cell at a time, its not bolding them because i cannot tell (yet) if it hs been bolded by the other button/procedure

Need Help To Find The Last Non-empty Cell In A Column Dynamically
Hi!
I need to get the value in the last filled cell of a column. My cells in the column have values - either TRUE or FALSE or <blank>. I need to get the last cell value in the column (only the TRUE and FALSE, I don't need to take in the blanks).

Column NumberValue
C27FALSE
C28FALSE
C29TRUE
C30FALSE
C31FALSE
C32FALSE
C33FALSE
C34
C35

Does anybody have any suggestions?

There's one more thing. The values are in Column C (let's say). And whenever there is a change in the worksheet, the cells keep being filled downwards. Now, I need to get the last value of the column and put it in say J2. This cell J2 should keep getting updated with the latest value. I don't want to have the formula repeated downwards. The last
filled value in the cell (which keeps changing dynamically - the ranges change dynamically) should be updated in cell J2.

For example, first the cells C2 to C5 are filled with True or False. The rest of the cells are <blanks>. So, I want the value of C5 to be in J2.

Next, the cells filled will be C2 to c8. Then I need the value of cell C8 to be in J2.

Let me also tell you that Cells in column C are filled based on the formula - =IF(G23<>" ",AND(G23=1,F23=0),"")

Thank you!

Davy

Avoid Date Type Cell Empty?
Hello, Everyone:
My data cell is date type string. When it is empty, the default is 12Am. How can I avoid? It is possible for me to replace it visit most recent time in which cell is near it? Any good suggestion to program it in VBA? Is there any way to avoid this default value?
Thank you very much!
Charlie

Excel Programming: Empty Cell Problem
Hey guys.
I've got a bit of a problem on my spreadsheet (an A-level ICT project, where we have to basically make a functional program in excel).

Lets say I label a cell 'username'. This is a user input box, and I'll print that same information on a different sheet in the same workbook.
However, the problem is, that when the user doesn't enter anything, it displays 0. I don't want this to happen.
Therefore, would it be possible to display a dialog box if the user left the cell blank? Or is there any other solutino that you could offer?

Thanks for your help.
-aJ

How Do I Determine If Excel Cell Validation Exists
I have a macro that needs to scroll down a range of cells and carries out a certain action based upon the validation criteria for that cell. This is all well and good until a cell is reached that has no validation criteria.

At this point I get an error dialog displayed with '400' in it. Pressing the 'Help' button displays an empty help window (thanks Microsoft, that's really helpful).

The line I am using is

temp = Range(target).Offset(offst, 0).Validation.Formula1

If I change the .formula1 to .Type I get the same error.

How can I determine if a cell has validation criteria or not ?

I know I can use 'on error' but I'm looking for a more elegant solution.

Thanks

Howto Find Next Empty Cell In An Excel Worksheet?
Hi!

I'm making this program that writes to an excel file to keep a summary of information. I used the Excel object library as a reference and I can open the excel file.

My problem is how can I find the next empty cell in a column so I know where to append the next information?

Hope someone can help....

Thanks!!

Cell.Find Returns Error When EMPTY Is Detected
Hi there, I am trying to do a looping. On the user front, it is supposed to perform a find cell containing 'Box ID' and from there, delete fixed no. of rows from the top. However problem arises when find returns EMPTY coz there is no more cell containing 'Box ID'. How to I troubleshoot this error? Thanks for your help in advance!

Code:
indResultA = Cells.Find(What:="Box ID", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _False, SearchFormat:=False).Activate

Do While findResultA = True

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(-10, 0)).EntireRow.Select

Selection.Delete Shift:=xlUp

'Macro detects error if no more cell is found and error is found in VB.
findResultA = Cells.Find(What:="Box ID", After:=ActiveCell, LookIn:=xlValues, LookAt _:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _False, SearchFormat:=False).Activate

Loop

Edit by Moderator:
Please post Excel questions, in the Excel forum.

Please use the [vb][/vb] tags when you post your code. Edit or reply to this post to see how.

Thank you.

Determine Cell Location Of A Drawing Object On A Worksheet
I'd like to create a code that determines approximate or if possible the exact cell location of a drawing object on a worksheet. Any help or suggestion would be greatly appreciated. Thanks.

Determine Cell Address (RxCy Or Ay) Of Command Button?
Perhaps this is a stupid question, but I am trying to use a set of command buttons to sort my datasheet based on the column in which the command button is located.

At present, I have this code:

Private Sub CommandButton6_Click()

bankData As Range
Set bankData = Range("Market_Risk")
Selection.Sort Key1:=Range("g16"), Order1:=xlAscending
Range("g16").Select
End Sub

As shown, the code sorts the data in Ascending order by column G. On the worksheet, CommandButton6 is located in Column G. Unfortunately, I have about fifty columns of data (and fifty command buttons), so I would like to be able to create a single macro that dynamically determines the cell address of the command button that was just clicked.

I've tried this:

Private Sub CommandButton6_Click()
Dim firstSort As String, bankData As Range

firstSort = ActiveCell.Address
bankData As Range
Set bankData = Range("Market_Risk")
Selection.Sort Key1:=Range(firstSort), Order1:=xlAscending
Range(firstSort).Select
End Sub

Unfortunately, when the user clicks on the command button, the underlying cell ("G16") is not activated. How can I either 1) determine the cell address of the command button or 2) determine the cell address of the most-recent mouse event?

Any help would be greatly appreciated!

Replace DB Null So That HTML Page Creates An Empty Cell
I use this code to convert a DB table to an HTML page but the only way I can get it to create a cell where the returned value is NULL is to use the "_", but I just want an empty cell. If I use "" then the cell is not drawn on the HTML page. What can I substitute instead of the "_"?
Code:

Private Sub Form_Load()
Dim oConn
Dim rs
Dim fso
Dim outhtml
Set fso = CreateObject("Scripting.FileSystemObject")
Set outhtml = fso.CreateTextFile("c:userdumpChoice_Report.htm", True)

outhtml.WriteLine "<html>"
outhtml.WriteLine "<body>"
outhtml.WriteLine "<table border=1>"

Set oConn = CreateObject("ADODB.Connection")

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
            "Dbq=C:Documents and SettingsJulianMy DocumentsNHDSChoiceChoice.mdb;Uid=Admin;Pwd=choice2openZZZ;"

Set rs = oConn.Execute("SELECT * FROM tblClient")

  outhtml.WriteLine _
        "<tr><td>" & rs.Fields(1).Name & "</td><td>" & _
                        rs.Fields(2).Name & "</td><td>" & _
                        rs.Fields(3).Name & "</td><td>" & _
                        rs.Fields(4).Name & "</td><td>" & _
                        rs.Fields(5).Name & "</td><td>" & _
                        rs.Fields(6).Name & "</td><td>" & _
                        rs.Fields(7).Name & "</td><td>" & _
                        rs.Fields(8).Name & "</td><td>" & _
                        rs.Fields(9).Name & "</td></tr>"
Do While Not rs.EOF
  outhtml.WriteLine _
        "<tr><td>" & IIf(IsNull(rs.Fields(1).Value), "_", rs.Fields(1).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(2).Value), "_", rs.Fields(2).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(3).Value), "_", rs.Fields(3).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(4).Value), "_", rs.Fields(4).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(5).Value), "_", rs.Fields(5).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(6).Value), "_", rs.Fields(6).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(7).Value), "_", rs.Fields(7).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(8).Value), "_", rs.Fields(8).Value) & "</td><td>" & _
                        IIf(IsNull(rs.Fields(9).Value), "_", rs.Fields(9).Value) & "</td></tr>"
  rs.MoveNext
Loop

outhtml.WriteLine "</table>"
outhtml.WriteLine "</body>"
outhtml.WriteLine "</html>"
outhtml.Close

End Sub

|
+--JDMils
|
+--VB6
+--VB Dot Net
|
+-- Navman GPS Forums @ http://forum.jdmils.com
|

Edited by - JDMils on 5/11/2007 2:03:41 AM

VBA: Excel Macro: Copy Formula Down In Sheet2 Until Cell In Sheet1 Is Empty
I am trying to modify a soon to be recorded macro in Excel. I receive a file every month with X number of rows. I need to copy a formula that references a cell in Sheet1 down Sheet2 until there are no more rows to copy in Sheet1 (until the row to be copied is empty).

I found Do ... Loop Until, but I can only get it to work by testing a cell on the same sheet b/c the example I found uses ActiveCell.
Code:

Do
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, 1))

How can I test the cell on another sheet that's in the same row as ActiveCell?

I'm not asking for a handout, but they're always appreciated

Custom Function - Determine Which Cell Has Called The Function
Hi,

I have a custom function that i want to determine which cell the function was called for. This sounds simple but funny enough i cant find the information anywhere.

Can i do this? Just to make it clear if i put =CustomFunction() in B2 then i want to somehow get the index of the cell (ie. Cells(2,2) not B2).

Thanks in advance

Josh

How To Differentiate A "0" (zero) Cell Vs. Empty?
I am coding conditional statements based on whether a cell is empty or is zero, but they seem to be equivalent.

Can anyone tell me how to check for "0" which is different than empty?

Cell Format, Determining Type Of Cell Content (string/real/integer) And Cell Size
I am not sure whether I am at the right forum, but I am exporting Excel values in a Word document.

Unfortunately -my copy paste action doesn't take in account the cell_properties, so in some cases a value of 9,9999999999999999999999999999998E-4 is entered instead of the 9,9 E-4 or even 0,001 that is shown in the excel sheet.

I'm having trouble with finding the set format command (e.g. Tutbo Pascal: write(value:8:3) -or someting) and I also have strings in these cell -I am not sure if it gives any problems if one sets every zell to 2 decimals, if so -ho can I determin the type of cell content ...
And how to set the cell size to size of content

Could anyone help me, I 'm much obliged

Sorting A Table In VBA To Delete Empty Rows And Shift Empty Columns
Problem is:

1a. Have a table, it may vary with regards to RxC.
1b. The first column always contains a company name. The final column always contains a count (zero or a number > zero).
1c. Every other column either contains text or a zero.

2. I want to delete all the rows where the final column = zero
3. I then want to go through each column of each remaining row and where the cell is =0 delete the cell and 'shift cells left'

A table may help to show what i have:

CompanyNames Field1 Field2 etc.... FinalColumn
==================== ==== ==== ====
BusNameA, text1, 0, 0, text4 ... ... ... 2
BusNameB, 0,0,0,0 ... ... ... 0
... ... ...
BusNameE, 0, text2, 0, 0 ... ... ... 1

And I want the table to show

==========
BusNameA, text1, text4, 2
BusNameE, text2, 1

Gurus, kindly tell me how i may do this?

Steve