Basole

Poste aqui o que já fez, para podermos entender melhor a sua ajuda. Para anexar o arquivo aqui,, tem que compacta-lo. (Zip, rar, etc).

Poste aqui o que já fez, para podermos entender melhor a sua ajuda. Para anexar o arquivo aqui,, tem que compacta-lo. (Zipado, etc)

Neste tópico (link abaixo), eu criei um modelo de busca o Cep por endereço, veja se pode lhe ajudar:

Fiz uma sugestão em vba de acordo o layout e dados do seus arquivos modelos. * Segure a tecla [ctrl] para selecionar mais de um arquivo que deseja consolidar. Baixe o anexo e veja se é isso. Gestão - Planilha Receptora.zip

Não tenho como criar aqui o cenário da sua planilha, se puder anexar, ou um exemplo compactado (*.zip), facilita para a análise.

Sim, substitua a linha em questão por esta abaixo, e altere de acordo com o seu intervalo: Set aRange = ActiveSheet.Range("A1:E10")

Seja se é isso, o resultado da soma, aparece na label5. Aqui tambem: https://goo.gl/7azMuJ CONTROLE_DE_COMBUSTIVEL_NO_FORM_1.zip

Poste o código aqui para que possamos analisar e se possível sugerir alterações

Altere no codigo, a linha abaixo: Set IntervaloMailing = WrkS.Range("TabelaMailing") 'Define qual o intervalo do Mailing Por esta: Set IntervaloMailing = WrkS.Range("A2:A" & WrkS.Cells(Rows.Count, 1).End(xlUp).Row) 'Define qual o intervalo do Mailing

Experimente na celula [ D3 ], cole a formula abaixo e arraste. =SE($C3>0;MÁXIMO($D$2:$D2) +1;"")

Para te passar uma forma de fazer o que deseja, é necessário obter mais informações, e saber se cores são derivadas de uma formatação condicional, manual ou uma outra forma. Se for condicional, faz de uma forma, se for manual de outra, enfim. Seria bom se pudesse anexar um modelo bem proximo do seu arquivo com alguns dados ficticios.

Bom eu nao conheço e não tenho acesso a esta macro NumberingMindJet e não sei a formatação do seu arquivo *.csv, sendo assim fica difícil tentar te ajudar. Seria melhor se compactasse seus arquivos e anexasse aqui pra tentar entender melhor o que precisa.

Bom pelo que entendi, tente algo do tipo: ListBox1.Selected(Seu_indice) = True ListBox1.SetFocus

Somente com essas informações fica difcil dar um parecer exato. Mas talvez pela forma que esteja definindo a variavel d0 Ao definir, voce deve colocar a data entre aspas ou entre # (hastags) Tente algo assim: d0 = "02/01/2018" 'Ou 'd0 = #2/1/2018# d0 = VBA.Format(WorksheetFunction.WorkDay(d0, -1, feriados), "dd/mm/yyyy") * Vale lembrar que neste caso, o formato da data é americano, ou seja 1º de fevereiro de 2018

Tente desta forma: Dim objWord As Object Set objWord = CreateObject("Word.application") objWord.documents.Open "C:\Users\GilliardPacheco\Desktop\novo sistig\cartas\carta de colaboração.doc" objWord.Visible = True ' SEU CODIGO ...... 'objWord.Close

Veja esta dica neste link: Desabilitar a proteção de tela do computador

Para quem programa,ainda essas informações não são suficientes. Segue abaixo exemplo genérico, veja se consegue adaptar: Insira esta macro em um modulo padrão e atribui a imagem a esta macro. Ao clicar na imagem, será ampliada e clicando novamente, volta ao normal.

So com essas informações, fica difícil te ajudar. Disponibilize o arquivo, ou um modelo próximo

Bom pelo que conheço, as entradas, como o próprio nome diz, servem para adicionar alguma mídia externa, neste caso para voce mostrar na tv o que esta no pc. Se fosse o contrario, saida, acredito que daria certo. Edit.: * Mas dê uma olhada atrás da tv, para ver quais as saidas que contem, se puder fotografar, melhor Assim podemos te orientar melhor.

voce pode tentar utilizar o seu monitor do pc p/ ver as imagens do sinal da tv, se voce tiver canal a cabo. Mas tem que analisar a entrada do seu monitor. Se tiver uma entrada serial, utilize um conversor hdmi p/ serial (vide img1) c/ saida para audio, para voce conectar uma caisa de som amplificada (vide img2) img1 - Conversor Hdmi => serial img2 - Caixa de som amplificada:

Faça essas alterações para abrir o arquivo: Dim Wb As Workbook Set Wb = Excel.Application.Workbooks.Open(. . . ) 'Abre Wb .....e para fechar: If Not Wb Is Nothing Then Wb.Close SaveChanges:=False ' fecha Wb Set Wb = Nothing End If

Veja se este exemplo lhe ajuda: @echo off echo Detectando o tipo de processador do Sistema Operacional if "%PROCESSOR_ARCHITECTURE%"=="AMD64" goto 64BIT echo 32-bit OS C:\Temp\Instalador_x86 /q goto END :64BIT echo 64-bit OS C:\Temp\Instalador_x64 /q :END

Experimente Selection.Copy

Experimente usar a seguinte formula na coluna [D ] e arraste

Poste o que voce ja fez, arquivos, codigos etc.