Miguelriedel

Olá!! Tenho a seguinte fórmula em uma planilha que extrai porção específica de um texto =EXT.TEXTO(O18;LOCALIZAR("ACABADA";O18)+8;NÚM.CARACT(EXT.TEXTO(O18;LOCALIZAR("ACABADA";O18)+8;NÚM.CARACT(O18)))-NÚM.CARACT(EXT.TEXTO(O18;LOCALIZAR("(";O18);NÚM.CARACT(O18)))) Alguém pode converter para código do vba para que não seja nessecário a fórmula na célula?

Preciso criar um botão que envie os dados da aba pedidos para a aba agrupamento mantendo o layout cfe excel abaixo. notar que o dia na coluna A é referente a data de produção Alguém consegue me ajudar? Pasta1.xlsx

Preciso criar um código para enviar os dados da planilha 1 para a planilha 2, seguindo a seguinte lógica: O do mais antigo para o mais novo Com cores em ordem alfabética Somente enviar para a planilha 2 as linhas com marcadas com SIM na coluna D Segue planilha exemplo abaixo Pasta1.xlsx

Boa tarde, criei a planilha para ler um xml e enviar para o access acontece que preciso subtituir essa parte do codigo para executar na tabela do access Dim shtXml As Worksheet Set shtXml = ThisWorkbook.Worksheets(1) i = shtXml.Range("A1048576").End(xlUp).Row + 1 Alguém tem alguma sugestão?? anexo abaixo planilha, base de dados e arquivo xml exemplo Base do acces deve ser armazenada em desktop Lembrar de referenciar a biblioteca "Microsoft XML, v3.0" e "Microsoft ActiveX Data Objects 6.1 Library" Desktop.rar

Lembrando que dessa maneira todos os itens sao enviados para a planilha do excel, somente quando mudo para enviar para o acces que não vai todos

@ramostriker Isso mesmo, consegue criar uma planilha e anexar aqui no fórum?

@ramostriker Olá, já testou fazer essa formatação em outra pasta do excel? essa versão do excel deveria funcionar dessa maneira

Boa tarde, adaptei uma planilha que le o xml de uma nota fiscal para o excel, agora quero que envie esses dados para uma base do access. Ela já está comunicando com a base, todavia ele não exporta todos os itens para o acces, alguém consegue me ajudar? Anexo abaixo base do access (deve ser armazenada na área de trabalho), planilha e xml exemplo. Seguem print demonstrativos. Desktop.rar

Deu certo, obrigado!

Olá, alguém sabe alguma maneira para eu automatizar a criação desse subtotal e saldo?? Anexo planilha abaixo. exemplo forum.rar

Boa tarde, estou com um problema para habilitar as macros de um arquivo excel em pasta compartilhada, alguém sabe alguma forma de contornar isso?? segue excel abaixo para validação Exemplo.rar

Segue abaixo modelo de como preciso + XML de exemplo > https://www.webdanfe.com.br/danfe/ExemploXml.aspx Se puder me ajudar urgentemente Agradeço desde ja NFE DOWNLOAD.xlsx

Boa tarde, preciso criar um botão para importar nome, data, item, valor e nr de um xml de NFE para excel, alguma sugestão?

@Márcio Rodrigues Boa tarde, Deu certo! Agradeço a ajuda!

@Márcio Rodrigues Olá, consegui resolver esse problema, era um código que estava errado. Sabe como transfiro todas as colunas, com seu exemplo é transferida somente a primeira coluna...

@Márcio Rodrigues Ah, eu retirei eles para resumir a planilha segue o caminho é so preencher os campos ali dos produtos > botão "Adc. Item" > dois cliques em cima do item adicionado para exibir o userform2 > preencher as informações no userform2 e adc item > Botão "Salvar" (userform2), e então será adicionado ao userform1

@Márcio Rodrigues Segue abaixo planilha Produção.rar

@Márcio Rodrigues deu certo, porém quando aplico junto de outros dados da planilha ele insere uma linha em branco e os dados abaixo e não puxa as outras colunas, como no print: como posso resolver isso será?

Olá, gente, preciso fazer o seguinte, no USERFORM2 preciso que ao clicar no botão: BTSalvarInsumos, ele envie os dados da listbox2 para a listbox1 do userform1 Alguém sabe como posso fazer? Produção.rar

Deu certo, estou tentando fazer uma busca com o seguinte código Private Sub BTPesquisar_Click() If Me.TextBoxBuscaCodigo.Value = "" Then MsgBox "Digite um filtro válido!" Exit Sub End If ultimodado = Planilha2.Range("A" & Rows.Count).End(xlUp).Row List = Clear ListBox4.RowSource = Clear y = 0 For linha = 2 To ultimodado codigo = ActiveSheet.Cells(linha, 1).Value If codigo Like Me.TextBoxBuscaCodigo.Value Then Me.ListBox4.AddItem Me.ListBox4.List(y, 0) = ActiveSheet.Cells(linha, 1).Value Me.ListBox4.List(y, 1) = ActiveSheet.Cells(linha, 2).Value Me.ListBox4.List(y, 2) = ActiveSheet.Cells(linha, 3).Value Me.ListBox4.List(y, 3) = ActiveSheet.Cells(linha, 4).Value Me.ListBox4.List(y, 4) = ActiveSheet.Cells(linha, 5).Value Me.ListBox4.List(y, 5) = ActiveSheet.Cells(linha, 6).Value Me.ListBox4.List(y, 6) = ActiveSheet.Cells(linha, 7).Value y = y + 1 End If Next ListBox4.ListIndex = -1 End Sub Preciso que ele faça essa busca na planilha 2 porém ele sempre considera a que está aberta, se estou na planilha 3 e chamo o form ele considera esta para a busca Alguém sabe o que pode ser?

Olá, alguém sabe como posso fazer para copiar os dados de uma listbox para uma text box de outro userform??

Boa tarde, alguém sabe como faço para adicionar textbox/combobox no userform automaticamente? Quando clicar nesse botão, preciso que adione uma nova linha dessas E fique dessa maneira

@Midori abaixo Exemplo fórum.xlsx

@Midori Como ficaria?

Eu preciso fazer os itens dessa primeira planilha ir para segunda em uma célula conforme o código, por exemplo: nessa planilha tenho o cód: 1 com os itens: ITEM 1, ITEM 2, ITEM 3, ITEM 4, ITEM 5. Preciso que na outra aba ele puxe dessa maneira, estava usando a função CARACT(10) para junta-los em uma única célula, mas não sei como puxar de acordo com o código, por se adiciono outra linha na primeira planilha ele puxa os dados do código seguinte.