OreiaG

Bem estranho esse erro. Existem outras macros no seu arquivo? Você pode disponibilizar o arquivo com a macro que passei instalada?

@Elcio Silva Alves Por favor, veja se melhorou. Antes de testar, ajuste manualmente uma única vez o intervalo de impressão da planilha Etiquetanf. Sub Print_Etiquetanf() Dim i As Long, resp As Variant resp = Application.Dialogs(xlDialogPrint).Show If resp = False Then Exit Sub If MsgBox("DESEJA CONTINUAR?", vbYesNo + vbQuestion) = vbNo Then Exit Sub With Sheets("Etiquetanf") For i = 1 To .[G14] .[E14] = i ' atualiza o nº volume .PrintOut 'imprime Next End With End Sub

Acrescente a linha de comando conforme abaixo. .PageSetup.PrintArea = .Range("b2:H17").Address 'define a area a imprimir Application.Dialogs(xlDialogPrinterSetup).Show ' <--- acrescente esta linha .PrintOut 'imprime dica - ajuste manualmente apenas uma vez o intervalo de impressão e aí você pode excluir do seu código as duas linhas abaixo. .PageSetup.PrintArea = "" 'Limpa a area definida .PageSetup.PrintArea = .Range("b2:H17").Address 'define a area a imprimir

Olá, @Janilson Brito Veja se o código abaixo lhe atende. Sub BuscaData() Dim rng As Range Set rng = Sheets("DADOS - DIA").Rows(4).Find(Sheets("Passagem de Turno I").[D6]) If Not rng Is Nothing Then Sheets("DADOS - DIA").Activate: rng.Activate End Sub

Considerei que os nomes das planilhas (que você chama de abas) estão a partir de A3. =INDIRETO("'"&A3&"'!A1")

Experimente esta abaixo. Se não resolver, então anexe o arquivo com as fórmulas e informe a versão (versão de qual país) do seu Excel. =MID(B2;SEARCH("-";SUBSTITUTE(B2;C2;"");1)+3;5)

A mensagem que aparece ao clicar naquela figura indica que não existe uma macro associada a ela. Tradução: a figura é só um "enfeite" na planilha.

Possivelmente isso não seja um "bug", e sim uma macro mal elaborada ou elaborada para fins diferentes. Seria interessante você disponibilizar o código aqui no fórum. obs. após colar o código na janela de resposta, selecione-o e clique no ícone Code ( <> ) na Barra de Ferramentas da janela de resposta.

Em C2, retorna 10-01 =EXT.TEXTO(B2;LOCALIZAR("-";B2;1)-2;5) Em D2, retorna 07-01 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(B2;C2;"");1)+3;5) Em E2, retorna 03-01 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(SUBSTITUIR(B2;C2;"");D2;""))+8;5) Em F2, retorna 02-03 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(B2;C2;"");D2;"");E2;""))+13;5) Se precisar, selecione C2:F2 e arraste para baixo.

Olá, @tetchelex Anexe aqui o seu arquivo Excel com alguns exemplos representativos, não repetidos, e coloque o resultado desejado em cada exemplo.

Experimente: =MED(A3;C3) resultado 3,78% obs. a MEDIANA entre dois valores coincide com a MÉDIA entre dois valores. =MÉDIA(A3;C3) >>> resultado 3,78%

Segue uma sugestão: cole a fórmula abaixo em G4 da planilha do arquivo do post #1, arraste para a direita, arraste para baixo. =SE(E(TEXTO($D4;"ma")=TEXTO(G$2;"ma");$F4=0);TEXTO($D4+1;"dd/mm")&" "&TEXTO($E4;"0,00");SE(OU(FIMMÊS(G$2;0)<FIMMÊS($D4;1);FIMMÊS(G$2;0)>FIMMÊS($D4;$F4));"";TEXTO(DATA(ANO($D4);MÊS(G$2);DIA($D4));"dd/mm")&" "&TEXTO($E4/$F4;"0,00")))

Cole uma cópia da fórmula abaixo em C2 =ALEATÓRIOENTRE($A2/$B2-1;$A2/$B2+1) Cole uma cópia da fórmula abaixo em D2 e arraste até N2 =SE(COL(B1)=$B2;$A2-SOMA($C2:C2);SE(COL(B1)>$B2;"";ALEATÓRIOENTRE($A2/$B2-1;$A2/$B2+1)))

Olá, @Tentar Explique como você obteve os valores que você colocou em C15:N16.