Alyson Ronnan Martins

Boa noite ainda precisando de auxílio no seu código?

Boa noite, você conseguiu fazer essa "formulá" no excel para depois mandar para o VBA? Estou disponível para te ajudar.

Boa noite @Letícia08, tentei simular o seu código mais não consegui.

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 = "Planilha1!B1:B" & uLinha End If End With End Sub

Show!!!

Show.

Fazendo consulta você pode colocar formulas no formulário. SeImed(campo > 20000; "Seu valor; "outro Valor)

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

Quando você abriu o xampp aperto em admin do php para mostrar a página inicial do xampp?

O primeiro lista arquivos e o segundo trabalha com a lista. Você coloca o seu o código no segundo.

Olha se te ajuda: Public Function ListaArquivos(ByVal Caminho As String) As String() 'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime Dim FSO As New FileSystemObject Dim result() As String Dim Pasta As Folder Dim Arquivo As File Dim Indice As Long ReDim result(0) As String If FSO.FolderExists(Caminho) Then Set Pasta = FSO.GetFolder(Caminho) For Each Arquivo In Pasta.Files Indice = IIf(result(0) = "", 0, Indice + 1) ReDim Preserve result(Indice) As String result(Indice) = Arquivo.Name Next End If ListaArquivos = result ErrHandler: Set FSO = Nothing Set Pasta = Nothing Set Arquivo = Nothing End Function Private Sub ListaArquivos() Dim arquivos() As String Dim lCtr As Long arquivos = ListaArquivos("C:\temp") For lCtr = 0 To UBound(arquivos) Debug.Print arquivos(lCtr) 'Seu comando aqui... Next End Sub

@David Morgado Nunca fiz o vba ler XML mais já fiz leitura "linear" como é utilizada para ler txt. Manda um xml com o seu padrão que dá para ver como fazer.

Sim é possível... a questão é, existe um padrão? Exemplo a primeira linha escrita deve ser o texto inicial do cabeçalho porêm um dos arquivos o alguma colocou apenas uma data na primeira linha preenchida. Mais se o que você faz é sempre a mesma coisa, quer dizer tem um padrão, da sim.

Quais são os campos que devem ser preenchido e com quais dados?

Boa noite @Bismarck Rodrigues você pode usar o dir(...) para tentar localizar o arquivo nArquivo = Sheets("Plan1").cells(1, "A").valeu IF Dir(nArquivo) <> "" Then Msgbox "Arquivo encontrado" Else Msgbox "Arquivo não encontrado" End If É mais ou menos isso?

sub ordenarcombobox() dim iforsta, isista as integer dim i, j as integer dim stemp as string iforsta = 0 isista = combobox1.listcount - 1 for i = iforsta to isista - 1 for j = i + 1 to isista if combobox1.list(i) > combobox1.list(j) then stemp = combobox1.list(j) combobox1.list(j) = combobox1.list(i) combobox1.list(i) = stemp end if next j next i end sub Tenta usar esse código para organizar.

Juro que esta um pouco complexo e minha teoria kkkk. Você precisa trazer a informação para o excel ou apenas ler e trazer resumo? Se for resumo recomendaria usar o VBA para ler teu arquivo. Se for para trazer alguns arquivos CSV recomendaria fazer uma aba para ela ficar "responsável" por trazer essas informações. ps: seus exemplo de csv ficou muito grande que não deu para entender, tentar upar o arquivo no google drive e postar o link aqui para melhor visualizar, mais antes vamos entender melhor sua nescessidade.

Boa noite @Josimar Garuzzi Da sim, só vai depender como você esta lançando os dados no excel... Quando você grava a informação ele lança na ultima linha ou na primeira, então depois de gravar é preciso identificar a linha que foi gravada e já retornar o numero do "Código" Qual como esta gravando a informação na tabela?

Boa noite @drreis Não entendi sua ideia porém para mostrar e ocultar um combox basta usar o ".visible" ... ComboBox1.Visible = False ...

Boa noite @liv-frias Eu executei criei uma planilha como teste e ela funcionou, estou anexando a planliha para ver como foi criada e o código esta aqui abaixo: Private Sub ToggleButton1_Click() If ToggleButton1.Value Then ComboBox1.Visible = True ComboBox2.Visible = True Else ComboBox1.Visible = False ComboBox2.Visible = False End If End Sub https://drive.google.com/file/d/1BR4mgQj1w8aZhqrxF7Fy0-KpOa5wB9ba/view?usp=sharing

Boa noite @Rodrigo Kaito Não entendi seu código... é uma repetição que vai até o 250??? Faz um seguinte diminui o código para eu tentar entender aonde é a repetição (caso seja claro) ou manda uma planilha exemplo, com informações fictícias, assim quem saiba eu te ajudo mais rápido.

A seu sub formulário deve estar ligado por um número único do formulário principal. Tenta usar o mesmo "id" para localizar os dados na consulta e atualizar apenas eles l.

Show!

Boa noite @Leonardo Renner Com eu não tenho como testar o exemplo que esta mostrando tenta usar o seguinte código: Application.Calculation = xlCalculationManual Olha se vai melhorar o tempo de processamento, depois só mudar para automático.

Beleza.