AlanBC

ola... muito obrigado Basole! nao somente pela solucao de minha questao...mas sobretudo pelas dicas e orientacoes que nem estavam no contexto. grande Basole!!! valeu mesmo! forte abraço.

olá... todos bem por aqui???? tenho multipage com 2 listbox; a planilha origem possui varias colunas entao preferi dividir em 2 listbox, mas essa parte ta ok... ambos tem a coluna "cliente" que sera a referencia no tratamento da questao; quero marcar o item no evento click do listbox1 e simultaneamente marca-lo no listbox2... qd clico no "cliente x" do listbox1 simultaneamente seleciona e marca a linha do "cliente x" no listbox 2 e assim sempre q clicar em um cliente no listbox1. somente isso q preciso. alguem pode ajudar??? obrigado. abraços Marcar item listbox 1 e 2.rar

muito bom amigo.!!!! per fei to ! era exatamente isso que precisava. muito obrigado... forte abraço.

Olá pessoal... encontrei esse codigo aqui no forum " Public Sub Worksheet_Change(ByVal Target As Excel.Range) Static valorcel As Integer Application.EnableEvents = False If Target.Address = "$A$1" Then valorcel = Target.Value + valorcel If Target.Value = 0 Then valorcel = 0 Target.Value = valorcel End If Application.EnableEvents = True End Sub e é praticamente o que preciso. porém, tem que funcionar pra cada celula da coluna "A" , por exemple de "A1 a A30". sendo que cada celula tera sua somatoria indepedente. podem me ajudar... obrigado.

Resolvido. Por Marcio Rodrigues.

Resolvido! Simplesmente alterando a linha de codigo de gravacao para If TextBoxDtVenda.Text <> "" Then .Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy") Muito obrigado por ter ajudado.

Resolvido. Simplesmente alterando a linha de gravação do código.

olá... beleza pessoal?!?!?! posso contar com a preciosa ajuda de vcs???? tenho um form com botao excluir que preciso adaptar uma condicao comparando datas e somar qtd de dias para definir o criterio de exclusao: garantia de 90 dias dos produtos vendidos; preciso de excluir todos os produtos(registros) do listbox/planilha que ultrapassaram a data da venda + 90 dias, ou seja: textboxdtVenda (dt da venda) + 90 > label_dtAtual (hoje) = exclur lembrando que a textbox_dtVenda tmb recebe valor vazio("") ate que ocorra o fato da venda do produto; a label_dtAtual ta no inicialize... tentei fazer com until, while, mas nao consegui fazer rodar dejeito nenhum! segue codigo atual: Public geral As ListObject Public registros As ListRow Private Sub CommandButton_Excluir_Click() If EnableEvents = False Then Exit Sub Call desproteger Set registros = geral.ListRows(Me.ListBoxTabGeral.ListIndex + 1) If Me.TextBoxDtVenda = "" Then MsgBox "Disponível. Venda não concretizada!", vbCritical, "Atenção!!!" Me.ListBoxTabGeral.ListIndex = -1 Exit Sub End If Dim resp As Integer resp = MsgBox("Confirma a exclusão: " & UCase(TextBoxVeiculo.Value) & "_" & UCase(TextBoxAno.Value) & "_" & UCase(TextBoxPlaca.Value), vbYesNo, "Excluir!") If resp = vbYes Then registros.Delete End If If resp = vbNo Then Exit Sub End If Me.ListBoxTabGeral.ListIndex = -1 Call limparCampos Set geral = Plan1.ListObjects("TabGeral") Call proteger End Sub

Erick bom dia eu ja tentei tmb com DateValue(), essa funçao realmente nao inverte mas tmb nao permite salvar com a textbox vazia porque reconhece somente numeros.

amigos... boa noite. vim buscar ajuda de vcs. me ajuda a resolver uma situaçao conflitante to tendo no form ao gravar uma textbox_data vazia? esse campo data preciso que seja gravado como vazio num primeiro momento. entao, preciso de uma condiçao, acho que deve ser no botao salvar, que permita gravar o form com a textbox_data vazia. o CDate nao permite que a textbox esteja vazia e o format(textbox.... ,"dd/mm/yy") até aceita gravar com ela vazia, mas qd retorna ao form numa posterior edição regrava com data invertida, aí acaba dando erro na planilha. e tmb já tentei uma variavel mas tmb nao deu certo porque grava a data 30/12/99. parte cod sub botao salvar ... With dados ... .Range(1, 7) = VBA.CDbl(TextBoxCorrecaoCap.Value) .Range(1, 8) = VBA.CDbl(TextBoxTabFipe.Value) .Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy") .Range(1, 10) = VBA.CDbl(TextBoxVrVendido.Value) .Range(1, 11) = VBA.CDbl(TextBoxComissaoVenda.Value) End With ... parte cod sub carregar dados form ... .TextBoxTabFipe.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 7), "R$ #,##0.00") .TextBoxDtVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 8), "dd/mm/yy") .TextBoxVrVendido.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 9), "R$ #,##0.00") .TextBoxComissaoVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 10), "0.00") ... pode ajudar por favor? obrigado. abraços. Ler mais RESPONDER

Ola... boa noite. amigo, se não for pedir demais, por favor me ajude adequar esse codigo "deleteLines" somente tres ajustes: 1. preciso que execute modulo excluir com planilha protegida por senha; 2. não incluir a linha 5 no roll de exclusao, iniciar a partir da linha 6 inclusive; linha 5 de receber dados, não pode ser excluida; 3. o numero da "sequencia" no formulário deve corresponder ao respectivo numero da linha. somente isso e vai me atender perfeitamente... com tudo e da forma exata que preciso!!!! é o mesmo código que você me enviou anteriormente. segue anexo. Muito obrigado.. Abraços. controle v1.1.rar

Ola... muito obrigado por tudo ate agora, Márcio. Desculpe a demora no retorno. Atende sim amigo, é isso mesmo, muito bom, so preciso de mais alguns ajustes nas macros. Gostaria de incorporar a macro "insertLines" ao "form_dadosveic" , ou vice-versa.... rsrs: de modo que insere a linha e grava os dados nesta nova linha, sendo que: 1. esse novo registro deve ser inserido sempre na "linha 5" da tabela, pra ter os mais recentes em primeiro. tentei inverter e nao consegui; até consegui mas nao ficou fluido... 2. manter a formatação das celulas da linha subsequente, ou seja da "linha 6"; 3. nao executar "gravar" se os 3 primeiros campos do "form_dadosveic" não estiverem prenchidos simultaneamente, neste caso avisar por alerta "dados incompletos nos campos veiculos, ano e placa" ou algo assim. somente para os 3 primeiros de forma simultanea, porque tem informaçoes que incluimos posteriormente. 4. outra macro que vai me ajudar demais... de pesquisa com essas 3 opções (veiculo, ano, placa), buscando com as 3 informações e/ou somente pela placa. Tentei de varias formas mas nao consegui ajustar esses codigos. Sempre da erro nas formulas, tmb insere a linha fora de ordem, ou fora da tabela... tem que ser na linha 5. Agradeço muito pelo apoio de vcs todos... aguardo. Segue anexo da planilha. Muito obrigado. Abraços!!! controle v2.rar

Ola amigos... boa tarde. será que não vou ter minha ultima solicitação atendida??? pra complementar minha planilha... valeu. obrigado abraços.

ok. muito obrigao, por enquanto. corrigi o codigo de deletar as linhas, funcionou como queria! ainda preciso complementar minha planilha: 1. não excluir linhas que estejam preenchidas com aviso de alerta caso a linha tenha dados: "Tem certeza que deseja excluir essa linha de dados? SIM NÃO" (vai clicar na opção desejada). 2. aviso de alerta para "Limpar Planilha": "Tem certeza que deseja limpar toda a planilha? Isso apagará todos os dados! SIM NÃO" (vai clicar na opção desejada). 3. e tmb executar os códigos com a planilha protegida por senha, mas sem pedir senha na execução das macros. a planilha é a mesma com os mesmos códigos enviada anteriormente, somente com a correção de deletar. desde ja agradeço... muito obrigado. e aguardo

Muito obrigado pela atenção e desculpe pelo inconveniente, não me expressei claramente. Anexei a planilha com os códigos (acho que foi isso que me pediu). Att nas macros: "limpar planilha" e "excluir linhas". Aguardando... Obrigado. controle.rar