ArthurS

Boa noite, Prezados, criei um arquivo de mala direta com mais de 1000 fotos, porém as fotos não atualizaram sua referência. Preciso clicar em cima de cada uma e apertar “F9” para atualizar a foto. Se seleciono o texto todo (ctrl+t) e aperto "F9" o word trava. Queria criar uma macro para atualizar todas as imagens de uma só vez. Quando gravo sei que a função para atualizar fica "Selection.Fields.Update" E achei uma macro que roda em todas as imagens diminuído o tamanho, porém não atualiza a referencia. Queria que em vez de diminuir o tamanho ela atualizasse a foto. Segue a macro de edição de tamanho. Sub Macro1() Dim insertedPicture As InlineShape Dim insertedShape As Shape Dim imgMult As Single imgMult = Fields.Update For Each insertedPicture In ActiveDocument.InlineShapes insertedPicture.Select insertedPicture.Width = insertedPicture.Width * imgMult / insertedPicture.Height insertedPicture.Height = imgMult Next End Sub Queria adaptar para atualizar a imagem “ Selection.Fields.Update “ Obrigado!

acredito se possa ser feito uma formula =se, pois não vejo uma macro atendendo esta necessidade, você precisa acrescentar uma coluna, entre a data e a variável ok, =SE(n17="ok";hoje();m17) e se basear por esta coluna para realizar as conferencias, assim como pode ocultar a coluna duplicada para impressão de relatório.

Boa noite,Prezados, uma vez me ajudaram muito com uma macro em Excel, que repetia qualquer processo de Excel colocado nela em vários arquivos de Excel.Agora meu caso é no Word, preciso que a macro rode em vários arquivos do word.segue a baixo a programação em Excel que em ajudou muito, queria ver se é possível adaptar para rodar em word. CÓDIGO: SELECIONAR TODOS Sub Executar() On Error GoTo erro_executa Dim arq() As Variant Dim wbnew As Workbook, wb As Workbook Dim wnew As Worksheet Dim c As String arq = Application.GetOpenFilename("arquivos do excel (*.xl*),*.xl*", MultiSelect:=True) Set wb = ThisWorkbook Application.ScreenUpdating = False For A = LBound(arq()) To UBound(arq()) arquivoAberto = arq(A) Application.Workbooks.Open arquivoAberto Set wbnew = ActiveWorkbook wbnew.Worksheets(1).Activate Set wnew = ActiveSheet '------------------------- 'Cole/Digite a macro criada para se repetir '------------------------ Application.DisplayAlerts = False wbnew.Close True Application.DisplayAlerts = True Next A Application.ScreenUpdating = True wb.Worksheets(1).Select MsgBox "Concluído" Exit Sub erro_executa: Application.ScreenUpdating = True MsgBox "Ocorreu um erro" End Sub Obrigado!

Um dos possíveis motivos é que a planilha ou a celular esteja protegida Verifica em Revisão/ proteger(desproteger) planilha ou a pasta. O copy e cole funciona normalmente no pc, em outros arquivos?

já me responderam em outro fórum! segue link da resposta! http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=26250&p=130966&sid=5f1692c783ee473e6d93a3b020772dbe#p130966 Agradeço a atenção de todos

Boa tarde! Fiz um macro, e quero que ela se repita em todos os arquivos de uma pasta. Sub Macro2() Workbooks.Open filename:= _ "Z:\Projetos\451.xlsx" ' ESTE É O LOCAL E UM ARQUIVO, QUERIA QUE ESTE PROCESSO SE REPETISSE EM TODOS OS ARQUIVOS DESTA PASTA. Range("B60").Select Selection.EntireRow.Insert Selection.EntireRow.Insert Range("C62").Select Selection.Copy Range("C60").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos ( vazio)" Range("C62").Select Selection.Copy Range("C61").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos (carregado)" Range("C63").Select Selection.Copy Range("C62").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "Funcionamento de travas das cabeceiras e centrais (vazio)" Range("C63").Select ActiveCell.FormulaR1C1 = _ "Funcionamento de travas das cabeceiras e centrais (carregado)" Range("C49").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToLeft)).Select Range("C49:E50").Select Selection.Copy Range("C51:E72").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("F49:I50").Select Selection.Copy Range("F51:I72").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("J59").Select Selection.AutoFill Destination:=Range("J59:J62"), Type:=xlFillDefault Range("J59:J62").Select Range("B57:B58").Select Selection.AutoFill Destination:=Range("B57:B63"), Type:=xlFillDefault Range("B57:B63").Select ActiveWorkbook.Save ActiveWindow.Close End Sub Obrigado!

Não precisa de script para fazer isso.. nem "fórmula ".. o Excel tem a ferramenta chamada formatação condicional. que atende muito bem esta sua nescessidade . espero ter ajudado.

boa noite . tenho uma macro que rodo no AutoCad 2013 normalmente, porem quando tento rodar no AutoCad 2018 da erro. alguém sabe o que fazer? Obrigado. está dando erro na primeira linha Sub limites_ordenadas() Dim excelApp As Excel.Application Dim wbkObj As Workbook Dim shtObj As Worksheet Set excelApp = GetObject(, "excel.application") Set shtObj = excelApp.ActiveSheet Dim DesenhaLinha As Boolean Dim linha, linhafinal As Integer Dim ValOrdenada, ValOrdenadaAnterior, ValOrdenadaPosterior As Double Dim ValEstaca, ValEstacaAnterior, ValEstacaPosterior As Double Dim objLine As AcadLine Dim startpoint(0 To 2) As Double Dim endpoint(0 To 2) As Double DesenhaLinha = False linhafinal = InputBox("Digite o valor da linha final.") For linha = 14 To linhafinal Step 2 ValOrdenada = shtObj.Cells(linha, "t").Value ValOrdenadaAnterior = shtObj.Cells(linha - 2, "t").Value ValOrdenadaPosterior = shtObj.Cells(linha + 2, "t").Value ValEstaca = shtObj.Cells(linha, "a").Value ValEstacaAnterior = shtObj.Cells(linha - 2, "a").Value ValEstacaPosterior = shtObj.Cells(linha + 2, "a").Value If (ValOrdenadaAnterior > ValOrdenada And ValOrdenadaPosterior > ValOrdenada) Or (ValOrdenadaAnterior < ValOrdenada And ValOrdenadaPosterior < ValOrdenada) Then DesenhaLinha = True Else DesenhaLinha = False End If If DesenhaLinha = True Then startpoint(0) = ValEstaca startpoint(1) = ValOrdenada / 100 startpoint(2) = 0# endpoint(0) = ValEstaca endpoint(1) = ValOrdenada + 10 endpoint(2) = 0# Set objLine = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) End If Next End Sub

Prezados, Criei um macro porem ela está muito repetitiva. Tenho um arquivo com uma planilha padrões, e preciso colar a mesma para diversas outras planilhas na mesma pasta. Segue um pequeno pedaço para esboçar o que estou falando. Sub Macro1() Cells.Select Selection.Copy Workbooks.Open Filename:= _ "Z:\Projetos\Em andamento\FIBRIA\SEGUNDA ETAPA DE INSPEÇÃO\CHECKLIST\relatorio\3024-01-71-G-10555.xlsx" Sheets("2ª Etapa de inspeção").Select Cells.Select ActiveSheet.Paste Range("A3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='1ª Etapa de inspeção'!RC" ActiveWorkbook.Save ActiveWindow.Close Cells.Select Selection.Copy Workbooks.Open Filename:= _ "Z:\Projetos\Em andamento\FIBRIA\SEGUNDA ETAPA DE INSPEÇÃO\CHECKLIST\relatorio\3024-01-71-G-10556.xlsx" Sheets("2ª Etapa de inspeção").Select Cells.Select ActiveSheet.Paste Range("A3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='1ª Etapa de inspeção'!RC" ActiveWorkbook.Save ActiveWindow.Close Cells.Select Selection.Copy Workbooks.Open Filename:= _ "Z:\Projetos\Em andamento\FIBRIA\SEGUNDA ETAPA DE INSPEÇÃO\CHECKLIST\relatorio\3024-01-71-G-10557.xlsx" Sheets("2ª Etapa de inspeção").Select Cells.Select ActiveSheet.Paste Range("A3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='1ª Etapa de inspeção'!RC" ActiveWorkbook.Save ActiveWindow.Close Cells.Select Selection.Copy Workbooks.Open Filename:= _ "Z:\Projetos\Em andamento\FIBRIA\SEGUNDA ETAPA DE INSPEÇÃO\CHECKLIST\relatorio\3024-01-71-G-10558.xlsx" Sheets("2ª Etapa de inspeção").Select Cells.Select ActiveSheet.Paste Range("A3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='1ª Etapa de inspeção'!RC" ActiveWorkbook.Save ActiveWindow.Close . . . End Sub Obrigado!