Cadastro - Preenchimento de Célula

2024 - VBA & Macros

Post Recente por odorizi 8 anos atrás

4 Posts

3 Usuários

0 Reactions

1,185 Visualizações

RSS

odorizi

(@odorizi)

Posts: 9

Active Member

Topic starter

Boa Tarde Amigos,
estou elaborando uma planilha, aonde tem um cadastro de duplicatas. Esta funcionando a macro e Ok! Porém, tem um detalhe que gostaria de mudar e gostaria de uma ajuda.
O detalhe é simples, quando o preenchimento é feito, ele seleciona primeiro a planilha pra depois escolher a celula e preencher. Gostaria que a planilha não fosse selecionada, que o usuario pudesse ficar na planilha base, sem necessidade de ir até a planilha do banco de dados. COmo faço?

Estou utilizando o seguinte código no botão de INSERIR

Private Sub inserir_Click()

'Variavel que armazena a quantidade de linhas que foram preenchidas
totalregistro = Worksheets("BD-Duplicatas").UsedRange.Rows.Count + 1

'seleciona a planilha que sera preenchida
Worksheets("BD-Duplicatas").Select

'Aqui começa a gravação dos dados (CCur)
Cells(totalregistro, 1) = caixa_titulo
Cells(totalregistro, 2) = caixa_categoria
Cells(totalregistro, 3) = CDate(caixa_vencimento)
Cells(totalregistro, 4) = caixa_favorecido
Cells(totalregistro, 5) = CCur(caixa_valor)
Cells(totalregistro, 6) = caixa_status
Cells(totalregistro, 7) = observacao


'Mensagem de gravação concluida
MsgBox "Dados inseridos com Sucesso!"

'limpar dados da caixa
caixa_titulo = ""
caixa_categoria = ""
caixa_vencimento = ""
caixa_favorecido = ""
caixa_valor = ""
observacao = ""
caixa_status = ""


'colocar focu na caixa titulo
caixa_titulo.SetFocus

'ordenar por data as duplicatas
ORDENAR

End Sub

Agradeço a todos que ajudarem!

Postado : 25/04/2017 2:33 pm

Syrax

(@syrax)

Posts: 160

Estimable Member

Você pode usar

Worksheets("BD-Duplicatas").Cells(totalregistro, 1) = caixa_titulo

e tirar o select

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 25/04/2017 2:46 pm

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde odorizi,

Experimente:

With Worksheets("BD-Duplicatas").Cells(totalregistro, 1)
    
    .Value = caixa_titulo
    .Offset(0, 1).Value = caixa_categoria
    .Offset(0, 2).Value = CDate(caixa_vencimento)
    .Offset(0, 3).Value = caixa_favorecido
    .Offset(0, 4).Value = CCur(caixa_valor)
    .Offset(0, 5).Value = caixa_status
    .Offset(0, 6).Value = observacao

End With

att,

Postado : 25/04/2017 3:36 pm