Pessoa2009

Boa noite pessoal. Eu gostaria de uma macro com três funções: 1) Imprimir a página 2 da planilha 2) salvar a planilha na pasta ativa no formato xlsm com nome e um valor da célula C1 3) salvar a planilha na pasta ativa no formato PDF com nome e um valor da célula C1 É possível?

Boa tarde pessoal. Tenho duas macros e gostaria que depois que a primeira terminasse o processo, a segunda iniciasse. Abaixo segue as macros Sub cola_proxima_vazia1() Sheets("Resultado final").Select Range("A23:F30").Select Selection.Copy Sheets("Resultados da competição").Select Range("A1").Select Do If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell = "" ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False End Sub Public Sub Imprime_Round_1() Dim W As Integer W = Range("o2").Value ActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=True On Error Resume Next Dim Caminho As String Caminho = ThisWorkbook.Path & "\" ActiveWorkbook.SaveAs Filename:=Caminho & [c1].Value & ".xlsm" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [c1].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=5, To:=5, OpenAfterPublish:=False MsgBox ("Resultado de : ") & [c1].Value & " foi salvo." _ , vbInformation, "IFBB-RIO" ActiveWorkbook.Save Application.Quit End Sub

Se alguem puder ajudar ficaria muito grato. Expliquei com detalhes para que possam entender minha necessidade. É uma apuração de campeonatos onde os atletas recebem notas dos árbitros e para definir desempate existem alguns critérios e não consegui fazer no excel. (A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (1) N° Arb1 Arb2 Arb3 Arb4 Arb5 Arb6 Arb7 Arb8 Arb9 Total (2) 22 1 2 2 4 2 1 4 1 2 9 (3) 23 2 1 3 3 1 2 2 2 1 9 (4) 24 3 3 1 2 3 3 1 3 3 14 (5) 25 4 4 4 1 4 4 3 4 4 20 Essa apuração é realizada com a soma das notas de cada árbitro para cada atleta exceto as duas melhores e duas piores notas A classificação final se da com o vencedor aquele que obtem o menor valor do somatório Ainda assim, ocorre empate e os criterios são os seguintes: 1 criterio - atleta que obtver maior quantidade de melhor nota (1° lugar) exceto as descartadas Ex. Atleta 22 tem (um) primeiro lugar Atleta 23 tem (um) primeiro lugar Continuam empatados 2 criterio - atleta que obtiver maior quantidade da segunda melhor nota (2° lugar) exceto as descartadas Ex. Atleta 22 tem (quatro) segundos lugares Atleta 23 tem (quatro) segundos lugares Continuam empatados 3 critério - atleta que obtiver maior quantidade da terceira melhor nota (3° lugar) exceto as descartadas Ex. Atleta 22 não tem terceiro lugar Atleta 23 ão tem terceiro lugar Continuam empatados 4 criterio - atleta que obtiver maior quantidade da quarta melhor nota (4° lugar) exceto as descartadas Ex. Atleta 22 não tem quarto lugar Atleta 23 ão tem quarto lugar Continuam empatados Permanecendo todos empatados, repete se o procedimento agora CONSIDERANDO AS NOTAS DESCARTADAS 5 criterio - atleta que obtver maior quantidade de melhor nota (1° lugar) CONSIDERANDO AS DESCARTADAS Ex. Atleta 22 tem (tres) primeiros lugares Atleta 23 tem (tres) primeiros lugares Continuam empatados 6 criterio - atleta que obtver maior quantidade de segunda melhor nota (2° lugar) CONSIDERANDO AS DESCARTADAS Ex. Atleta 22 tem (quatro) segundos lugares Atleta 23 tem (quatro) segundos lugares Continuam empatados 7 criterio - atleta que obtver maior quantidade de terceira melhor nota (3° lugar) CONSIDERANDO AS DESCARTADAS Ex. Atleta 22 não tem terceiro lugar Atleta 23 tem (dois) terceiros lugares DESEMPATADOS, ONDE O ATLETA 23 SERÁ O VENCENDOR CASO CONTUASSEM EMPATADOS, O DESEMPATE SE DARIA PELA NOTA DO ÁRBITRO N° 1 MAIS EXPERIENTE Segue planilha anexo para facilitar Obrigado desde já

Bom dia tenho o código abaixo que salva arquivo excel como nome o valor de uma célula no formato xlsm e pdf. Após a rotina o novo arquivo é fechado. Gostaria que ajudassem para um ajuste onde após a rotina de fechamento do novo arquivo, a macro abrisse o arquivo original automaticamente para novo calculo Public Sub Imprime_Apuracao_1()Dim W As IntegerW = Range("p126").ValueActiveWindow.SelectedSheets.PrintOut From:=5, To:=W, Copies:=1, Collate:=TrueOn Error Resume NextDim Caminho As StringCaminho = ThisWorkbook.Path & "\"ActiveWorkbook.SaveAs Filename:=Caminho & [a126].Value & ".xlsm"ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Caminho & [a126].Value & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=5, To:=5, OpenAfterPublish:=FalseMsgBox ("Resultado de : ") & [a126].Value & " foi salvo." _ , vbInformation, "IFBB-RIO" ActiveWorkbook.Save Application.QuitEnd Sub