CLEAR all from msflexgrid

[sal21]

I need to clear all from second column (named 1) to the last colomun (named 31), to the and of row, in my case have 52 rows.

note;
The numer of row is dinamic, the coloumn numer are static.

[HansV]

Perhaps something like

Code: Select all

    Dim i As Long
    With Me,MSFlexGrid1
        For i = 0 To .Rows - 1
            .TextMatrix(i, 1) = ""
        Next i
    End With

I cannot test this myself.

[sal21]

Perhaps something like

Code: Select all

    Dim i As Long
    With Me,MSFlexGrid1
        For i = 0 To .Rows - 1
            .TextMatrix(i, 1) = ""
        Next i
    End With

I cannot test this myself.

See image attached...
your code clear only the column named "1", and clear also the title column...

I need to clear all column from the named "1" to "GG" to the and rows
Naturally during the clear statement reset the .CellBackColor to the default color (withe in my case)

[HansV]

Code: Select all

    Dim i As Long
    Dim j As Long
    With Me,MSFlexGrid1
        For i = 1 To .Rows - 1
            For j = 1 To .Columns - 1
                .TextMatrix(i, j) = ""
                .CellBackColor = vbWhite
            Next j
        Next i
    End With

[sal21]

Code: Select all

    Dim i As Long
    Dim j As Long
    With Me,MSFlexGrid1
        For i = 1 To .Rows - 1
            For j = 1 To .Columns - 1
                .TextMatrix(i, j) = ""
                .CellBackColor = vbWhite
            Next j
        Next i
    End With

work tks.

But i test the icon in cell...
I fill a cell with:
....
.Col = D
.Row = K
Set .CellPicture = Me.ImageList1.ListImages(1).Picturew
...

and based you code instead to clear a text, now i need to clear the icon from cell, how to?

[HansV]

Inside the loop:

Code: Select all

                Set .CellPicture = Nothing

[sal21]

Inside the loop:

Code: Select all

                Set .CellPicture = Nothing

great!