Excel VBA configurar botão salvar

[Perllottiline]

galera td bom, sou novato aqui e tal, já vi que tem um mote de feras aqui, e eu fraldinha, gostaria de saber como configurar o botão salvar do userform, para proseguir salvando na próxima linha, pois como estou fazendo ele salva, e depois sava por cima no mesmo lugar.

Grato

[Márcio Rodrigues]

Olá Perllottiline

Fiz uma macro com as explicações no corpo do código.

Veja se é por aí!!!

http://www.sendspace.com/file/hxqb2j

Márcio

[Perllottiline]

Márcio Rodrigues muito obrigado pela atenção, mas ainda não consegui, vou explicar melhor na imagem a seguir.

só quero configurar pra salvar na linha seguinte vazia.

Grato de já.

[Márcio Rodrigues]

Olá Perllottiline

No botão SALVAR você tem que colocar o código LinhaVazia = (Sheets("Cadatro").Cells(Rows.Count, 1).End(xlUp).Row) + 1

para achar a próxima linha vazia.

Mande o arquivo que fica mais fácil ajuda-lo.

Márcio

[Perllottiline]

Márcio gostaria então que você desse uma analisada no arquivo e fizesse correções caso achasse necessárias, tem alguns botões não configurados ainda, tá meio bagunçado, não manjo nada ainda, estudando ao poucos, e esse arquivo vai ajudar no meu crescimento profissional, ele gerará minha promoção na empresa, desde já, grato mais uma vez

[Márcio Rodrigues]

Olá Perllottiline

Exclui o código do TXT_CODI_Change().

Alterei o código do BTNSALVAR_Click().

Para alterar o valor da celula, evite usar o evento Change, primeiro digite nos TextBox e depois transfira-os para a planilha/banco de dados através de um Botão Salvar.

http://www.sendspace.com/file/qv4me9

Estou enviando uma aplicação feita para outro membro do clube que talvez possa te ajudar.

http://www.sendspace.com/file/ael2by

Márcio

[Perllottiline]

Márcio mais uma dúvida

(essa é pra salvar na linha vazia, correto?) Sheets("CADASTRO").Range("U" & LinhaVazia) = TXT_FOTO.Value

(e essa é pra quando eu selecionar a célula aparece a foto que salvou, mas isso não tá dando certo, me ajuda de novo)Range("U").Select

ActiveCell.Value = fotocadastro1

Sheets("CADASTRO").Range("U" & LinhaVazia) = TXT_FOTO.Value

Range("U").Select

ActiveCell.Value = fotocadastro1

[Márcio Rodrigues]

Olá Perllottiline

Assim funcionou:

Private Sub BTNSALVAR_Click()

LinhaVazia = (Sheets("CADASTRO").Cells(Rows.Count, 1).End(xlUp).Row) + 1 ' alterado

Sheets("CADASTRO").Range("A" & LinhaVazia) = TXT_CODI.Value 'alterado

Range("U" & LinhaVazia).Value = fotocadastro1

MsgBox "EFETUADO COM SUCESSO", vbInformation, "CADASTRO"

Unload Me

End Sub

Márcio

[Perllottiline]

Márcio muito obrigado mesmo cara, que Deus continue te abençoando mais e mais.

Você poderia me dar seu contato? e-mail, face, preciso de você pra conclusão... quebro a cabeça, sou noo nos códigos e tal... mtos dles são óbvios, mas outros me eskentam a cabeça... meu face

fb

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.