- 19 Out 2015 às 14:50
#4479
Olá galera bom dia!
Tenho 2 comandos funcionando muito bem, em meu formulário. Só que... Eu quero fundir a função desses dois botões em um único botão. Salvar/Editar. Como faze-lo? Obrigado
detalhes:
Comandos do Botão Salvar:
Range("A1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
N°Cadastro = Caixa_N°Cadastro
data = Caixa_Data
nome = Caixa_Nome
Endereço = Caixa_Endereço
bairro = Caixa_Bairro
ActiveCell = N°Cadastro
ActiveCell.Offset(0, 1).Select
ActiveCell = data
ActiveCell.Offset(0, 1).Select
ActiveCell = nome
ActiveCell.Offset(0, 1).Select
ActiveCell = Endereço
ActiveCell.Offset(0, 1).Select
ActiveCell = bairro
ActiveCell.Offset(0, 1).Select
Comandos do Botão Editar:
totalregistro = Worksheets("Banco de Dados").UsedRange.Rows.Count
For i = 0 To totalregistro
If Caixa_Localizar.ListIndex = i Then
End If
Next
Set plan = Sheets("Banco de Dados")
linha = 3
N°Cadastro = Caixa_N°Cadastro
data = Caixa_Data
nome = Caixa_Nome
Endereço = Caixa_Endereço
bairro = Caixa_Bairro
plan.Select
linha = plan.Range("A:A").Find(Caixa_N°Cadastro).Row
With plan
.Cells(linha, 1) = Caixa_N°Cadastro
.Cells(linha, 2) = Caixa_Data
.Cells(linha, 3) = Caixa_Nome
.Cells(linha, 4) = Caixa_Endereço
.Cells(linha, 5) = Caixa_Bairro
End with
Tenho 2 comandos funcionando muito bem, em meu formulário. Só que... Eu quero fundir a função desses dois botões em um único botão. Salvar/Editar. Como faze-lo? Obrigado
detalhes:
Comandos do Botão Salvar:
Range("A1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
N°Cadastro = Caixa_N°Cadastro
data = Caixa_Data
nome = Caixa_Nome
Endereço = Caixa_Endereço
bairro = Caixa_Bairro
ActiveCell = N°Cadastro
ActiveCell.Offset(0, 1).Select
ActiveCell = data
ActiveCell.Offset(0, 1).Select
ActiveCell = nome
ActiveCell.Offset(0, 1).Select
ActiveCell = Endereço
ActiveCell.Offset(0, 1).Select
ActiveCell = bairro
ActiveCell.Offset(0, 1).Select
Comandos do Botão Editar:
totalregistro = Worksheets("Banco de Dados").UsedRange.Rows.Count
For i = 0 To totalregistro
If Caixa_Localizar.ListIndex = i Then
End If
Next
Set plan = Sheets("Banco de Dados")
linha = 3
N°Cadastro = Caixa_N°Cadastro
data = Caixa_Data
nome = Caixa_Nome
Endereço = Caixa_Endereço
bairro = Caixa_Bairro
plan.Select
linha = plan.Range("A:A").Find(Caixa_N°Cadastro).Row
With plan
.Cells(linha, 1) = Caixa_N°Cadastro
.Cells(linha, 2) = Caixa_Data
.Cells(linha, 3) = Caixa_Nome
.Cells(linha, 4) = Caixa_Endereço
.Cells(linha, 5) = Caixa_Bairro
End with