Basole

poste sua planilha ou um exemplo bem proximo

Veja se é isso que procura: ao inserir um código no formato "000/AA" na coluna [ Cód ] tanto na pasta de trabalho (Gerencial e Os), a macro procura os valores em (Clientes e Gerencial) respectivamente e insere os dados restantes nas respectivas colunas. * A macro está ajustada para funcionar com as 3 pasta de trabalho no mesmo diretorio, altere o caminho se necessario, no local indicado. * A macro pode apresentar um erro, caso o arquivo que for pesquisado estiver aberto. Para evitar isso, o ideal seria usar um bd (access por ex.), para fazer esta ponte entre um arq. e o outro, e iria ganhar tambem na rapidez de importção de dados em arquivos localizados em pcs diferentes. planilhas-V1.zip

@luis.gondim seja bem vindo a bordo! A macro neste link http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm faz uma pesquisa e substituir em todos os documentos em uma pasta especificada. No entanto não vai fazer as substituições em cabeçalhos e rodapés. Este link refere-se a cabeçalhos e rodapés. http://www.word.mvps.org/FAQs/Customization/ReplaceAnywhere.htm

Sim 32 bits. Acredito que terá que adquirir outro office com a opção 64 bits. (2010 ou >) Não sei por que razão voce quer utilizar o 64 bits. Eu não instalo o office 64, no note da minha filha tem o win8-64, eu instalei o office 32. Alem das incompatibilidades, muitos componetes activeX nao estão presentes nesta versao. Então se voce tem uma planilha que utiliza algum componente incompativel com o 64, nao ira funcionar e voce nao poderá mais utilizar esta planilha.

Pelo que estou vendo, voce esta fazendo um controle de estoque e arquivaando o historico de vendas. Minha sugestão seria utilizar o excel para inserir ( e tratrar ) os dados e um bd para 'guardar' os dados. Segue em anexo um exemplo pronto c/ bd access, para você ter uma ideia de como pode ser adaptado ao sua necessidade. Controle de Stock.zip

Marcos, quando voce coloca uma senha de acesso em uma Pasta de Trabalho, ela fica criptografada e outros aplicativos não mais poderão 'buscar' dados. Minha sugestão é voce ocultar as abas que contem os dados restritos. Segue o exemplo em anexo com algumas explicacoes, para você. entender melhor. E para buscar os dados da pasta de trabalho, existem varias formas. Por ex. voce pode usar o recurso nativo do excel-> Dados-> Obter dados externos-> De outras Fontes -> Microsoft Query,-> selecione "Excel Files" e seta o direitorio e a pasta de trabalho e siga os passos do assistente. Segue abaixo em exemplo com macro. Private Function GetValue(path, file, sheet, ref) ' Obter dados de uma pasta_de_trabalho fechada Dim arg As String ' Verifique se o arquivo existe If Right(path, 1) <> "\" Then path = path & "\" If Dir(path & file) = "" Then GetValue = "File Not Found" Exit Function End If ' Cria o argumento arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) ' Executa a macro... GetValue = ExecuteExcel4Macro(arg) End Function Sub BuscarDados() p = "C:\Users\admin\Desktop\SuaPasta" ' diretorio da pasta de trabalho f = "OcultandoAbasUsandoSenha.xlsm" ' nome da pasta de trabalho s = "Sheet1" 'nome aba q deseja importar a = "B4" ' celula q deseja importar MsgBox GetValue(p, f, s, a) End Sub OcultandoAbasUsandoSenha.zip

Veja no anexo se é isso que precisa: CaioTeste-v1.zip

Se esses dados desta coluna seguirem este padrão, voce pode utilizar a formula abaixo: =ESQUERDA(A1,4) ou =DIREITA(A1,4)

Segue exemplo que cria a pasta backup caso nao exista e a funcao que cria backup Sub CriaPasta_Backup() On Error Resume Next Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(ThisWorkbook.path & "\BACKUP") Then ' verifica se ja existe a pasta Else: MkDir ThisWorkbook.path & "\BACKUP" ' se nao existir cria End If End Sub Function BackXls() Dim CopiaSegura As Object Dim Caminho As String MyXlsPath = ThisWorkbook.path & "\" & ThisWorkbook.Name Caminho = ThisWorkbook.path & "\BACKUP\" 'Nome da pasta e nome de inicio para o banco de backup Set CopiaSegura = CreateObject("Scripting.FileSystemObject") CopiaSegura.CopyFile MyXlsPath, Caminho & Format(Now, "_ddmmyyyy") & ".XLSM" End Function

Queila seja bem vinda a bordo. Sim, mas o ideal é que voce poste sua planilha ou um exemplo proximo para q possamos aplicar o codigo de acordo c/ seu cenario.

Segue me anexo exemplo de envio de email com horario pre-determinado. (* nao testado) Envio Email com horario determinado.xls

Veja se as alter. lhe atende, a macro abre o txt em um "workbook temp", em seguida copia e cola para a sua planilha(aba) ativa. Sub ImpTxtWorkbookAtivo() Dim Arquivo As Variant Dim TempWb As Workbook Dim DestinoSh As Worksheet: Set DestinoSh = ThisWorkbook.ActiveSheet Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt") If Arquivo = False Then Exit Sub Application.ScreenUpdating = False Workbooks.OpenText Filename:=Arquivo, _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, _ Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True Set TempWb = ActiveWorkbook TempWb.ActiveSheet.Columns("A:Z").Copy DestinoSh.Range("A1") TempWb.Close savechanges:=False Application.ScreenUpdating = True End Sub

você. pode usar esta udf (funcao), abaixo, juntamente com cont.se: Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End IfNext dataxEnd Function =CountCcolor(Intervalo; celula com a cor desejada) fonte: https://support.microsoft.com/en-us/kb/2815384

Ola mineiro99, seja bem vindo a bordo, Veja se o resultado pode ser neste formato? https://www.dropbox.com/s/slmcf0913jfgask/Datas_X_disciplina-v1.xlsm?dl=0

Eu sugiro q nao aproveite topicos de outros usuarios para pedir ajuda e crie um novo, anexando (zipado) sua planilha ou um modelo bem proximo do real.

André, seja bem vindo a bordo. ja tentou inserir desta forma: txtregistro.Text = Format(ActiveCell.Offset(0, 6).Value, "dd/mm/yyyy")

Yasmim, seja bem vinda a bordo, Segue ex. q procura na plan. ativa as palavras listada na coluna A da plan2 e deleta linha inteira da plan ativa: * insira os nomes dos paises q deseja deletar na coluna "A" da plan2 Sub ProcuraeDeleta() Dim ProcCell As Range Dim j As Long Application.ScreenUpdating = False With Sheets("Plan2") ' altere aqui de acordo c/ nome sua plan, onde esta o q quer deletar For j = 1 To .Range("A" & Rows.Count).End(xlUp).Row Set ProcCell = ActiveSheet.Range("A:A").Find(what:=.Range("A" & j).Value) Do Until ProcCell Is Nothing ProcCell.EntireRow.Delete Set ProcCell = ActiveSheet.Range("A:A").FindNext Loop Next End With Application.ScreenUpdating = TrueEnd Sub

Para fazer upload da plan voce precisa zipa-la.

Seja bem vindo a bordo, Se puder compartilhar sua planilha ou um exemplo proximo, fica mais fácil entender esse senário e contribuirá p/ breve retorno para solução do seu problema.

Opa é isso ai, vamos incrementar.... tem que aproveitar o maximo os recursos que temos prá facilitar nossa vida.. beleza. .fico no aguardo. abx.

Sem querer me intrometer na forma q vocês trabalham ai, mas já que voce esta criando tipo um espelho da NF, poderia ter a opção no form de inserir a quantidade de produtos que vem na caixa (embalagem), o valor unitario (conf. pedido de compra) do produto e ao final, a planilha ja calcula o total e compara com o total da NF, pois as vezes o vendedor que que emitiu o pedido se engana na hora de fechar o preço e ai voce cobra a dif. dele. abx. .

Obrigado joao.vieira pelos elogios a gente faz o que pode... Se tiver acesso ao seu BD, fica fácil com comando sql o excel buscar as informações nele. Segue em anexo, como o processo automatizado, Ao invés do Evento AfterUpdate(), eu usei o _KeyDown no textBox do cod barras. E tambem eu desabilitei a propriedade .TabStop em todos os controles, exeto ao textbox cod. barras, para o foco se 'concentrar' apenas neste campo. Pra testar, se nao estiver c/ o scanner na mao, digite o cod barras 'manualmente' em seguida digite o {Enter} . Se interessar eu posso dar maozinha pra integrar o excel ao bd. abx. CONFERENCIA_MERCADORIA-v3.zip

joao.vieira, só uma sugestão quando se trata de banco de dados, o ideal ao invés de usar o excel para essa funcao, usar o access por exemplo, integrado, para evitar que voce perca algum dado por uso involuntario ou evitar a perda quando o excel fica corrompido o que é normal acontecer. Bom mas vamos ao seu caso, eu nao entendi direito, voce disse [ ele acrescente apenas +1 unidade na coluna "Quantidade], mas tem um trecho no codigo para acrescentar 10, nesta coluna [ ActiveCell.Offset(0, 7).Value = 10 ] ? Outra sugestão: o leitor de codigo de barras, normalmente vem configurado para apos ler o codigo, inserir o { Enter }, voce poderia aproveitar esse recurso e fazer tudo automatico, ou seja ao escanear, fazer as verificacoes e inserir as informçoes, sem que o usuario precise clicar no botao inserir, fica um trabalho mais ágil. Veja o anexo eu usei a funcao "Find" para procurar o codigo na coluna "A" da aba Conferencia. CONFERENCIA_MERCADORIA-v1.zip

Guilherme, mudei o codigo para o modulo 1 e agora as duas sheets usam o mesmo codigo. abx. Report 2015 - ESN.zip

Pra mim aqui funcionou direitinho. Realmente não sei te dizer sem ver sua plan. Verifique se procedeu a alteração do cod corretamente. Quanto ao botão voce pode substitui-lo por um atalho de teclado. Altere no nome da sub: Private Sub CommandButton1_Click() -> para Public Sub CommandButton1_Click() volte a planilha aperte ALT + F8 e selecione a respectiva macro e na janela em opções escolha uma tecla, de preferência a letra "q" ou "w" abx.