Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Limpar células de Várias Guias

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Limpar células de Várias Guias   Sab Mar 01, 2014 10:46 pm

Boa tarde!!

Como limpar dados em várias guias de arquivo.
Código:


Sub LimparDados_AleVBA()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    Dim sheetArray As Variant
    sheetArray = Array("Guia1", "Guia2", "Guia3") 'Ajustar conforme sua necessidade
    For i = 0 To UBound(sheetArray)
        For Each ws In Sheets
            If ws.Name = sheetArray(i) Then
                LastRow = Sheets(sheetArray(i)).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                Sheets(sheetArray(i)).Range("A2:E" & LastRow).ClearContents 'Ajustar conforme sua necessidade
            End If
        Next ws
    Next i
    Application.ScreenUpdating = True
End Sub

Att Laughing 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Limpar células de Várias Guias
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Limpar células do excel
» Células
» Entrando de férias até dia 02/02/2011
» [RESOLVIDO]Gerar objetos em posições aleatórias dentro de um círculo
» Como mesclar células do fórum (tal como no phpBB3)

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: