Ir ao conteúdo
  • Cadastre-se
Silvio Copque

como usar os comandos if then e else em projetos no vba

Recommended Posts

Caros amigos:

Criei recentemente um projeto que consiste em lançar dados de um formulário para uma planilha específica clicando num botão "salvar.O que eu queria era o seguinte:

Neste formulário eu coloquei uma caixa de combinação nomeado mês. Nela contém os meses de setembro a agosto. Quando selecionar um mês específico e ao clicar no botão "salvar" os dados fossem transportados para a planilha específica ao mês selecionado. Estou usando este comando:

Private Sub CB_Salvar_Click()

Dim NR As Long

'Dim DATA As Date

Sheets("SET").Select

Range("a2").End(xlDown).Select

NR = ActiveCell.Row

Range("A150").End(xlUp).Offset(1, 0).Select

ActiveCell.Offset(0, 0).Value = TXT_NR.Text

ActiveCell.Offset(0, 1).Value = TXT_Nome.Text

ActiveCell.Offset(0, 2).Value = CB_MOD.Text

ActiveCell.Offset(0, 3).Value = CB_Mês.Text

ActiveCell.Offset(0, 4).Value = TXT_Livros.Text

ActiveCell.Offset(0, 5).Value = TXT_Brochuras.Text

ActiveCell.Offset(0, 6).Value = TXT_Horas.Text

ActiveCell.Offset(0, 7).Value = TXT_Revistas.Value

ActiveCell.Offset(0, 8).Value = TXT_Revisitas.Value

ActiveCell.Offset(0, 9).Value = TXT_Estudos.Text

Columns("A:J").AutoFit

TXT_Nome.Text = ""

CB_MOD.Text = ""

CB_Mês.Text = ""

TXT_Livros.Text = ""

TXT_Brochuras.Text = ""

TXT_Horas.Value = ""

TXT_Revistas.Value = ""

TXT_Revisitas.Text = ""

TXT_Estudos.Text = ""

Me.TXT_NR = Sheets("SET").Range("A150").End(xlUp).Row + 0

TXT_Nome.SetFocus

End Sub

Private Sub UserForm_Initialize()

Me.TXT_NR = Sheets("SET").Range("a150").End(xlUp).Row + 0

CB_MOD.AddItem "PB"

CB_MOD.AddItem "PA"

CB_MOD.AddItem "PR"

CB_Mês.AddItem "Setembro"

CB_Mês.AddItem "Outubro"

CB_Mês.AddItem "Novembro"

CB_Mês.AddItem "Dezembro"

CB_Mês.AddItem "Janeiro"

CB_Mês.AddItem "Fevereiro"

CB_Mês.AddItem "Março"

CB_Mês.AddItem "Abril"

CB_Mês.AddItem "Maio"

CB_Mês.AddItem "Junho"

CB_Mês.AddItem "Julho"

CB_Mês.AddItem "Agosto"

End Sub

Estou aberto a sugestões de alguns de vocês.

Um abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×