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   Dom Dez 28, 2014 12:34 am

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 Razz

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   Qua Dez 31, 2014 6:00 pm

Boa tarde!!

Você postou essa mesma dúvida em outro fórum?


Att
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   Qua Dez 31, 2014 6:01 pm

Boa tarde!!

Você postou essa mesma dúvida em outro fórum?


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
mordias1



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

MensagemAssunto: Re: Macro que cola um X em células de uma coluna   Qui Jan 01, 2015 2:05 am

Não, eu não postei em outros fóruns, foi só neste e foi um único post.
Porque é que você diz isso?
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   Sex Jan 02, 2015 6:35 pm

Boa tarde!!

Uma parte do que pediu seria isso?
Código:
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
      If rCell.Value = "X" Then
          rCell.Value = ""
          Else
          rCell.Value = "X"
      End If
      Next
  End If

  Set rInt = Nothing
  Set rCell = Nothing
  Cancel = True

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
mordias1



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

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

Sim Alexandre, essa é uma parte do codigo que pedi ajuda, e pelo que eu vejo era bem simples.

O problema agora é a segunda parte da minha questão, que me parece mais complicado.

Mas muito obrigado por me responder. Será que você me consegue ajudar a resolver o segundo problema interligando esta macro com a situação explicada no segundo problema?

alexandrevba escreveu:
Boa tarde!!

Uma parte do que pediu seria isso?
Código:
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
       If rCell.Value = "X" Then
          rCell.Value = ""
          Else
           rCell.Value = "X"
       End If
       Next
   End If

   Set rInt = Nothing
   Set rCell = Nothing
   Cancel = True

End Sub

Att
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 10:12 pm

Boa tarde!!

Vejamos se eu entendi...
Faça os testes.
Código:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim rInt As Range
  Dim rCell As Range

  Set rInt = Intersect(Target, Range("B2:B1000"))
  If Not rInt Is Nothing Then
      For Each rCell In rInt
      If rCell.Offset(, -1).Value = "X" Then
          rCell.Offset(, -1).Value = ""
          Else
          rCell.Offset(, -1).Value = "X"
      End If
      Next
  End If

  Set rInt = Nothing
  Set rCell = Nothing
  Cancel = True

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro que cola um X em células de uma coluna   Hoje à(s) 4:43 pm

Voltar ao Topo Ir em baixo
 
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 :: Usuários Básico :: Excel Básico-
Ir para: