RafaVillani

Sim, isso é perfeitamente compreensível, uma vez que a edição se baseia no numero do orçamento, ou seja, se o orçamento já existe o programa edita, se não existe ele cria um novo registro. Irei alterar para que a edição seja baseada no ID. @paulotuca, fiz a devida alteração, a edição, agora, está baseada no número do ID. Abraços RafaVillani Com Botão - Relação de produtos - teste 08-03.rar

Caro Paulo, aqui esta funcionando perfeitamente. Segue novamente a planilha e um vídeo demonstrativo. RafaVillani Com Botão - Relação de produtos - teste 08-03.rar Video.rar

Segue novamente a planilha, havia um erro que foi corrigido. Com Botão - Relação de produtos - teste 08-03.rar

Prezado Paulo, segue a plainilha. Abraços Com Botão - Relação de produtos - teste 08-03.rar

Aqui não esta ocorrendo esse erro, abre normalmente. Mas já esta dessa forma. Veja as fotos.

Ola, veja se lhe atende. Abraços Com Botão - Relação de produtos - teste 08-03.rar

Amigo, veja se lhe atende! Insira os dados e clique em "Editar Movimentação" para salvar! Planilha Abraços

Amigo, boa noite! O que você procura é uma macro bem simples, contudo, para faze-la necessito de mais informações, como, por exemplo, as células onde você informa (ambiente, litros, e peso). Criaremos 2 botões, Editar e Cadastrar, ao clicar em Editar se tipo de operação, destino, produto e tanque forem iguais aos informados a macro edita os campos que você desejar, e cadastrar seria para cadastrar novo navio ou uma nova operação, me informe as células em CACL_RAIZEN onde você informa ambiente, litros e peso, ou disponibiliza aqui sua planilha. RafaVillani

Amigo, troque seu código na parte do msgbox por esse. Dim resposta as interger resposta = msgbox "Deseja gerar arquivo para impressao?", vbyesno if resposta = vbyes then 'seu codigo aqui else 'seu codigo aqui end if

Fala pessoal, depois de muito quebrar a cabeça , eu finalmente consegui o que queria utilizando um vetor. Segue o código, acredito que irá ajudar. Private Sub ComboBox3_enter() Dim l As Long Me.ComboBox3.Clear Dim a(1 To 6) As Integer 'declaracao do vetor a(1) = 1 'armazanado valores em cada posicao do vetor a(2) = 2 a(3) = 3 a(4) = 4 a(5) = 5 a(6) = 6 For l = 2 To Plan3.Range("A" & Rows.Count).End(xlUp).Row 'loop ate a ultima linha preenchida If Plan3.Cells(l, 2) = Me.ComboBox1 And Plan3.Cells(l, 3) = Me.ComboBox2 Then 'varifica se os valores das 'colunas 2 e 3 são igual aos 'selecionados nos combobox 1 e 2 For i = 1 To 6 'loop no vetor If Plan3.Cells(l, 4).Value = a(i) Then 'verifica se o valor da coluna 3 é igual as 6 possicoes 'do vetor a(i) = 0 'se o valor for igual, a posicao do vetor recebe 0 End If Next i End If Next l For i = 1 To 6 ' loop no vetor If a(i) <> 0 Then 'verifica se o valor de cada posicao do vetor é diferente de 0 Me.ComboBox3.AddItem a(i) 'carrega no combobox os valores do vetor diferentes de 0 End If Next End Sub abraços RafaVillani

Fala galera do fórum, muito tempo que eu não postava aqui, bom estar de volta. Após pesquisar bastante na internet e não encontrar nada que pudesse me ajudar a ter uma luz, resolvi recorrer ao fórum. Meu problema é o seguinte, estou desenvolvendo um pequeno sistema no VBA para controle de estoque e logística. Inicialmente estou trabalhando da seguinte forma: Existem 6 fileiras e 6 colunas de prédios, os prédios das fileiras 1, 2 e 3 possuem 5 andares, já os prédios das fileiras 4, 5 e 6 possuem 4 andares, onde serão estocados paletes. O sistema possui tratamento para bloquear o cadastramento de endereço repetido, e fiz também combobox dependentes, quando são selecionadas as fileiras 4, 5 e 6, a combobox dos andares me mostra apenas a opção de 4 andares. Contudo, apos enviar a planilha ao cliente, este me questionou sobre ter que para o cadastro toda hora para ver quais endereços estão disponíveis. Estou tentado, sem sucesso, criar uma condição de listagem nas 3 combobox, da seguinte forma: ao selecionar determinada fileira e coluna, na combobox do andar me mostrar apenas os andares disponíveis de acordo com a seleção das combobox anteriores, por exemplo, seleciono fileira 1 e coluna 1, os andares 1, 3 e 5 já estão em uso, então a combobox andar me mostra apenas os andares 2 e3. E a mesma coisa com as outras combobox, se eu selecionar o fileira 1, a combobox da coluna me mostre apenas as colunas disponíveis, se eu selecionar a fileira 1, e as colunas 1 e 3 já estão cheias, ou em uso, a combobox coluna me mostra apenas as colunas 2, 4 e 5. Espero ter sido o mais cristalino possível na explicação. RafaVillani

Amigo, esse problema da por causa da placa de video, reinstale os drivers da placa de video, e desative o sincronizado vertical do opengl, nas configurações da placa de video. Abraços

Valeu, não sabia dessa....boa dica...abraços!!

Amigo, tente a seguinte formula: =SE(A1="";"";SE(A1<=1164;"Isento";SE(A1<=2326;MULT(((A1*15)/100)-174,6);SE(A1>=2326,01;MULT(((A1*27,5)/100)-465,35))))) funcionou perfeitamente. Espero ter ajudado!!! Abraços!!!