Este fórum está sendo desativado

[vilc]

bom dia, tenho uma planilha de cadastro com formulario, queria colocar o codigo automatico e quando for cadastar um novo verificar se ja existe no banco de dados... quem poder dar um help....

[babdallas]

Anexe a planilha. Assim fica mais fácil te ajudar.

[Ryujin]

Código: Selecionar todos

Public Sub InserirDados

Dim ultimalinha As Long
Dim Ws1 As Worksheet


Set Ws1 = Worksheets("NOME DA PLANILHA ONDE QUER INSERIR")  

'Encontrar a Ultima Linha Preenchida'
        ultimalinha = Cells(Rows.Count, 1).End(xlUp).Row + 1

'nao mecha em ultimalinha , esse codigo ira fazer com que o sistema detete a ultima linha mechida ;)
            'Inserir Dados Na Base de Dados Excel'
            Ws1.Range("COLUNAS EX  ABAIXO" & ultimalinha).Value = UserForm3.TextBox1
            Ws1.Range("C" & ultimalinha).Value = UserForm3.TextBox2
            Ws1.Range("E" & ultimalinha).Value = UserForm3.ComboBox1
            Ws1.Range("D" & ultimalinha).Value = UserForm3.TextBox3
            Ws1.Range("G" & ultimalinha).Value = UserForm3.ComboBox2
            Ws1.Range("H" & ultimalinha).Value = UserForm3.ComboBox3
            
            
            
            ultimalinha = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    
            Set Ws1 = Worksheets("Util_Reg")
    
 
            Ws1.Range("A" & ultimalinha).Value = x
 
    
                MsgBox "Registado Com Sucesso!"
                  
            
        End If
        
End Sub

Aconcelho a fazer em um modulo e depois chamar para dentro do botao .
Para chamar para o botao use a seguinte funçao

Call NomeDoModulo.InserirDados (Neste caso é inserirdados porque o nome do da sub é esse)

Qualquer duvida diga ^^

[Ryujin]

Onde diz Util_Reg é o nome da sua planilha onde deseja que va inserir

Qualquer coisa digame o nome da planilha que façolhe rapidamente ...

Vou é precisar de saber os campos que precisa por exemplo nome etc etc

Força nisso

[vilc]

segue a planilha Ryujin , se poder me ajudar

[Ryujin]

Aqui esta penso que seja isto ! Qualquer coisa diga )

[vilc]

Ryujin, não esta funcionado, nao tem nada na planilha

[osvaldomp]

Seguem opções que inserem o código automaticamente e por isso dispensam a verificação se o código já existe.

opção1 - não utiliza a TxtCodigo
coloque o número 1 na célula 'A2' e na célula 'A3' coloque =SE(B3="";"";A2+1) e arraste para baixo

opção2 - não utiliza a TxtCodigo
na Sub InserirDados substitua esta linha

Código: Selecionar todos

Ws1.Range("A" & ultimalinha).Value = FrmProdutos.TxtCodigo

por esta

Código: Selecionar todos

 Ws1.Range("A" & ultimalinha).Value = Ws1.Range("A" & ultimalinha - 1).Value + 1

opção3 - carrega o código seguinte na TxtCodigo ao abrir o Form: acrescente o código abaixo no módulo do Form

Código: Selecionar todos

Private Sub UserForm_Initialize()
 TxtCodigo.Text = Application.Max([A:A]) + 1
End Sub

[Ryujin]

Ryujin, não esta funcionado, nao tem nada na planilha

No meu está Funcionando ... Testei aqui ://