Notifications
Clear all

Cadastro - Preenchimento de Célula

4 Posts
3 Usuários
0 Reactions
1,170 Visualizações
(@odorizi)
Posts: 0
New 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)
Posts: 0
New Member
 

Você pode usar

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

e tirar o select

 
Postado : 25/04/2017 2:46 pm
(@brunoxro)
Posts: 0
New 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
(@odorizi)
Posts: 0
New Member
Topic starter
 

Obrigado Syrax e Brunoxro, utilizei o metodo do Syrax e deu certo!

 
Postado : 26/04/2017 2:03 pm