Antonio Carvalho

Boa noite este é meu primeiro post estou com dificuldade de colocar uma lista suspensa o DataGridusando o Button do DataGrid Esta função de inicio ela formata em R$ a colula. Sub Soma_Grid() On Error GoTo Trata_Error4 dSoma = 0 For i = 0 To DataGrid1.VisibleRows - 1 DataGrid1.Row = i dSoma = dSoma + CDbl(DataGrid1.Columns(5)) DataGrid1.Columns(5).NumberFormat = "R$ ##,##0.00""" Me.DataGrid1.Columns(7).Button = True '===================== COLOCAR AQUI ============================ 'Uma instrução para definir "SIM" OU "NÃO" no button '=============================================================== Me.DataGrid1.Columns(7).Alignment = dbgCenter Next i TxtSomaGrid.Text = dSoma TxtSomaGrid.Text = Format(TxtSomaGrid.Text, "R$ ##,##0.00") TxtValorPromi = TxtSomaGrid.Text TxtValorPromi.Text = Format(TxtValorPromi.Text, "R$ ##,##0.00") Exit Sub Trata_Error4: MsgBox ("NÃO A LOCAÇÃO PARA ESTE CLIENTE"), vbInformation CboListaNomeDuplicPagador.SetFocus End Sub