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 | 
 

 Macro que cola um X em células de uma coluna

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



Mensagens : 4
Data de inscrição : 27/12/2014

MensagemAssunto: Macro que cola um X em células de uma coluna   Sab Jan 03, 2015 9:30 pm

Boas pessoal,

Preciso da vossa ajuda.
Tenho 2 problemas que precisava da ajuda de alguem que perceba de programação de macro / VBA

Primeiro problema
Tenho uma macro com função double click, que cola um X nas celulas de numa determinada Coluna (A), mas eu queria que voltando a clicar na mesma célula a macro apague esse mesmo X

Exemplo, cliquei na celula (A3) mas afinal não era aquela celula era outra, (A4), então voltava a clicar na celula (A3) e eliminava o X.

O segundo problema
Ainda dentro desta macro, eu queria colar o X na coluna A mas na realidade eu queria clicar na célula da coluna B para automaticamente colar o X na célula da coluna A

Exemplo

..|......A.......|.......B......|......C......|
..|...............|Nº Cliente| Nome
1|......X.......|...25235...|...Jose......|
2|...............|...25340...|...Carlos...|
3|...............|...25458...|...Maria....|


Ao clicar na B1 a macro colava o X na celula A1 e assim sucesivamente, clicar na B2, cola X na A2 e por ai a diante

Esta é a macro que eu encontrei que cola o X nas celulas da coluna A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rInt As Range
Dim rCell As Range

Set rInt = Intersect(Target, Range("a2:a1000"))
If Not rInt Is Nothing Then
For Each rCell In rInt
rCell.Value = "X"
Next
End If

Set rInt = Nothing
Set rCell = Nothing
Cancel = True

End Sub


Espero que alguem me consiga ajudar com uma nova macro que consiga fazer estas coisas. Eu sou um nabo em programação geek

Obrigado antecipadamente pela ajuda
Cumprimentos
RP
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Macro que cola um X em células de uma coluna   Dom Jan 04, 2015 12:40 am

Boa noite!!

Porque abrir dois tópicos para falar do mesmo assunto? No

http://profwillianexcel.forumeiros.com/t954-macro-que-cola-um-x-em-celulas-de-uma-coluna

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Macro que cola um X em células de uma coluna
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Células
» cola tudo
» Como mesclar células do fórum (tal como no phpBB3)
» DrinkCola ("simulador de Coca-Cola")
» Nova tampa da Coca-Cola -

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: