Yohana dos Santos Dias

Olá, osvaldomp, Funcionou perfeitamente, muito obrigada pela ajuda.

Olá pessoal, boa tarde. Tenho dados em uma guia do excel e gostaria de extrair alguns intervalos de colunas para um arquivo a ser criado ao executar o código. Com o código abaixo eu consigo extrair a guia desejada contendo todos os dados e não somente o intervalo desejado. Exemplo do desejado: Copiar os dados da Guia (RELATORIOS), intervalo de colunas "A : D e G : H". Private Sub ExportarPlanilhas_Click() 'Declarar variáveis Dim stCaminho As String Dim stNomeArquivo As String Dim stNomePlanilha As String Dim stNovaPasta As String 'Capturar o endereço da pasta (diretório) que contém o arquivo stCaminho = ThisWorkbook.Path 'Definir o nome da nova pasta a ser criada stNovaPasta = "RELATORIOS" stCaminho = stCaminho & "\" & stNovaPasta 'Criar uma nova pasta, dentro da pasta que contém o arquivo 'chamada RELATORIOS. 'Se a pasta já existir, o código seguirá para a linha seguinte On Error Resume Next MkDir stCaminho 'Capturar o nome do arquivo stNome = ThisWorkbook.Name 'Loop para percorrer as planilhas do arquivo For Each ws In ThisWorkbook.Worksheets 'Capturar o nome da planilha stNomePlanilha = ws.Name 'Testar se o nome da planilha é BANCODEDADOS If stNomePlanilha = "BANCODEDADOS" Then 'Se o nome for igual a BANCODEDADOS, a planilha é movida para um 'novo arquivo do Excel ws.Copy 'O novo arquivo é salvo, no formato do arquivo em uso pelo Excel 'e seu nome é definido como o nome da planilha, seguida do nome do arquivo ActiveWorkbook.SaveAs _ Filename:=stCaminho & "\" & stNomePlanilha & "-" & stNome, _ FileFormat:=ThisWorkbook.FileFormat 'O novo arquivo é fechado ActiveWindow.Close SaveChanges:=False End If Next ws End Sub

Osvaldomp, muito obrigada pela a sua ajuda! Funcionou perfeitamente no meu formulário. Abraços, Yohana.

Funcionou perfeitamente, porém, aproveitando o ensejo, para calculo de semestre?

No campo EXAME PERIÓDICO, tem a textbox1 preenchida com o dia em que o funcionário realizou o exame, e na minha TextBox36 será preenchida automaticamente acrescentando mais dois anos contando a partir da data da minha textbox1. MedicinaDoTrabalho.xlsm

Preciso preencher uma data automaticamente no textbox do meu formulário, por exemplo: tenho uma textbox da data que o meu funcionário fez o exame periódico, sendo que esse exame é bienal, então assim que eu preencher a data que foi realizado o exame periódico preciso que seja preenchido automaticamente em uma outra textbox acrescentando mais dois anos a partir da data do exame realizado, por exemplo: meu funcionário fez o exame no dia 09/04/2016, automaticamente é preenchido na outra textbox a data 09/04/2018.

Basole, Muito obrigada, deu super certo, era isso mesmo que estava precisando.

ESTOU CRIANDO UMA PLANILHA PARA TREINAMENTOS GOSTARIA QUE OS TREINAMENTOS OBRIGATÓRIOS NAS COLUNAS (G,V e AT) QUANDO NÃO ESTIVEREM COM DATA A LINHA DO LISTVIEW FIQUE EM VERMELHO... ComiteUlt.xlsm