Alyson Ronnan Martins

Bom dia. Se quiser posso dar uma olhada se compartilhar seu projeto aqui no fórum para pesquisa.

... For g = 1 To uLinha Step 10 ... Next g ... Esse código acima é o loop "g" para separa a informações por linha então você pode olhar a Coluna "G" para ver se tem dados dentro dela e se sim pular esse dados: ... For g = 1 To uLinha Step 10 if Sheets("BD").Cells(g, "G").value = "x" then 'Estou usando "x" para marcar que já foi transferido 'Não faz nada Else 'Caso seja diferênte leve as informações para planilha Análise ... 'Aqui código antigo 'Agora entra a parte que vai marcar a linha Sheets("BD").Cells(g, "G").value = "x" end if Next g ...

@luiza lopes Olhei agora a planilha e o código esta certo. Precisa então mudar a "lógica" para então mudar o código. Os dados da tabela "BD" não são excluidos depois que são colocados na tabela Análise de Dados? Se não: Precisa marcar a linha da planiliha BD, podendo usar a coluna "G" para isso, para não lançar tudo novamente na próxima atualização. Se Sim: Resolve o problema de ter dados duplicados. Aguardo.

Teria como publicar seu código no GitHub?

Bom dia @kawell. Tenta olhar de forma mais lenta ex: O seu código cadastro_clientes.php é responsável por fazer o cadastro e precisa verificar se esta trazendo todas as informações corretamento no comando $_POST(). Faca essa pagina mostrar todas as informações coletadas para verificar se esta trazendo tudo corretamente. Se não: Verifique os campos de POST para corrigir algum erro Se estiver: Contrua o SQL para também mostar na tela e verificar se esta sendo construido corretamente. Se conseguir construir o SQL vá no seu banco de dados, creio que seja o mySQL, para executar o sql que sua pagina criou. É bem provável que sua SQL vá dar erro também no MySQL ou phpMyAdmin ai você manda o erro que der para tentar te ajudar.

Bom dia. Teria como mandar a planilha para eu dar uma olhada pois ficou ainda um pouco confuso entender o problema: Se tiver dificuldade de mandar pelo site manda no meu e-mail: alysonronnan@gmail.com

Bom dia @Jessica Oliveira. Tenta usar o comando "Environ": sub usuario() Computador = Environ("Computername") dominio = Environ("USERDOMAIN") user = Environ("USERNAME") msgbox "Computador: " & Computador msgbox "Dominio: " & dominio msgbox "Usuario: " & user end sub

Bom dia. Você pode enviar um cópia do seu sistema? Pode ser com informações ficticias apenas para ver seu sistema assim consigo dar mais informação e ajuda sobre ele.

Boa tarde. Tem adcionar o seguinte comando para descer as informações uma linha, antes de inserir os dados: LC.Rows("4:4").EntireRow.Insert

Boa noite. Teria como postar o arquivo para ver ele?

Fico feliz que tenha dado certo.

Exemplo: Coluna G Volume terra / Total Discharged <> Volume Terra / Total Discharged poder ser letras maiuscula e minuscolas, também podendo ser espaços

Boa tarde. Verifique que o nome do "Rótulo da linha conha " na planilha lista não esta com o mesmo nome da tabela que é importada. Tenta copiar o nome do rótulo e colocar para verircar se passa as informações.

Sub cmdVerArquivos() Dim fl() As String Dim FSO As Scripting.FileSystemObject Dim defFolder As Scripting.Folder Dim defFile As Scripting.File Dim defFolderLocal As String defFolderLocal = "C:\Users\Alyson\Pictures\" Set FSO = CreateObject("Scripting.FileSystemObject") Set defFolder = FSO.GetFolder(defFolderLocal) n = 0 ReDim fl(0 To defFolder.Files.Count) As String For Each defFile In defFolder.Files If InStr(defFile.Name, ".txt") > 0 Then fl(n) = defFile.Name n = n + 1 End If Next defFile 'Agora que foram armazenado na variavel você pode usar eles para escrever aonde precisar: End Sub Adcionar a seguinte referência:

Boa noite. Não entendi o seu objetivo no formulário. Teria um tempo para explicar as suas ideias separaas.

teria o sql para eu importar e tentar fazer agora.

Bom dia. Teria como o banco de dados ou os endereços que esta usando para calculo? Deve ser penas alguma ponto que esta retornando valor vazio ou de tipo texto. Usando a formula NZ(campo) você pode evitar erro de campos que possam retornar valores diferêntes de numeros. Se possivel colocar o banco de dados com valores ficticios para tentarmos ajudar com o código.

Bom dia @Fabiano Lopes. Teria como colocar o erro (aonde ele acontece e a mensagem)? Tenta também mudar a string para variante: Dim aaa(1 To 2) As Variant

Bom dia @luiza lopes. Teria como olhar se o valores lLista e cLista estão ficando vazios? Deve ser essa a causa do de ficar com o erro cadastrar.

Eu fiz um tabela fictíca com valores mais ou menos que ficaram na foto. Sub cmdImportarTexto() Dim uLinha As Long 'Última linha Dim lLista As Long 'Linha nova na tabela Lista Dim cLista As Long 'Coluna nova na tabela lista Dim yLista As Long 'Coluna pesquinsando a lista Dim g As Long 'Grupo do produto Dim x As Long 'Linha Dim y As Long 'Coluna Dim txtCampo Dim txtValor Application.ScreenUpdating = False Application.Calculation = xlCalculationManual uLinha = Sheets("Dados").Cells(Rows.Count, "A").End(xlUp).Row 'Loop pulando de 7 em 7 linha começando na linha 1 até a ultima linha For g = 1 To uLinha Step 7 'Ultima linha da lista lLista = Sheets("Lista").Cells(Rows.Count, "A").End(xlUp).Row + 1 'Loop pulando de 2 em 2 começando na coluna 2 até 6 For y = 2 To 6 Step 2 'Loop para passar pelas linhas For x = g To g + 6 Step 1 txtCampo = Sheets("Dados").Cells(x, y - 1).Value txtValor = Sheets("Dados").Cells(x, y).Value 'Procurar a coluna para colocar o valor For yLista = 1 To 21 Step 1 If Sheets("Lista").Cells(1, yLista).Value = txtCampo Then cLista = yLista yLista = 22 'Parar o for End If Next yLista 'Cadastrar o valor na tabela nova Sheets("Lista").Cells(lLista, cLista).Value = txtValor Next Next y Next g Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Link da planilha: https://drive.google.com/open?id=1R3TqwBk4ylki9L1B0uhhi4cK3DsnTlbS

Não vi colunas mescladas tem alguam exemplo disso?

Então vou precisa pular de 7 em 7 linha para linha nova de transpor. Já te mando um exemplo para testar.

Mais ele passam de de 7 em 7 linhas para uma linha nova na próxima linha?

Mais todos os valores estão sendo jogados dentro de uma tabela?

Eu fiz uma planilha com a mesma ideia que você mandou na foto. Foi acrescentando na linha 1 a planilha destino para estar "pre-definido" o destino para onde vai levar as informações https://drive.google.com/open?id=1GUm6juULIhsBcn0loHM7ABsaAq9lzD-P Sub cmdTranporValores() 'Criar variaveis Dim Tabela As String 'Noma da tabla que vai ser levadas as informações Dim nTabelas As Long 'Quantidade de tabela para transpor Dim uLinha As Long 'Última linha Dim uColuna As Long 'Última coluna Dim y As Long 'Valor para coluna 'Identificar uColuna = Sheets("Dados").Cells(1, Columns.Count).End(xlToLeft).Column nTabelas = uColuna / 2 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Loop para passsar de colunas For y = 1 To uColuna Step 2 Tabela = Sheets("Dados").Cells(1, y + 1).Value uLinha = Sheets("Dados").Cells(Rows.Count, y).End(xlUp).Row Sheets("Dados").Select Sheets("Dados").Range(Cells(2, y), Cells(uLinha, y + 1)).Select Selection.Copy Sheets(Tabela).Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Sheets("Dados").Select Next y Application.ScreenUpdating = False Application.Calculation = xlCalculationAutomatic End Sub