danielcastrro

Em 07/09/2016 às 04:15, deejaywesley disse:

@danielcastrro

Boa noite!

 

a planilha, Exemplo - Principal, que você postou não tem macro nenhuma nela..

???????.

 

@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!

@deejaywesley Ajude-me pf.

Obrigado

@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

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.

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

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