Colorear solo celdas seleccionadas en mshflexgrid

[jaredprincipiante]

Buen dia, he estado investigando y haciendo pruebas para colorear solo celdas seleccionadas, no filas ni columnas completas solo las que se seleccionan con el mouse, utilizo el siguiente codigo y en teoria debe pintarlas pero solo pinta la primer celda, espero ustedes me puedan orientar en donde esta mi error, saludos y muchas gracias

Nota: el menu mnucolorear es submenu del popupmenu mnuRepintar

Private Sub mnucolorear_Click()
Dim i, j, k, l, m, n As Integer
i = MSHFlexGrid1.Row
j = MSHFlexGrid1.RowSel
k = MSHFlexGrid1.Col
l = MSHFlexGrid1.ColSel
'MsgBox MSHFlexGrid1.ColSel
For m = i To j
For n = k To l
MSHFlexGrid1.Row = j
MSHFlexGrid1.CellBackColor = RGB(255, 233, 233)
'MsgBox j
'MsgBox n
Next n
Next m
End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
' Depliega el menú PopUP
Me.PopupMenu mnuRepintar
End If
End Sub

[crisamr]

Hola, a mi me sucede lo mismo cuando quiero seleccionar una celda me muestra otra, y no lo puedo resolver, probé tu código y me sucede lo mismo me colorea la celda anterior a la que selecciono, el código no esta mal pero no logro definir por que no muestra o trabaja solo con la celda seleccionada.