Essas duas macros estão interligadas é iniciada a sub salvar e ele pula para sub criapasta tenta criar a pasta se houver a pasta da erro mas com o tra...

Private Sub CommandButton1_Click() Dim ultimALINHA ultimALINHA = Sheets("ADMINISTRATIVO").Range("C1000000").End(xlUp)�...

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=3899 https://www.youtube.com/watch?v=_TAiItN7iPU...

Vê se isto lhe atende...

Tive uma ideia...Vc cria uma macro para tirar um print(foto) da planilha do tamanho de seu certificado e joga-la em uma imagem para receber no form.

Segue em anexo! Quando se digita ele completa se não tiver no banco de dados a letra fica vermelha...

Esse código salva planilha que quiser em pdf. Sub pdfsalva() Dim REDE Dim GetUserN Dim ObjNetwork Set ObjNetwork = CreateObject("WScr...

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=3921

Segue sem erros...

abra o vba e vá em ( esta pasta de trabalho ) coloque o código abaixo: Private Sub Workbook_NewSheet(ByVal Sh As Object) If ActiveWorkbook.Works...

Apague os dados de suas planilhas e mande o arquivos para que possamos te ajudar...

Sub soma() Sheets("Plan1").Range("A1") = Application.WorksheetFunction.Sum(Worksheets("Plan1").Rang...

Private Sub CommandButton1_Click() If TextBox1 = "" Then MsgBox "Coloque um nome para criar a planilha !" Exit Sub End If On Err...

Function Abre_Pasta() MsgBox ("Eu vou abrir o Windows Explorer para voce selecionar a pasta onde encontra-se o arquivo!") Set objShell = Cr...

Tem esse app em vba que é completo tem o arquivo e o vídeo de suas funcionalidades nos comentários do link: http://www.planilhando.com&...