Ir ao conteúdo
  • Cadastre-se

danielcastrro

Membro Júnior
  • Posts

    6
  • Cadastrado em

  • Última visita

Reputação

0
  1. @deejaywesley certo, será que tem forma de me ajudar a fazer uma macro para resolver o meu problema? Agradecia lhe do fundo do coração!
  2. @deejaywesley @Basole Basicamente é este arquivo. (exemplo - principal) Imagina que queria guardar por laboratório (coluna C) os vários dados desse laboratorio, em que guardasse o ficheiro so com os dados de cada laboratório e com o próprio nome desse laboratório. Basicamente era segmentar por laboratório, guardando em vários ficheiros .xlsx com o respectivo nome de laboratório. (conforme os 2 ficheiros em anexo) (guardar os varios xlsx numa pasta especifica) Pode-me ajudar pf? Muito muito obrigado!! Atral - arquivo final.xlsx Exemplo - Principal.xlsx Merck - arquivo final.xlsx
  3. Obrigado pela ajuda mas nao consegui. Em formato .xls eu consigo fazer e nao dá nenhuma erro. Mas o meu objetivo é fazer extrair em formato .xlsx sem o erro que coloquei em anexo.
  4. Muito boa noite, Estou com um problema numa macro que fiz. Ao aplicar a macro, o objectivo é o excel guardar a folha do ficheiro em formato .xls. Mas quando o vou abrir esse novo .xls aparece este aviso. Como corrijo isto? ( em anexo) Aqui está a macro. Muito Muito Obrigado Sub Loop_Through_List() Dim cell As Excel.Range Dim rgDV As Excel.Range Dim DV_Cell As Excel.Range Set DV_Cell = Range("Z2") Set rgDV = Application.Range(Mid$(DV_Cell.Validation.Formula1, 2)) For Each cell In rgDV.Cells DV_Cell.Value = cell.Value Call PDFActiveSheet Next End Sub Sub PDFActiveSheet() Dim myFile As Variant Dim strFile As String Dim sfolder As String On Error GoTo errHandler sfolder = GetFolder() exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub Function GetFolder() Dim sfolder As Object, NomePasta Set sfolder = CreateObject("Scripting.FileSystemObject") NomePasta = "C:\Users\DC\Desktop\Nova pasta (2)" & "\" & "Encomenda" If Not sfolder.FolderExists(NomePasta) Then sfolder.CreateFolder (NomePasta) End If Sheets("Encomenda").Copy With ActiveSheet.UsedRange .Value = .Value End With Set wbNew = ActiveWorkbook wbNew.SaveAs "C:\Users\DC\Desktop\Nova pasta (2)" & "\" & "Encomenda" & "\" & Range("Z2") & ".xlsx" wbNew.Close True Application.DisplayAlerts = True End Function
  5. Boa tarde. ANTes de mais muito obrigado pela ajuda. Eu tenho uma validação de dados no excel em lista. E possível guardar vários pdf com Vba fazendo rolar a lista 1 a 1? Muito obrigado

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...