RafaVillani

@paulocezarpicos

18 horas atrás, paulocezarpicos disse:

são 33 registros e está aparecendo 34

Aqui foi só acrescentar -1 ao contador do label, ou seja, contador -1, descontando o cabeçalho.

18 horas atrás, paulocezarpicos disse:

na planilha geral consta 33 registros e na listbox só aparece 27.

Aqui foi só acrescentar +6 na Rows.Count, por que isso? Porque iniciamos a contagem na célula A7, para definir a propriedade RowSource do ListBox que é Planilha3.Range(Planilha3.Cells(7,1),Planilha3.Cells(L,7), se você possui 33 itens na sua tabela, a variável L vai receber 34 (contando com o cabeçalho) ou seja, a Range será definida pelo intervalo A7:G34, porém, seus dados estão armazenados até a linha 40, então acrescentamos +6 ao Rows.Count, onde o 6 também corresponde ao número de linhas acima do início da sua tabela, que começa na linha 7, dessa forma corrigimos a Range que agora será representada pelo intervalo A7:G40.

RafaVillani

Prezado @paulocezarpicos, bom dia, segue a planilha devidamente corrigida.

RafaVillani

Adilau.rar

@paulocezarpicos olá, disponibilize a planilha para download e me explique melhor o que está ocorrendo.

RafaVillani

Olá @paulotuca, incômodo nenhum, o fórum existe é para isso. Você pode marcar o tópico como solucionado, mas acho que você já fez isso, não sei se é possível marcar duas vezes.

Se este projeto está concluído, qualquer dúvida abra um novo tópico, estaremos por aqui para ajudar no que for possível.

Abraços 

8 minutos atrás, rotiv1 disse:

@RafaVillani Sim é isso mesmo, só que queria que o nome permanecesse pois após inserir o registro o mesmo some. Mas posso tentar a partir dai já me ajudou bastante, Obrigado!

@rotiv1É só você retirar os comandos que limpam as textbox responsável, hora e data do botão salvar.

RafaVillani

@rotiv1 Veja se é isto que você queria, fiz no "Inserir Recebimento", se desejar fazer nos demais formulários basta usar o mesmo código.

RafaVillani

SISTEMA DE CONTROLE GERAL 1.rar

@paulotucaacredito que não tenho problemas, pode alterar sim.

RafaVillani

Prezado @rotiv1para melhor lhe ajudar, por favor, disponibilize a planilha para download.

RafaVillani

@ROSANO100Não me esqueci, o problema é que essa é minha primeira vez usando o VS, e realmente não estou conseguindo fazer no VS. Continuarei tentando.

RafaVillani

@paulotucaSegue a planilha, para poder acrescentar a "," necessitei alterar a forma de se salvar a capacidade na Sub Salvar, bem como fiz algumas alterações nos eventos change, beforeupadate e enter dos textbox capacidade, metro e diametro.

Veja se lhe atende.

RafaVillani

Relação de Orçamento - TESTE.rar

1 hora atrás, paulotuca disse:

Essa linha na imagem tinha sido tirado se não me engano para fazer o gráfico, mais como não irei usar mais posso retornar ela tirando o apóstrofo

@paulotucaSim, pode retirar. Sem problemas.

@paulotucaSegue a planilha, havia outro erro, da mesma forma que esqueci de trocar o nome das planilhas eu me esqueci do trocar o nome das variáveis após o copiar\colar.

RafaVillani

Relação de Orçamento - Revisado.rar

@paulotucaErro meu, falta de atenção, mas está fácil de corrigir, quando fiz a alteração eu copiei e colei os For, bem como a linha que salva na planilha, contudo, me esqueci de alterar o número das planilhas na linha de comando, então todas ficaram Planilha1.

No ElseIf UserForm2.cbbStatus.Value = "Cancelado" Then, abaixo do último Next xx

altere Planilha1.Cells(l, 11) = Val1 & a & b & Val2 & d & Val3 & c para

Planilha3.Cells(l, 11) = Val1 & a & b & Val2 & d & Val3 & c

e em ElseIf UserForm2.cbbStatus.Value = "Vendido" Then, abaixo do último Next xx

altere Planilha1.Cells(l, 11) = Val1 & a & b & Val2 & d & Val3 & c para

Planilha4.Cells(l, 11) = Val1 & a & b & Val2 & d & Val3 & c

RafaVillani

@Andre4O código está funcionando, veja o vídeo. Siga a a ordem das instruções e tente novamente.

Modelo_Nova_folha.rar

@Andre4Você seguiu todos os passos? Criou uma noma sheet na planilha e copiou o formulário para ela? Alterou a linhas o código corrigindo o nome da nova sheet criada? Atribuiu o valor zero na célula AK1?

@paulotucaentendi, isso pode ser meio complicado agora, tendo em vista que acabamos de fazer o procedimento que armazena e salva apenas os números, mas darei uma pesquisada aqui, qualquer coisa eu posto.

Porém, uma alternativa fácil e rápida, seria salvar apenas os números da forma que você digitar com as virgulas, sem os caracteres especiais do código, e ao lado dos textbox você colocaria uma label com o caracter referente a cada medida.

RafaVillani

@paulotucaO que estava ocorrendo era que, ao se editar, o txtcapacidade recebia o valor 50m3, e ao salvar, o código salvava o valor do txtcapacidade, no caso 50m3 mais o m3 contido no código da sub salvar, por isso estava dobrando.

O que eu fiz foi retirar apenas os números dos textbox (capadidade, diametro e metro) e jogar dentro de uma variável, então, na hora de salvar, vai salvar o valor contido na variável (apenas números) mais o m3 contido no código, dessa forma os caracteres não são dobrados.

RafaVillani

@paulotucaAinda não entendi esse erro.

Segue a planilha.

Relação de Orçamento - Revisado.rar

@paulotucaAcabei de revisar a planilha, o código está movendo os registros corretamente de em aberto para cancelado, e cancelado para em aberto, move e exclui.

Revisei, também, a questão de ao se edita um registro os caracteres da capacidade são duplicados, erro corrigido.

Segue a planilha.

Relação de Orçamento - Revisado.rar

@paulotucaÉ tanta planilha que me confundo as vezes...kkkkkk

Você retirou os Ucase da Sub salvar? Se não retirou, retire e faça um teste.

Funciona assim, se quiser deixar os Ucase tenha certeza que todos os dados na coluna Status estejam em letras maiúsculas, se for retirar tenha certeza que todos estão com letras minúsculas.

Ou seja, se você optar por retirar os Ucase e tentar alterar um dado que esteja com letra maiúscula irá dar erro mesmo, conflito entre maiúsculas e minúsculas, e vice versa.

RafaVillani

@Andre4Vamos lá.

1- Crie uma nova folha e copie a Proposta para esta nova folha, ela será sua base para criarmos as outras.

2- Atribua o valor O (Zero) na célula AK1 da folha3.

3- Cole este código no evento Change da folha3, após o End If.

Dim linha As Long
Dim aux As Long

Select Case Target.Cells.Column
Case Is = 38
aux = 57
Folha1.Range("A1:AJ57").Copy 'altere o número da folha conforme a que você criou
linha = Folha3.Range("A1").CurrentRegion.Rows.Count
Folha3.Cells(linha + aux + Range("AK1"), 1).Select
ActiveCell.PasteSpecial xlPasteAll
Range("AK1") = Range("AK1") + aux
End Select

Espero que lhe atenda.

RafaVillani

@Andre4Entendi, me de algum tempo.

@Andre4Eu havia entendido que você queria novas folhas, não foi o que disse?

agora, Andre4 disse:

Tem forma de somente quando preencher a tabela de pesquisa (Coluna AL) acrescentar novas folhas em baixo?

Para que o código funcione você tem que fazer alguma alteração na coluna AM, na célula Pesquisa, veja o vídeo, se não for isso, me explique melhor a forma como quer.

RafaVillani

Exemplo.rar

@Andre4Veja se lhe atende:

Coloque o valor 1 na célula AS7.

Copie este código e cole no evento Change da sua planilha, abaixo do End If

Dim linha As Long

Select Case Target.Cells.Column
Case Is = 39
linha = ActiveCell.Row - 1
Folha3.Cells(linha, 38) = "Orç. " & Folha3.Range("AS7")
Folha3.Range("AS7") = Folha3.Range("AS7") + 1
End Select

RafaVillani

@Andre4Substitua esta linha

Folha3.foto_produto.Picture = LoadPicture(FotoNome)

por esta

ActiveSheet.Shapes("foto_produto").Fill.UserPicture (FotoNome)

Veja se funciona.

RafaVillani