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 | 
 

 Execução por click

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



Mensagens : 3
Data de inscrição : 20/08/2014

MensagemAssunto: Execução por click   Qui Ago 21, 2014 4:46 pm

Olá Pessoal!

Estou com esse código abaixo que copia os dados de uma determinado range de celulas e cola em outro local, o código funciona porém não consigo que ele seja executado a cada click, se eu usar o for como no exemplo abaixo ele preenche todas as colunas as colunas de uma vez só, porém o funcionamento correto é o seguinte:
Se eu clicar no botão ele verifica a condição e se for verdadeira ela executa e a variavel linhav recebe+1 e para até o botão ser clicado novamente.

Alguém pode me ajudar como eu poderia fazer isso?

Obrigado!



Código:
Private Sub cmd_Click()

Dim linha As Integer
Dim coluna As Integer
Dim linhafinal As Integer
Dim linhav As Integer
Dim colunav As Integer
Dim colunavf As Integer

linha = 4
coluna = 7
linhafinal = 28
linhav = 36
colunav = 3
colunavf = 4

For coluna = 7 To 16 Step 1

    If (Cells(linha, coluna) = 0) Then
    
        Range("e4:e28").Select
        Selection.Copy
    
        Range(Cells(linha, coluna), Cells(linhafinal, coluna)).Select
        Selection.PasteSpecial Paste:=xlPasteValues
    
        Range("c28:d28").Select
        Selection.Copy
        
        Range(Cells(linhav, colunav), Cells(linhav, colunavf)).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        
        
        linhav = linhav + 1
    
    End If

Next



End Sub
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: Execução por click   Qui Ago 21, 2014 5:32 pm

Bom dia!!

Eu não sei se vou conseguir ajuda-lo, para que eu possa tentar, você poderia postar seu arquivo modelo?

Poste em site gratuito como sendspace ou outros, poste o link aqui.

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



Mensagens : 3
Data de inscrição : 20/08/2014

MensagemAssunto: Re: Execução por click   Qui Ago 21, 2014 7:05 pm

sendspace.com/file/9fkpz7

Segue link!

Não postei o inicio do link pois não tenho permissão para postar hehe
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: Execução por click   Qui Ago 21, 2014 7:32 pm

Boa tarde!!

Porque não usar 10 botões para que cada um execute sua respectiva coluna?

Botão1 executa para coluna7
Botão2 executa para coluna8
.......e assim por diante!!!

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



Mensagens : 3
Data de inscrição : 20/08/2014

MensagemAssunto: Re: Execução por click   Qui Ago 21, 2014 8:02 pm

Ja pensei nessa hipótese porém não teria lógica, se eu tivesse por exemplo trabalhando com uma planilha com mais colunas...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Execução por click   Hoje à(s) 4:43 pm

Voltar ao Topo Ir em baixo
 
Execução por click
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Forçar Click Do Mouse
» Mudança de cor num click
» Auto click
» xten-bux - pagamento minimo de $0,25 Click $0,02
» Como colocar games do o jogos ou click jogos

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: