none
VBA - Preenchimento automático não pula linha RRS feed

  • Pergunta

  • Olá. Estou com um problema em um código VBA que fiz, é um formulário que ele deve preencher a linha e descer conforme mais informações são inseridas. O problema é que o formulário é inscrito encima da mesma linha.

    Alguém pode me ajudar? Sou iniciante no VBA. O código é esse:

    _______________________

    Private Sub CommandButton1_Click()
    Dim controle As Worksheet

    Set controle = ThisWorkbook.Sheets("Lista de consorciados")

    Sheets("Lista de consorciados").Activate
    ActiveSheet.Range("D10").Activate
    nr = controle.Cells(Rows.Count, 3).End(xlUp).Row + 1

    controle.Cells(nr, 4) = Me.Cotabox
    controle.Cells(nr, 6) = Me.Grupobox
    controle.Cells(nr, 7) = Me.Nomebox
    controle.Cells(nr, 8) = Me.Creditobox
    controle.Cells(nr, 14) = Me.Umbox
    controle.Cells(nr, 17) = Me.Doisbox
    controle.Cells(nr, 21) = Me.Tresbox
    controle.Cells(nr, 24) = Me.Quatrobox
    controle.Cells(nr, 27) = Me.CincoBox
    controle.Cells(nr, 31) = Me.Parceirobox

    __________________________

    quinta-feira, 18 de agosto de 2016 22:09

Todas as Respostas

  • Olá,

    E se você mudar o 3 em 

    nr = controle.Cells(Rows.Count, 3).End(xlUp).Row + 1

    para 4?

    Alexandre

    sexta-feira, 19 de agosto de 2016 01:46
  • Oi Alexandre.

    Obrigado pela ajuda! Deu certo. Foi só um detalhe. (:

    Cara, eu tenho outro problema, se puder me ajudar:

    Um dos campos para preencher é um valor numérico, o problema é que quando ele é transportado para a célula específica o número fica formatado como texto, e isso atrapalha nas fórmula que criei.

    Eu tentei colocar esse código abaixo mas o problema é que quando digita dentro do campo ele aceita apenas dois números e acrescenta quatro zeros (?). A formatação fica bugada.

    O que preciso é só que o número seja identificado como número dentro da célula, porque nessas eu tinha formato para "R$#.##0,00"

    ______________

    Private Sub Creditobox_Change()

    Creditobox.Value = Format(Creditobox, "R$ #.##0,00")

    End Sub

    _______________

    Eu também tentei deixar "Currency"

    Mas o problema é que não aceita mais que dois números também.


    • Editado Otasingle sexta-feira, 19 de agosto de 2016 14:31
    sexta-feira, 19 de agosto de 2016 14:30
  • Achei o problema! Obrigado pela ajudar;
    sexta-feira, 19 de agosto de 2016 15:27
  • Show
    sexta-feira, 19 de agosto de 2016 15:45