marcio.rodrigues

Olá marcelo carlos Corrija esta parte de código: If Dir(NomePasta & "\" & "Relatório Nº " & Range("d2").Value & ".pdf") = vbNullString Then Veja se é por aí...

Olá marcelo carlos Altere estas linhas do código e teste: NomePasta = ActiveWorkbook.Path & "\Auditoria\" & Range("d6").Value 'alterado If Dir(NomePasta & "Relatório Nº " & Range("d2").Value & ".pdf") = vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=NomePasta & "\" & "Relatório Nº " & Range("d2").Value & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False Veja se é por ai!!!!

Olá marcelo carlos Na células o ideal e usar a propriedade value (Range("d6").Value) Teste... Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim caminho As String Dim pasta As Object, NomePasta Set pasta = CreateObject("Scripting.FileSystemObject") NomePasta = ActiveWorkbook.Path & "\" & Range("d6").Value 'alterado If Not pasta.folderexists(NomePasta) Then pasta.createfolder (NomePasta) End If If Dir(ActiveWorkbook.Path & "\" & Range("d6").Value & "\" & "Relatório Nº " & Range("d2").Value & ".pdf") = vbNullString Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Path & "\" & Range("d6").Value & "\" & "Relatório Nº " & Range("d2").Value & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False Else MsgBox "Arquivo já existente" Exit Sub End If Application.ScreenUpdating = True End Sub Se você quiser que o usuário altere a planilha sem fechar o form, deixe a propriedade ShowModal em FALSE. Veja se é por ai...

Olá CaueBorges Tente adaptar as suas necessidades: Sub buscarNomeAtivo() 'fonte https://docs.microsoft.com/pt-br/office/vba/api/excel.range.find nome = CStr(ActiveSheet.Cells(2, 5).Value) 'formatar para texto Dim rgn As Range With ActiveSheet.Range("A:A") Set rgn = .Find(nome, LookIn:=xlValues) If Not rgn Is Nothing Then linha = rgn.Row If ActiveSheet.Cells(linha, 2).Value = "ativo" Then MsgBox "A pessoa " & nome & " é " & ActiveSheet.Cells(linha, 2).Value Else MsgBox "A pessoa " & nome & " é " & ActiveSheet.Cells(linha, 2).Value End If Else MsgBox "A pessoa " & nome & " não foi localizada!!" End If End With End Sub Veja se é por aí...

Olá marcelo carlos Tente adpatar a sua necessidade: Sub salvarArquivo() Sheets("salvarArquivo").Select If ActiveSheet.Cells(6, 4).Value = Empty Then Exit Sub If ActiveSheet.Cells(4, 4).Value = Empty Then Exit Sub If Dir(ActiveSheet.Cells(6, 5).Value & ActiveSheet.Cells(6, 4).Value, vbDirectory) <> Empty Then Else MsgBox "diretório inexistente ou incorreto" Exit Sub End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ActiveSheet.Cells(6, 5).Value & ActiveSheet.Cells(6, 4).Value & "\" & ActiveSheet.Cells(4, 4).Value & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub Veja se é por aí...

Olá Maicon Basso dos Santos Precisamos saber como os dados serão inseridos, se vem de um arquivo externo ou não e qual tipo. Pelo exemplo que você mandou não há um formato uniforme. Pra começar você pode usar a conversão de texto pra coluna e ajustar o que ficou fora de lugar: Veja se é por ai....