Logo Hardware.com.br
ksalles
ksalles Novo Membro Registrado
3 Mensagens 0 Curtidas

Copias e Colar eliminando células vazias

#1 Por ksalles 26/02/2010 - 09:28
Olá,
Tenho valores nas linhas 1, 3, 4, 5 e7, da coluna A e quero copiar e colar na coluna B, porém, desconsiderando as celulas vazias da coluna A.

Copiar: A1=10,00; A3=12,00; A4=15,00; A5=2,00; A7=21,00
Colado ficaria: B1=10,00; B2=12,00; B3= 15,00; B4=2,00; B5=21,00

Alguém pode me ajudarhein.png
Ksalles
Responder
gum_evil
gum_evil Veterano Registrado
1.2K Mensagens 34 Curtidas
#4 Por gum_evil
26/02/2010 - 13:19
ksalles disse:
Ao colar, ñ quer que fiquem linhas em branco na coluna B.
O q está em A1, vai para B1
O q está em A3, vai para B2, já que A2 esta em branco.



da para vc fazer o seguinte nas cedulas em branco click com o botão direito e escolha a opção EXCLUIR, depois aparecerá um quadro nele escolha a opção deslocar cedulas para cima.
faça isso em cada cedula restante...
by Sérgio de Souza [segue eu @gum_warrior]
Adeus Wings - Sempre presente na nossa memoria. Obrigado Deus por ter conhecido ele, mesmo sendo pela internet!
#TheWarrior #TheWhosoever #prayhard

ksalles
ksalles Novo Membro Registrado
3 Mensagens 0 Curtidas
#5 Por ksalles
26/02/2010 - 16:28
Ótima a sua dica!
Aplicando, encontrei uma forma de selecionar todas as células em branco rápidamente, e aí então, utilizar a sua dica.
1- Selecione a coluna, ou intervalo, que tem as células a serem excuidas.
2- Vá em "Editar"; "Ir para..."; "Especial..."; "Em branco".
Todas as células em branco, da coluna selecionada - ou do intervalo selecinado - estarão selecionadas, aí então utilizar sua dica.
Valeu muito!!! Obrigado!
gum_evil
gum_evil Veterano Registrado
1.2K Mensagens 34 Curtidas
#6 Por gum_evil
26/02/2010 - 16:58
ksalles disse:
Ótima a sua dica!
Aplicando, encontrei uma forma de selecionar todas as células em branco rápidamente, e aí então, utilizar a sua dica.
1- Selecione a coluna, ou intervalo, que tem as células a serem excuidas.
2- Vá em "Editar"; "Ir para..."; "Especial..."; "Em branco".
Todas as células em branco, da coluna selecionada - ou do intervalo selecinado - estarão selecionadas, aí então utilizar sua dica.
Valeu muito!!! Obrigado!


que nada... tamos ai para ajudar!!!!!!punk.gif boa.gif cap_feceiro.png:
by Sérgio de Souza [segue eu @gum_warrior]
Adeus Wings - Sempre presente na nossa memoria. Obrigado Deus por ter conhecido ele, mesmo sendo pela internet!
#TheWarrior #TheWhosoever #prayhard

Jones_RB
Jones_RB Super Participante Registrado
368 Mensagens 36 Curtidas
#8 Por Jones_RB
27/02/2010 - 09:15
ksalles disse:
Olá,
Tenho valores nas linhas 1, 3, 4, 5 e7, da coluna A e quero copiar e colar na coluna B, porém, desconsiderando as celulas vazias da coluna A.

Copiar: A1=10,00; A3=12,00; A4=15,00; A5=2,00; A7=21,00
Colado ficaria: B1=10,00; B2=12,00; B3= 15,00; B4=2,00; B5=21,00

Alguém pode me ajudarhein.png
Ksalles



anexo...
pode ser feito com macro tbem.

Anexos

Sds.
Jones R. Bussmann
gum_evil
gum_evil Veterano Registrado
1.2K Mensagens 34 Curtidas
#10 Por gum_evil
03/03/2010 - 13:21
boslotim disse:
Amigo Jones,

Você teria o código dessa planilha em anexo?


não precisa de codigo quando vc clicar para baixar escolha abrir e não salvar... dai vc poderá ver o conteudo!
by Sérgio de Souza [segue eu @gum_warrior]
Adeus Wings - Sempre presente na nossa memoria. Obrigado Deus por ter conhecido ele, mesmo sendo pela internet!
#TheWarrior #TheWhosoever #prayhard

Jones_RB
Jones_RB Super Participante Registrado
368 Mensagens 36 Curtidas
#11 Por Jones_RB
03/03/2010 - 18:28
boslotim disse:
Amigo Jones,

Você teria o código dessa planilha em anexo?


Sub DelEmptyRow()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub
Sds.
Jones R. Bussmann
gum_evil
gum_evil Veterano Registrado
1.2K Mensagens 34 Curtidas
#12 Por gum_evil
03/03/2010 - 18:29
JONESBUSSMANN disse:
Sub DelEmptyRow()
Rng = Selection.Rows.Count
ActiveCell.Offset(0, 0).Select
Application.ScreenUpdating = False
For i = 1 To Rng
If ActiveCell.Value = "" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
Application.ScreenUpdating = True
End Sub



????? não entendi!
by Sérgio de Souza [segue eu @gum_warrior]
Adeus Wings - Sempre presente na nossa memoria. Obrigado Deus por ter conhecido ele, mesmo sendo pela internet!
#TheWarrior #TheWhosoever #prayhard

Responder Tópico
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal