Nelson S

Ao invés de usar "For" ou "For each" você pode usar "Do while ... Loop": ======================================================== Public Sub Testar() Dim x1 As Single Dim R1 As Single x1 = 0.01 Do While x1 <= 1 Debug.Print Format$(x1, "0.00") x1 = x1 + 0.01 '* Equacoes aqui: '* ... '* R1 = ... If R1 = 0 Then Exit Do Loop MsgBox "OK" End Sub

Não dá para você disponibilizar o arquivo através do site do Sendspace? É muito melhor e muito mais fácil, não precisa instalar nenhum programa, dá para baixar direto.

Não entendi muito bem o seu código. Se é para deixar visível somente a planilha (Plan) "Início" e ocultar todas as outras planilhas que existirem, o código abaixo faz isso. Não é preciso nem selecionar ou ativar a planilha "Início", visto que somente ela estando visível, automaticamente será a planilha selecionada. Private Sub Workbook_Open() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name <> "Inicio" Then wks.Visible = xlSheetHidden 'Ou xlVery Hidden End If Next wks UserForm1.Show End Sub

Você está criando uma função para ser utilizada em fórmula do Excel?

Recebi. Aguarde um pouco que estou escrevendo a macro...

Só por curiosidade... Qual é a versão do PostgreSQL que você está utilizando ou pretende utilizar no seu projeto? E qual o sistema operacional?

Envie também uma mensagem para: nelsonnsu@yahoo.com.br. Ao menos uma das mensagens deverá chegar.

Tiago, você encaminhou um e-mail para nelsonns@outlook.com.br? Porque eu não recebi nenhuma mensagem até agora. Tente enviar novamente a mensagem. E avise quando enviar, assim eu dou uma olhada e vejo se chegou a mensagem.

É possível filtrar e trazer todas as colunas ou só as que você quiser. O problema é desenvolver uma macro sem ter os dados para testar. Sem um arquivo a coisa fica muito abstrata, dá mais trabalho. Eu tenho idéia de como escrever essa macro, o problema é eu ter que montar por conta própria um arquivo com dados só para isso. Sem ter dados para testar a macro fica complicado poder te ajudar.

Não haveria como você disponibilizar um arquivo com alguns registros para teste? Se as colunas INICIO e FIM contivessem apenas datas, eu sei que se aplicasse um filtro conseguiria selecionar os registros. O problema é que esses campos contêm data e hora e o filtro pode não resolver. Nesse caso, teria que pensar em outra solução, talvez separando data e hora dessas colunas.

Eu entendi que nem todo dia uma operadora é acionada, mas você deve ter uma listagem com TODOS os nomes das operadoras, não? Se você tem, pode usar essa listagem como lista de validação em uma célula ou listbox em um formulário. Usando uma célula com lista de validação ou um listbox não é preciso digitar o nome da operadora, basta escolher um item da lista. Elimina a possibilidade de digitar errad o nome da operadora e a consulta não retornar nada. Você só se limitaria a digitar nas células - ou campos - da data inicial e data final. Se tiver dificuldade para fazer o upload do arquivo com dados de amostra, pode enviar para meu e-mail: nelsonns@outlook.com.br

Teria como fazer upload de arquivos de exemplo em um site de armazenamento, tipo Sendspace? [https://www.sendspace.com/] Assim facilita o entendimento do problema e também teste da macro. Faça upload de arquivo de amostra (zipe em um arquivo) e depois poste o link para baixar. A princípio, parece que seria preciso "quebrar" as colunas que contêm data e horário para poder filtrar somente pela data. Se você puder montar uma tabela com todas as operadoras seria interessante, pois assim não seria preciso digitar o nome delas.

Se puder fazer upload de arquivos de exemplo em um site de armazenamento, tipo Sendspace [https://www.sendspace.com/], você vai facilitar o entendimento do problema e o teste da macro. Faça upload de alguns arquivos de amostra (zipe em um arquivo só) e depois poste o link para baixar.

(Deletado por ter sido postado em tópico errado)

Não tem como você fazer upload dos arquivos em um site de armazenamento, tipo Sendspace? (https://www.sendspace.com/) E depois postar o link aqui para baixar? Com os arquivos é mais fácil testar a macro.

Ao clicar no botão fechar (x) do formulário, este se fecha.. Ok. E esse menu iniciar seria o quê? Um outro formulário? Uma planilha (plan) com botões?

O arquivo (*.xlsx) ou planilha (plan) "Projetos" pode ser aberto para fazer a importação dos dados? Teria como disponibilizar modelos dos arquivos para entender o problema e fazer testes?

Não seria possível disponibilizar um arquivo com alguns registros para servir de exemplo? Cada pasta (...\CT_DCC003216-B) do Windows armazena 3 arquivos? O valor do campo "N_DA" é obtido a partir de que fonte, já que não seria um dos 3 arquivos?

Você disse que já fez este campo: Data Inicio Data Fim Operadora ___________ _________ X Seu relatório tem os seguintes campos: GITEC CGC PONTO DE ATENDIMENTO INICIO FECHAMENTO OCORRÊNCIA TEMPO INDISPONÍVEL CIRCUITO OPERADORA Se o seu relatório só informa o campo "INICIO", que deve ser ligado a "Data Inicio", através de que campo você pesquisaria a "Data Fim", já que não existe um campo "FIM"? Seria possível você disponibilizar um arquivo modelo com a estrutura da planilha para facilitar o entendimento e fazer testes?

Essas tabelas estão no Excel ou no Access?

Para acessar a página com essses dados é preciso informar antes um código em "captcha"? http://www.tecmundo.com.br/curiosidade/2861-o-que-e-captcha-.htm A busca é feita a partir dos dados do CPF da pessoa? Os dados da pessoa estão em todos os 5 sites ou podem estar apenas em alguns?

Você pode criar uma variável para armazenar o número e o nome do mês: Dim strMes as String Atribuir à variável o valor de uma célula: strMes = Application.Workbooks("Consolidação.xlsm").Worksheets([nome da planilha]).Range([referência da célula que contém o mês]) E substituir a instrução: Workbooks.Open Filename:= "C:\DOCUMENTOS\2015\07 - Julho\FILIAL01.xlsx" Por: Workbooks.Open Filename:= "C:\DOCUMENTOS\2015\" & strMes & "\FILIAL01.xlsx" Para evitar ter que digitar o texto no formato "01 - Janeiro", eu sugeriria criar uma lista de validação com a sequência de todos os meses. Assim, não haveria erro de digitação, o que poderia "travar" a macro.

Não tem como você postar o código completo? Pelo que eu entendi, a macro copia o intervalo F24:Q24 das 40 filiais. E cola esse intervalo, como valor, em 40 linhas, a partir do intervalo D4:O4, Seria isso?

Não seria mais fácil criar um intervalo de células ao invés de usar um monte de offset? Usar Range("A2:N2") por exemplo? E criar duas rotinas para "buscar" nas colunas A e B os valores dos últimos ID e COD VENDA antes de lançar os registros na planilha? Esse código que você escreveu está muito complicado, tem que simplificar um pouco...

Esses controles estão em formulário (UserForm)?