Página 1 de 1
Melhorando Macros
Enviado: 15 Mai 2015 às 13:59
por valdabr
caros amigos boa tarde ! no arquivo em anexo estou criando uma planilha para controlar a venda de um produto especifico, para cada cliente, não conheço nada de VBA, mais criei uma macro com ajuda de um video que vi no you tube para facilitar o lançamento dos indíces ue necessito, porém gostaria de melhora-lá se possível, adicionando meios que me dessem os seguintes resultados abaixo:
1-quando eu lançe um nome no campo cliente ela busque o cliente e lançe os dados na aba correspondente ao cliente lançado, caso mesmo não tenha aba aberta, que se crie uma aba nova em ordem afabética com as mesmas formatção do último cliente ou que eu possa criar manualmente esta aba e ela se posicione em ordem alfaética
2-quando eu alimente a planilha de um cliente qualquer o saldo da entrada e saida apareça ao lado na coluna I em cada nova linha que se criar
3-quando se criar uma nova aba que automáticamente o nome descrito nessa aba apareça na celula 2 coluna A da aba resumo e se posicione em ordem alfabética pos nessa aba pretendo colocar um grafico interativo para avaliar individualmente cada cliente.
desde já agradeço a atenção de todos e deixo aqui meu muito obrigado !
Re: Melhorando Macros
Enviado: 15 Mai 2015 às 17:20
por alexandrevba
Boa noite!!
Veja se te ajuda
Código: Selecionar todosSub AleVBA_170()
Dim wkSht As Worksheet
Worksheets("INÍCIO").Range("H2:O2").Copy
Worksheets("INÍCIO").Range("H5:O5").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For Each wkSht In Sheets
If ActiveSheet.Range("B6").Value = wkSht.Name Then
ActiveSheet.Range("H5:O5").Copy Destination:=wkSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next
End Sub
Melhorando Macros
Enviado: 18 Mai 2015 às 11:26
por valdabr
bom dia meu amigo, desde já agradeço sua atenão, porém a sua dica não me foi muito útil, talvez não tenha feito me fazer entender, se o amigo me permitir vou postar um novo arquivo para tentar me ajudar com uma coisa de cada vez
Melhorando Macros
Enviado: 18 Mai 2015 às 11:56
por valdabr
veja que fiz dois novos lançamntos, o que eu preciso de imediato é de editar uma macro em que toda vez que eu fizer um lançamento novo apareça atualizado o saldo paralelo a linha do do novo lançamento ex.
eu lançei uma entrada no dia 18/05/2015 de 500 e uma saída de 50 logo meu saldo será de 450, esse 450 teria que aparecer na linha 7 da coluna I. fiz outro lançamento no dia 19/05/2015 agora somente de uma saída de 50 logo meu saldo passaria para 400 esses 400 teria que aparecer na linha 8 na coluna I
Re: Melhorando Macros
Enviado: 18 Mai 2015 às 13:40
por alexandrevba
Boa tarde!!
Se não for isso, eu vou deixar alguém que entendeu responder!
Código: Selecionar todosSub AleVBA_172()
[I7].Formula = "=SUM(G7:G9000)-SUM(H7:H9000)"
[I7].Value = [I7].Value
End Sub
Att
Melhorando Macros
Enviado: 19 Mai 2015 às 09:05
por valdabr
senhor AleVBA, muito obrigado, era exatamente o que eu precisava, porém continuo precisando dar uma melhorada na dinâmica da planilha, é possivel crimar-mos uma macro que quando eu crie uma nova aba ao lado de valdecir ex: carlos o nome carlos apareça automaticamente na aba dados imediatamente abixo de valdecir , se possível aguardo seu retorno ou se o senhor preferir fecho esse tópico e abro um outro, desde já agradeço a atenção de todos e deixo aqui meu muito obrigado.
Re: Melhorando Macros
Enviado: 19 Mai 2015 às 09:21
por alexandrevba
Bom dia!!
arlos o nome carlos apareça automaticamente na aba dados imediatamente abixo de valdecir
No seu arquivo modelo não tem aba
dados!!
Att
Melhorando Macros
Enviado: 19 Mai 2015 às 10:21
por valdabr
me perdoe, seria "resumo" !
Re: Melhorando Macros
Enviado: 19 Mai 2015 às 10:51
por alexandrevba
Bom dia!!
Agora é só adaptar!
Código: Selecionar todosSub AleVBA_172V2()
'Na coluna C vai imprimir os nomas
Worksheets("RESUMO").Activate
For i = 1 To Sheets.Count
Cells(i, 3) = Sheets(i).Name
Next i
End Sub
Att
Melhorando Macros
Enviado: 19 Mai 2015 às 11:35
por valdabr
desculpe mais não consegui com que funcionace

Re: Melhorando Macros
Enviado: 19 Mai 2015 às 13:18
por alexandrevba
Boa tarde!!
Essa macro apenas lista os nomes, para fazer de uma forma automática, você precisa usar em um evento private sub worksheet_activate.
Att