Formulário userform VBA Excel

[fcmulazzani]

Olá pessoal!

Estou enviando um formulário de cadastro que estou desenvolvendo mas estou tendo algumas dificuldade com algumas configurações. O formulário esta em anexo no link abaixo.

1º - Gostaria de inserir uma linha em branco na planilha fornecedores, ou seja eu gostaria que a linha 1 ficasse em branco, mas quando insiro bagunça todo o cadastro por meio do formulário.

2º - Gostaria que quando insiro um novo cadastro as fórmulas das Colunas "Q" e "S" e de outras colunas que futuramente vou inserir acompanhassem o preenchimento das linhas, ou seja, quando inserir o Codigo 4 essas formulas aparecessem nessas células, porque se arrasto as formulas o formulário de cadastro entende como já cadastrado conforme se vê no codigo 3.

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

Obrigado!

[Obadia]

Olá pessoal!

Estou enviando um formulário de cadastro que estou desenvolvendo mas estou tendo algumas dificuldade com algumas configurações. O formulário esta em anexo no link abaixo.

1º - Gostaria de inserir uma linha em branco na planilha fornecedores, ou seja eu gostaria que a linha 1 ficasse em branco, mas quando insiro bagunça todo o cadastro por meio do formulário.

2º - Gostaria que quando insiro um novo cadastro as fórmulas das Colunas "Q" e "S" e de outras colunas que futuramente vou inserir acompanhassem o preenchimento das linhas, ou seja, quando inserir o Codigo 4 essas formulas aparecessem nessas células, porque se arrasto as formulas o formulário de cadastro entende como já cadastrado conforme se vê no codigo 3.

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

Obrigado!

Caro amigo fcmulazzani,

Você teria que declarar uma variável no botão "ok", para não dar erro com o último dado preenchido. Segue um exemplo abaixo:

ult_linha = ThisWorkbook.Sheets("plan1").Range("a65536").End(xlUp).Row * -1

b = (ult_linha * -1) + 1

For Each preenchimento In ThisWorkbook.Sheets("plan1").Range("a" & b & ":i" &

Abs,

[fcmulazzani]

Caro amigo fcmulazzani,

Você teria que declarar uma variável no botão "ok", para não dar erro com o último dado preenchido. Segue um exemplo abaixo:

ult_linha = ThisWorkbook.Sheets("plan1").Range("a65536").End(xlUp).Row * -1

b = (ult_linha * -1) + 1

For Each preenchimento In ThisWorkbook.Sheets("plan1").Range("a" & b & ":i" &

Abs,

Muito obrigado Obadia,

Você poderia inserir isso no meu código, eu não tenho esse conhecimento, apenas sei fazer formulários. Fico muito agradecido pela sua ajuda.

[fcmulazzani]

Olá pessoal, será que alguem poderia me ajudar, se precisar de mais informações é so me pedir.

Obrigado