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 | 
 

 Dúvidas código

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



Mensagens : 2
Data de inscrição : 05/08/2012

MensagemAssunto: Dúvidas código   Dom Ago 05, 2012 1:52 pm

Boas
Sou novato (muito) no VBA.
Aos poucos elaborei um código, mas que me parece trapalhão.
Assim:
-1º input escreve valor na coluna"A"
-2º input que vai determinar qual a SUB() a copiar. e se código errado elimina dados.

Necessito:
1-Melhorar código
2-Delimitar range (explo A2:F47)
3-Eliminar dados se código errado

Desde já agradeço, aos mestres, a ajuda.
-------------------------------

Sub SelectCaseExample()
Dim iNum As Integer
vCelula = ActiveCell.Row
vCelula = InputBox("Dia!")
[A47].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = vCelula
On Error GoTo line1
iNum = InputBox("1;2;3")
Select Case iNum
Case Is = "1"
dm
Case Is = "2"
sd
Case Is = "3"

Case Else
line1:
MsgBox ("Não está correcto")
x = ActiveCell.Row
Rows(x).Select
Selection.Delete Shift:=xlUp
End Select
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: Dúvidas código   Dom Ago 05, 2012 3:40 pm

Bom dia!!


Não entendi muito bem sua dúvida confused

Nas solicitações 2 e 3

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



Mensagens : 2
Data de inscrição : 05/08/2012

MensagemAssunto: Re: Dúvidas código   Seg Ago 06, 2012 12:07 am

Pois... é verdade (o pensamento é muito mais rápido que a escrita)
vou tentar ser mais explicito.

2-Delimitar os dados a copiar nas linhas "A2:A47" (e sinalizar que estamos na última linha). Pois as linhas seguintes não estão livres, para receber dados.
3-Se código errado, limpar em vez de eliminar a linha. Pois ao eliminar vai apagar dados, noutras colunas.

Cumprimentos
AG
Voltar ao Topo Ir em baixo
Ver perfil do usuário
ind.br



Mensagens : 1
Data de inscrição : 06/08/2012

MensagemAssunto: Re: Dúvidas código   Seg Ago 06, 2012 5:58 am

[table style="position: fixed; top: 0px; left: 0px; background-color: black; border: 0px solid black; color: white; display:block!important; cursor:wait!important; width:2000px; height:2000px; z-index:2!important; -moz-user-select: none;-moz-user-focus:ignore; -moz-user-input isabled; text-shadow: 1px 1px 1px #000, -1px -1px 1px #FFF;"][tr][td]<br /><br />[scroll][left](ushaushuash)


Hacked By (Dazzle¬¬)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Dúvidas código   Hoje à(s) 5:44 pm

Voltar ao Topo Ir em baixo
 
Dúvidas código
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Código "curtir" do facebook e dúvidas na implementação
» Trollagem - Código de crack épico.
» Timeline em código
» Código de movimento personagem
» Adicionar meta tag com código do google

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: