somar coluna listbox euma textbox [RESOLVIDO]

[sossego385011]

Boa noite

no codigo não tem Application.visible

Private Sub CmdVendas_Click()
'Se a lista do ListBox tiver ao menos 1 item
If ListBox1.ListCount >= 1 Then
'Para cada item do ListBox, á contar do primeiro até o último
For itemlista = 0 To ListBox1.ListCount - 1
'Ativamos a planilha de Vendas
With ThisWorkbook.Sheets("Vendas")
.Activate
'Selecionamos a linha 4 na coluna A
Cells(4, "A").Select
'Selecionamos a ultima linha da planilha
Selection.End(xlDown).Select
'Selecionamos a ultima linha preenchida
Selection.End(xlUp).Select
'Definimos qual a próxima linha disponivel
For ultimalinha = ActiveCell.Row To 500000
'Se a linha atual na coluna tiver seu valor igual a nulo
If Cells(ultimalinha, "A") = "" Then
'Selecionamos esta celula e definimos como linha a ser preenchida
Cells(ultimalinha, "A").Select
'Saimos da contagem
Exit For
End If
Next

'Preenchemos os campos na planilha de vendas
Cells(ActiveCell.Row, "A") = TxtData
Cells(ActiveCell.Row, "B") = ListBox1.List(itemlista, 1)
Cells(ActiveCell.Row, "C") = ListBox1.List(itemlista, 2)
Cells(ActiveCell.Row, "D") = ListBox1.List(itemlista, 3)
Cells(ActiveCell.Row, "E") = ListBox1.List(itemlista, 4)
End With
Next

'Insira a rotina para limpeza dos controles abaixo
ListBox1.Clear
'Mudamos o foco para outra planilha
ThisWorkbook.Sheets("Menu").Activate

End If
End Sub

onde que eu faço a alteração, e quando limpa a listbox a txt onde fica a soma não limpa

[srobles]

sossego385011,

Para esconder o Excel e deixar só o form visivel, faça :

No evento Initialize do Form e no evento WorkBook_Open, adicione a linha :

Código: Selecionar todos

Application.Visible = False

Para Limpar os Controles, faça :

Adicione o seguinte ao final da linha :
'Insira a rotina para limpeza dos controles abaixo
ListBox1.Clear

Código: Selecionar todos

   Dim ctl As Control
   For Each ctl In Me.Controls
        If TypeName ctl = "TextBox" Then
           ctl=""
        End If
   Next ctl
   UserForm_Initialize

Abs

[sossego385011]

Boa tarde

Esta dando erro na sintaxe

If TypeName ctl = "TextBox" Then

com esta parte do codigo

[srobles]

sossego385011,

Adicione parênteses em ctl. Ficando If Typename (ctl) = "TextBox" Then.

Abs

[sossego385011]

agora funcionou
obrigado