Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Execução por click

Ir para baixo 
2 participantes
AutorMensagem
lucas7005




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

Execução por click Empty
MensagemAssunto: Execução por click   Execução por click EmptyQui 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Execução por click Empty
MensagemAssunto: Re: Execução por click   Execução por click EmptyQui 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
Ir para o topo Ir para baixo
lucas7005




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

Execução por click Empty
MensagemAssunto: Re: Execução por click   Execução por click EmptyQui 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Execução por click Empty
MensagemAssunto: Re: Execução por click   Execução por click EmptyQui 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
Ir para o topo Ir para baixo
lucas7005




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

Execução por click Empty
MensagemAssunto: Re: Execução por click   Execução por click EmptyQui 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...
Ir para o topo Ir para baixo
Conteúdo patrocinado





Execução por click Empty
MensagemAssunto: Re: Execução por click   Execução por click Empty

Ir para o topo Ir para baixo
 
Execução por click
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Erro em tempo de execução
» Erro em tempo de execução 9
» Erro te tempo de execução 13
» Erro em tempo de execução '91'
» Barra percentual do progresso de execução de uma macro

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: