lucas7005
Mensagens : 3 Data de inscrição : 20/08/2014
| Assunto: 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
| |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
lucas7005
Mensagens : 3 Data de inscrição : 20/08/2014
| Assunto: 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 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
lucas7005
Mensagens : 3 Data de inscrição : 20/08/2014
| Assunto: 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... | |
|
Conteúdo patrocinado
| Assunto: Re: Execução por click | |
| |
|