Jump to content
Fórum Script Brasil

Alyson Ronnan Martins

Membros
  • Content Count

    537
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Alyson Ronnan Martins

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Boa tarde, Tem algum dados para simular e ver o problema acontecendo?
  2. Com estão salvos os dados dos orçamentos? (tipo em outros arquivos de excel ou algo similar)
  3. Boa tarde. Imagino fazer de duas maneiras: Usar um "SQL" que vai ser responsável pelo soma das colunas Deixar uma consulta pronta no banco de dados assim você só retornar o valor delas. Consegue usar umas das duas opções?
  4. Boa noite @Littlemouse Tem como criar a sua tabela, com dados fictícios, apenas para fazer o código baseado nela. Seria mais simples e objetivo.
  5. Boa noite @vini75, Eu fiz esse código abaixo porém precisa ver se é essa a ideia que você tem para o seu projeto. Sub Abrir_Exel_ou_Não() Dim RESPOSTA As Integer Dim ANS As Integer RESPOSTA = vbYesNo + vbQuestion + vbDefaultButton2 ANS = MsgBox("Deseja Acesso os Dados?", RESPOSTA, "Prosseguir") If ANS = vbYes Then 'Dim excelx As Workbook.Activate 'Set excel = Workbooks.Open("C:\Sistema_Certificados_Venda\Dados.xlsm") 'End With Shell ("Excel C:\Users\alyso\Downloads\Dados.xlsm") Else End If ActiveDocum
  6. Boa noite, você conseguiu fazer essa "formulá" no excel para depois mandar para o VBA? Estou disponível para te ajudar.
  7. Boa noite @Letícia08, tentei simular o seu código mais não consegui.
  8. Boa noite @Oli Garcia Eu fiz um código que poderia ser usado por ti: Private Sub opEntrada_Click() PreencherCampos End Sub Private Sub opSaida_Click() PreencherCampos End Sub Private Sub UserForm_Initialize() 'Carregar PreencherCampos End Sub Public Sub PreencherCampos() Dim uLinha As Long With UserForm1 If .opEntrada Then uLinha = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row CB_item.RowSource = "Planilha1!A1:A" & uLinha ElseIf .opSaida Then uLinha = Sheets("Planilha1").Cells(Rows.Count, "B").End(xlUp).Row CB_item.RowSource =
  9. Fazendo consulta você pode colocar formulas no formulário. SeImed(campo > 20000; "Seu valor; "outro Valor)
  10. Se a página do bem vindo apareceu o php esta funciona. Você pode mandar uma foto do diretório aonde salvou o arquivo porque tem alguma coisa errada. Sem estiver dentro de uma pasta fica assim: http://localhost/suapasta/index.php Se não tiver fica: http://localhost/teste.php
  11. Quando você abriu o xampp aperto em admin do php para mostrar a página inicial do xampp?
×
×
  • Create New...