How can i upload values of Non-Empty Cells Reference of a Table in ComboBox

SamDsouza · #3 03-08-2021, 04:26 AM

Sir,

Quote:

Assuming this relates to userform code:

Yes Mostly i use Userform Objects

Thank you so much you made me remove the following

Code:

NonEmptyCellListStr = NonEmptyCellListStr & .RowIndex & ", " & .ColumnIndex & "^" 
NonEmptyCellsList =  Split((Replace(NonEmptyCellListStr, Chr(147), "")), "^")

OMG And How could I forget Combobox1.Additem

Nevertheless Inorder to have correct neat representation for Cell Reference uploaded in Combobox

Quote:

i changed
ComboBox1.AddItem .Cells(i).RowIndex & ", " & .Cells(i).ColumnIndex & "^"
to
ComboBox1.AddItem .Cells(i).RowIndex & ", " & .Cells(i).ColumnIndex

As I moved on to check Now for Empty Cell Reference with following code. Some unusual results

Code:

Private Sub EmptyCellRef()
Dim oTbl As Table
Dim i As Integer, sText As String, sList As String
    Set oTbl = ActiveDocument.Tables(1)
    With oTbl.Range
        For i = 1 To .Cells.Count
             sText = Trim(.Cells(i).Range.Text)
             If Split(sText, vbCr)(0) = "" Then                
                   ComboBox1.AddItem .Cells(i).RowIndex & ", " & .Cells(i).ColumnIndex 
            End If
        Next i
    End With
End Sub

I dont understand why the result is different. Have Attached .docx File

I get the List of Empty Cell Reference as

2, 2
2, 3
3, 1
3, 2
3, 3
4, 1
4, 2
4, 3

All though some of the above cell reference has some data. like cells 2, 2 and 2, 3

To have correct list of Empty Cell Reference as mentioned below
3, 1
3, 2
3, 3
4, 1
4, 2
4, 3

Do I have to consider the Paragraphs Aspect of Each cell. if yes then How ? to get the above mentioned Empty Cell Reference

SamD

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to SUM the values only if the particular cells are not empty?	Learner7	Excel	3	11-10-2020 02:47 AM
auto progress number evenly between two values across empty cells ?	DBenz	Excel	4	03-28-2018 04:46 AM
If a2 is not empty, color empty cells in b2:af2	turkanet	Excel	2	08-20-2017 11:00 PM
Microsoft Excel 12.0 Object Library reference upload	chamdan	Project	2	04-21-2014 06:30 AM
Apparently empty (blank) cells aren't empty	daymaker	Excel	3	03-08-2012 03:41 PM