Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Marcel Campos

Vb para salvar automaticamente arquivo do excell

Recommended Posts

Boa tarde colegas,

 

Gostaria de saber se é possível após o botão executar a macro inserirmos um código que realize o salvamento do arquivo.

 

Exemplo

Esta macro pega as informações de um aba e joga em outras duas distintas, eu gostaria que após executar esta macro o salvamento fosse realizado automaticamente (para não depender do operador). 

Private Sub Botão2_Clique()
 Dim LRo As Long, LRd As Long, rA()
 
  If [B5] <> "" Then
   rA = Array([B5], [E5], [H5], [B7], [D7], [F7], [H7], [B9], [E9], [B11], [D11], [F11], [H11], [B13], [D13])
   LRd = Sheets("BD_Prod").Cells(Rows.Count, 1).End(xlUp).Row
   Sheets("BD_Prod").Cells(LRd + 1, 1).Resize(, 15).Value = rA
  End If
  
  If [A18] <> "" Then
   LRo = Sheets("Apontamento").Cells(Rows.Count, 1).End(xlUp).Row
   LRd = Sheets("BD_Paradas").Cells(Rows.Count, 1).End(xlUp).Row
   Sheets("BD_Paradas").Cells(LRd + 1, 1).Resize(LRo - 17, 10).Value = _
   Sheets("Apontamento").Range("A18:k" & LRo).Value
  End If
  
  Union([B5], [E5], [H5], [B7], [D7], [B9], [F11], [H11], [D13]) = ""
  Union(Range("D18:E47" & LRo), Range("G18:J47" & LRo)) = ""
MsgBox "ATENÇÃO! Salve o arquivo e Verifique as informações nos bancos de dados"
End Sub

 

DESDE JÁ OBRIGADO.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×