Excel Macro - Copy Paste visicle cells

Coisas que acontecem no trabalho....
Precisava de uma macro que copia-se apenas as células visíveis, e as volta-se a colar na mesma ordem em  células apenas visíveis....
depois de uma longa pesquisa na net encontrei uma macro que fazia qq coisa parecido...
com uns ajustes aqui e ali lá fiz a macro...
agora é só seleccionar as células que se quer copiar e activar a macro.... depois é sé escolher a área que se quer colar e voilá...

deixo o código da macro:

Sub Copiar_Celulas_Visiveis()
 Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
Set from = Selection
Set too = Application.InputBox("Selecione o intervalo de células de destino", Type:=8)
For Each Cell In from
Cell.Copy
For Each thing In too
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Set too = thing.Offset(1).Resize(too.Rows.Count)
Exit For
End If
Next
Next
End Sub


0 comentários:

 

Seguidores

Google+ Followers

Category

photos movies filmes fotos BroTTasPhotos brottas arte photo foto bikes caminhar chicksandbikes 2015 fotos movie caminhar 2015 daily photo desenho musica music imagens passeios geocaching postais Btt Fotografos artistas projecto 2013 MOleskine Treinos videos art postcrossing TuGa Filmes 2014 Ferramentas tools run pintura youtube saltos tugas espectáculos passeio jump geo Ferias chickosandbikes series teatro caminhar 2014 vinhos artistas 2013 viajar bicicletas portugal cinema design tv berlim desafio fotográfico photoshop restaurantes beer bike quadros cerveja futebol livros tool Artistas 2014 wines filme food comida futsal books myspace praias sites comida que eu gosto corrida gps BroTTasArT concertos viagens desenhos calendarios jumps video pocket calendars signos Lisboa popcorn photography. software ak47 comida brottas desporto fds festas férias tattoos dança exposição gear google mapas portutal terror travel 2014 musica DAF bizarro cris eventos festa gpx motas online urbana airsoft bimby dmp facebook flickr gratis jogos maggelan museus no comments peddy paper people pessoas pub refeições tecnologia vimeo web BD Prémios ae android apresentação apresentações baptismo bar blitz caminh canoagem casas de sonho cascais comédia cultura de borla curtas dieta efeitodoslivros estilos experiências fado feliz 2014 formação free fun gmail hoteis humor informática instalações kml legendas... loucuras magellan manutenção meandyou mergulho mo motos nasa nice spots noticias ovies paginas passatempo posters premios publicidade... relogios rideabike rir sapo sardinhas setubal shows sim se ela quiser sopa styles subtitles sugestões testes thiller thriller trabalho tumblr técnologia util vampiros vide visitas. voar xpogo

Número total de visualizações de página