Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problema com um cód...
 
Notifications
Clear all

Problema com um código

 
2024 - VBA & Macros
14 Posts
1 Usuários
0 Reactions
4,637 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, gostaria de saber qual é o erro no meu código...

Private Sub CommandButton1_Click()
Dim iTotalLinhas As Integer

Worksheets("Banco").Activate
Range("Banco!$a$1").Select

iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(iTotalLinhas, 1).Value = Range("CadCliente!n5").Value
Cells(iTotalLinhas, 4).Value = Range("CadCliente!n7").Value
Cells(iTotalLinhas, 5).Value = Range("CadCliente!aq7").Value
Cells(iTotalLinhas, 6).Value = Range("CadCliente!p9").Value
Cells(iTotalLinhas, 7).Value = Range("CadCliente!be9").Value
Cells(iTotalLinhas, 8).Value = Range("CadCliente!r11").Value
Cells(iTotalLinhas, 9).Value = Range("CadCliente!ba11").Value
Cells(iTotalLinhas, 10).Value = Range("CadCliente!t13").Value
Cells(iTotalLinhas, 11).Value = Range("CadCliente!m15").Value
Cells(iTotalLinhas, 12).Value = Range("CadCliente!ab15").Value
Cells(iTotalLinhas, 13).Value = Range("CadCliente!n17").Value
Cells(iTotalLinhas, 14).Value = Range("CadCliente!ad17").Value
Cells(iTotalLinhas, 15).Value = Range("CadCliente!at17").Value

MsgBox "Cliente Inserido com sucesso"

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 7:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

em vb para se referir a outra planilha utilize
....=sheets("CadCliente").range("n5")

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 8:00 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ainda não consegui, ficou assim...

Private Sub CommandButton1_Click()
Dim iTotalLinhas As Integer

Worksheets("Banco").Activate
Range("Banco!$a$1").Select

iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(iTotalLinhas, 1).Value = Sheets("CadCliente").Range("n5")
Cells(iTotalLinhas, 4).Value = Sheets("CadCliente").Range("n7")
Cells(iTotalLinhas, 5).Value = Sheets("CadCliente").Range("aq7")
Cells(iTotalLinhas, 6).Value = Sheets("CadCliente").Range("n7")
Cells(iTotalLinhas, 7).Value = Sheets("CadCliente").Range("be9")
Cells(iTotalLinhas, 8).Value = Sheets("CadCliente").Range("r11")
Cells(iTotalLinhas, 9).Value = Sheets("CadCliente").Range("ba11")
Cells(iTotalLinhas, 10).Value = Sheets("CadCliente").Range("t13")
Cells(iTotalLinhas, 11).Value = Sheets("CadCliente").Range("m15")
Cells(iTotalLinhas, 12).Value = Sheets("CadCliente").Range("ab15")
Cells(iTotalLinhas, 13).Value = Sheets("CadCliente").Range("n17")
Cells(iTotalLinhas, 14).Value = Sheets("CadCliente").Range("ad17")
Cells(iTotalLinhas, 15).Value = Sheets("CadCliente").Range("at17")

MsgBox "Pagamento Inserido com sucesso"

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 8:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

O que acontece? tem alguma msg de erro?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 8:21 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

tem...

Erro em tempo de execução '10041':
O método 'Range' do objeto '_worksheet' falhou

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 8:59 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ainda não consegui, ficou assim...

Worksheets("Banco").Activate
Range("Banco!$a$1").Select

nesse caso
Range("A1").select

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 9:15 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ainda da erro

"O metodo select da classe Range falhou"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 9:25 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Experimente alterar tb de Worksheets("Banco").Activate, para Worksheets("Banco").select
Ou então disponibilizar seu exemplo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 9:41 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue anexo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 10:10 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Assim:

Private Sub CommandButton1_Click()
Dim iTotalLinhas As Integer

    Worksheets("Banco").Activate
    Sheets("Banco").Range("a1").Select
    
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Cells(iTotalLinhas, 1).Value = Sheets("CadCliente").Range("n5")
    Cells(iTotalLinhas, 4).Value = Sheets("CadCliente").Range("n7")
    Cells(iTotalLinhas, 5).Value = Sheets("CadCliente").Range("aq7")
    Cells(iTotalLinhas, 6).Value = Sheets("CadCliente").Range("n7")
    Cells(iTotalLinhas, 7).Value = Sheets("CadCliente").Range("be9")
    Cells(iTotalLinhas, 8).Value = Sheets("CadCliente").Range("r11")
    Cells(iTotalLinhas, 9).Value = Sheets("CadCliente").Range("ba11")
    Cells(iTotalLinhas, 10).Value = Sheets("CadCliente").Range("t13")
    Cells(iTotalLinhas, 11).Value = Sheets("CadCliente").Range("m15")
    Cells(iTotalLinhas, 12).Value = Sheets("CadCliente").Range("ab15")
    Cells(iTotalLinhas, 13).Value = Sheets("CadCliente").Range("n17")
    Cells(iTotalLinhas, 14).Value = Sheets("CadCliente").Range("ad17")
    Cells(iTotalLinhas, 15).Value = Sheets("CadCliente").Range("at17")
 MsgBox "Pagamento Inserido com sucesso"
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 10:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

mas ainda n'ao ta funcionando corretamente, os dados nao estao indo pra pla (banco) e sim pra plan (cadCLiente).

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 10:36 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 11:29 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

exato, muito obrigado.
s[o mais uma coisa, como posso assim que for inserido esses dados no meu banco, fazer para limpar o formul[ario e para puxar os dados para altera;'ao

grato mais uma vez.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/09/2012 12:01 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/09/2012 11:52 am
Forum Jump:
  Tópico Anterior
Próximo Tópico