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

Category

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