Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Salvar dados Com Critério em 2 Plan

Tópicos relacionados a códigos VBA, gravação de macros, etc.
 Resposta
  • Avatar do usuário

Salvar dados Com Critério em 2 Plan

Por Luciano021273
Posts
-  05 Jul 2016 às 17:58 #12486
Boa tarde a todos!

Venho por meio desta pedir desculpa para todos os professores do forum, por ficar peguntando as vezes coisas fácies de mais, ou muitas vezes nem consigo perguntar ( me expressar direito) me atrapalho todo,outras nem sigo as regras do forum, em fim sou atrapalhado que é uma beleza... Mas tenho muita vontade de aprender e o forum vem me ajudando muito, muitas vezes com perguntas de outros integrantes que vou fazendo aqui meus codigos. criei uma meta de fazer um formulario de clientes e estou conseguindo aos poucos...


minha duvida dessa vez é: tenho um userform , e com o botão salvar dados, quero ao salvar alimente 2 plan, a plan 1 e a plan 26
criei um procedimento uma rotina que vou colocar o codigo a baixo, porém os dois codigos estão funcionando, só que juntos eles não funcionan, exemplo:

ele captura um nome e nessa linha ele faz substituição e acrescenta alguns dados, só que quando tento fazer os dois codigos funcionar o mesmo tempo em uma plan ele pesquisa o cliente e coloca na linha certa, mas na outra plan ele joga as informação referente a linha da outra plan, ele não captura o cliente para colocar na mesma linha,
separados os dois códigos funcionam correto juntos não da certo...


Plan1.Select <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Range("A2").Select

Dim AMD As Long
Dim MD As Worksheet

Set MD = Worksheets("Cadastro_de_Clientes")
Range("a2").Select

While ActiveCell <> ""
If cbCodCliente.Text = ActiveCell Then
If MsgBox("CLIENTE JÁ EXITE, DESEJA SUBSTITUIR?", vbYesNo) = vbYes Then
AMD = ActiveCell.Row

MD.Cells(AMD, 110).Value = Me.txtValorTotal.Value
MD.Cells(AMD, 111).Value = Me.cbFormaPgto.Value
MD.Cells(AMD, 112).Value = Me.TextBox1.Value
MD.Cells(AMD, 113).Value = Me.cbCondPgto.Value
MD.Cells(AMD, 114).Value = Me.txtValorEntrada.Value
MD.Cells(AMD, 115).Value = Me.txtValorParcela.Value
MD.Cells(AMD, 116).Value = Me.txtTotalFinanciamento.Value
MD.Cells(AMD, 117).Value = Me.txtVencimentoParcela.Value

Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Wend

If cbPesqNomeCliente.Value = "" Then
'MsgBox " SELECIONE ALGUM NOME PARA PODER CADASTRAR!"
Exit Sub
End If
AMD = ActiveCell.Row

MD.Cells(AMD, 110).Value = Me.txtValorTotal.Value
MD.Cells(AMD, 111).Value = Me.cbFormaPgto.Value
MD.Cells(AMD, 112).Value = Me.TextBox1.Value
MD.Cells(AMD, 113).Value = Me.cbCondPgto.Value
MD.Cells(AMD, 114).Value = Me.txtValorEntrada.Value
MD.Cells(AMD, 115).Value = Me.txtValorParcela.Value
MD.Cells(AMD, 116).Value = Me.txtTotalFinanciamento.Value
MD.Cells(AMD, 117).Value = Me.txtVencimentoParcela.Value


Plan26.Select<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Range("A2").Select

Dim iRow As Long
Dim WS As Worksheet

Set WS = Worksheets("Orçamentos_BD")
Range("a2").Select

While ActiveCell <> ""
If cbCodCliente.Text = ActiveCell Then
If MsgBox("CLIENTE JÁ EXITE, DESEJA SUBSTITUIR?", vbYesNo) = vbYes Then
iRow = ActiveCell.Row

WS.Cells(iRow, 1).Value = Me.cbCodCliente
WS.Cells(iRow, 2).Value = Me.cbPesqNomeCliente.Value
WS.Cells(iRow, 3).Value = Me.cx_NomeProjetista.Value
WS.Cells(iRow, 4).Value = Me.cx_NomeNegociador.Value
WS.Cells(iRow, 5).Value = Me.txtValorTotal.Value
WS.Cells(iRow, 6).Value = Me.TextBox1.Value
WS.Cells(iRow, 7).Value = TextBox2.Value
WS.Cells(iRow, 8).Value = Me.cbCondPgto.Value
WS.Cells(iRow, 9).Value = Me.cbFormaPgto.Value
WS.Cells(iRow, 10).Value = Me.txtValorEntrada.Value
WS.Cells(iRow, 11).Value = Me.txtVencimentoParcela.Value
WS.Cells(iRow, 12).Value = Me.txtPorcentagem.Value
WS.Cells(iRow, 13).Value = Me.txtValorFinanciar.Value
WS.Cells(iRow, 14).Value = Me.txtValorParcela.Value
WS.Cells(iRow, 15).Value = Me.txtTotalFinanciamento.Value
WS.Cells(iRow, 16).Value = Me.txtCodI.Value
WS.Cells(iRow, 17).Value = Me.cmbAmbienteI.Value
WS.Cells(iRow, 18).Value = Me.valorfinal1.Value
WS.Cells(iRow, 19).Value = Me.txtCodII.Value
WS.Cells(iRow, 20).Value = Me.cmbAmbienteII.Value
WS.Cells(iRow, 21).Value = Me.valorfinal2.Value
WS.Cells(iRow, 22).Value = Me.txtCodIII.Value
WS.Cells(iRow, 23).Value = Me.cmbAmbienteIII.Value
WS.Cells(iRow, 24).Value = Me.valorfinal3.Value
WS.Cells(iRow, 25).Value = Me.txtCodIV.Value
WS.Cells(iRow, 26).Value = Me.cmbAmbienteIV.Value
WS.Cells(iRow, 27).Value = Me.valorfinal4.Value
WS.Cells(iRow, 28).Value = Me.txtCodV.Value
WS.Cells(iRow, 29).Value = Me.cmbAmbienteV.Value
WS.Cells(iRow, 30).Value = Me.valorfinal5.Value
WS.Cells(iRow, 31).Value = Me.txtCodVI.Value
WS.Cells(iRow, 32).Value = Me.cmbAmbienteVI.Value
WS.Cells(iRow, 33).Value = Me.valorfinal6.Value
WS.Cells(iRow, 34).Value = Me.txtCodVII.Value
WS.Cells(iRow, 35).Value = Me.cmbAmbienteVII.Value
WS.Cells(iRow, 36).Value = Me.valorfinal7.Value
WS.Cells(iRow, 37).Value = Me.txtCodVIII.Value
WS.Cells(iRow, 38).Value = Me.cmbAmbienteVIII.Value
WS.Cells(iRow, 39).Value = Me.valorfinal8.Value
WS.Cells(iRow, 40).Value = Me.txtCodIX.Value
WS.Cells(iRow, 41).Value = Me.cmbAmbienteIX.Value
WS.Cells(iRow, 42).Value = Me.valorfinal9.Value
WS.Cells(iRow, 43).Value = Me.txtCodX.Value
WS.Cells(iRow, 44).Value = cmbAmbienteX.Value
WS.Cells(iRow, 45).Value = Me.valorfinal10.Value
WS.Cells(iRow, 46).Value = Me.txtCodXI.Value
WS.Cells(iRow, 47).Value = Me.cmbAmbienteXI.Value
WS.Cells(iRow, 48).Value = Me.valorfinal11.Value


MsgBox "Cliente Substituido com Sucesso!!!", , ""
Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Wend



If cbPesqNomeCliente.Value = "" Then
MsgBox " SELECIONE ALGUM NOME PARA PODER CADASTRAR!"
Exit Sub
End If
iRow = ActiveCell.Row


WS.Cells(iRow, 1).Value = Me.cbCodCliente
WS.Cells(iRow, 2).Value = Me.cbPesqNomeCliente.Value
WS.Cells(iRow, 3).Value = Me.cx_NomeProjetista.Value
WS.Cells(iRow, 4).Value = Me.cx_NomeNegociador.Value
WS.Cells(iRow, 5).Value = Me.txtValorTotal.Value
WS.Cells(iRow, 6).Value = Me.TextBox1.Value
WS.Cells(iRow, 7).Value = TextBox2.Value
WS.Cells(iRow, 8).Value = Me.cbCondPgto.Value
WS.Cells(iRow, 9).Value = Me.cbFormaPgto.Value
WS.Cells(iRow, 10).Value = Me.txtValorEntrada.Value
WS.Cells(iRow, 11).Value = Me.txtVencimentoParcela.Value
WS.Cells(iRow, 12).Value = Me.txtPorcentagem.Value
WS.Cells(iRow, 13).Value = Me.txtValorFinanciar.Value
WS.Cells(iRow, 14).Value = Me.txtValorParcela.Value
WS.Cells(iRow, 15).Value = Me.txtTotalFinanciamento.Value
WS.Cells(iRow, 16).Value = Me.txtCodI.Value
WS.Cells(iRow, 17).Value = Me.cmbAmbienteI.Value
WS.Cells(iRow, 18).Value = Me.valorfinal1.Value
WS.Cells(iRow, 19).Value = Me.txtCodII.Value
WS.Cells(iRow, 20).Value = Me.cmbAmbienteII.Value
WS.Cells(iRow, 21).Value = Me.valorfinal2.Value
WS.Cells(iRow, 22).Value = Me.txtCodIII.Value
WS.Cells(iRow, 23).Value = Me.cmbAmbienteIII.Value
WS.Cells(iRow, 24).Value = Me.valorfinal3.Value
WS.Cells(iRow, 25).Value = Me.txtCodIV.Value
WS.Cells(iRow, 26).Value = Me.cmbAmbienteIV.Value
WS.Cells(iRow, 27).Value = Me.valorfinal4.Value
WS.Cells(iRow, 28).Value = Me.txtCodV.Value
WS.Cells(iRow, 29).Value = Me.cmbAmbienteV.Value
WS.Cells(iRow, 30).Value = Me.valorfinal5.Value
WS.Cells(iRow, 31).Value = Me.txtCodVI.Value
WS.Cells(iRow, 32).Value = Me.cmbAmbienteVI.Value
WS.Cells(iRow, 33).Value = Me.valorfinal6.Value
WS.Cells(iRow, 34).Value = Me.txtCodVII.Value
WS.Cells(iRow, 35).Value = Me.cmbAmbienteVII.Value
WS.Cells(iRow, 36).Value = Me.valorfinal7.Value
WS.Cells(iRow, 37).Value = Me.txtCodVIII.Value
WS.Cells(iRow, 38).Value = Me.cmbAmbienteVIII.Value
WS.Cells(iRow, 39).Value = Me.valorfinal8.Value
WS.Cells(iRow, 40).Value = Me.txtCodIX.Value
WS.Cells(iRow, 41).Value = Me.cmbAmbienteIX.Value
WS.Cells(iRow, 42).Value = Me.valorfinal9.Value
WS.Cells(iRow, 43).Value = Me.txtCodX.Value
WS.Cells(iRow, 44).Value = cmbAmbienteX.Value
WS.Cells(iRow, 45).Value = Me.valorfinal10.Value
WS.Cells(iRow, 46).Value = Me.txtCodXI.Value
WS.Cells(iRow, 47).Value = Me.cmbAmbienteXI.Value
WS.Cells(iRow, 48).Value = Me.valorfinal11.Value

se alguém puder me ajudar, peço desculpa por ficar peguntando essas coisas que sei que é fácil, mas sozinho não sei fazer, não consigo... Agradeço pela oportunidade...

Deus abençoe a todos!!!
Avatar do usuário

Re: Salvar dados Com Critério em 2 Plan

Por alexandrevba
Avatar
-  06 Jul 2016 às 08:20 #12495
Bom dia!!!

Bom seria se eu pudesse responder e testar, mas como não tenho seu arquivo...
Tem algumas opções....
Use a estrutura With End With

Passe para outra guia ativando a...
Código: Selecionar todos
'Plan26.Select<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Plan26.Range("A2").Select
Código: Selecionar todos
'Plan1.Select<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Plan1.Range("A2").Select
Att
 Resposta
 Voltar para “Macros e VBA”
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

READ MORE
Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

READ MORE
Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

READ MORE
Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

READ MORE

Estamos migrando para uma comunidade no Discord

ENTRAR PARA DISCORD