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 foto photo bikes caminhar chicksandbikes 2015 fotos caminhar 2015 movie daily photo desenho musica imagens music passeios geocaching Btt postais Fotografos projecto 2013 MOleskine Treinos videos TuGa art Filmes 2014 artistas Ferramentas run tools pintura postcrossing youtube saltos tugas espectáculos jump geo passeio Ferias chickosandbikes teatro caminhar 2014 series vinhos artistas 2013 viajar bicicletas cinema design tv berlim desafio fotográfico photoshop restaurantes quadros bike portugal beer cerveja futebol Artistas 2014 tool livros wines filme futsal books food myspace sites corrida praias BroTTasArT concertos gps comida desenhos viagens calendarios jumps video pocket calendars signos comida que eu gosto popcorn photography. software Lisboa ak47 desporto fds festas férias tattoos dança gear portutal terror 2014 musica DAF bizarro cris eventos exposição festa google motas travel airsoft bimby comida brottas dmp facebook flickr gpx gratis jogos maggelan mapas museus no comments online peddy paper people pessoas pub refeições tecnologia urbana 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