RafaVillani

@paulocezarpicos Aqui foi só acrescentar -1 ao contador do label, ou seja, contador -1, descontando o cabeçalho. 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

@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

@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? 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