Cadastro de Clientes - parte12

[fscv1]

Alguém já tem a solução para este erro em tempo de execução '9', obrigada desde já

[rangel013]

querooo a aulaaa de NUMERO 13..... por favor

[bim1234567891]

po manda a aula 13 ai se nao vai ficar complicado neh professor.

[canedocampi]

GENTE FIZ AQUI E NAO DEU ERRO NENHUM A PARADA SALVA DE BOA

[edkruz29]

Bom dia amigo< gostei muito de suas aulas, preciso encotrar a aula de numero13, é q fiz todos os comandos que vc postou mas quando clicona caixa de combinação ela abre mas sem os dados já cadastrados.obrigado.

[Alexsandro111001]

por favor me explica porque que quando coloco os comandos no salvar ele mostra a seguinte mensagen,(Erro em tempo de execução '438': o objeto não aceita esta propriedade ou método) me responde por favor!!!

[2513362]

Nao consigosalvar alguem me ajuda!!!

[Willian45001]

olá professor gostaria de saber onde está o erro?... comigo não funcionou....fiz a programação conforme minha tabela...quando clico para gravar aparece a mensagem....... esperava end sud " a planilha está nomeada como bd_dados "  programação abaixo

[Willian45001]

Private Sub SALVAR_Click() totalregistro = Worksheets("bd_dados").wsedran­ge.Rows.Count + 1 With Worksheets("bd_dados") .Cells(totalregistro, 1) = RIE .Cells(totalregistro, 2) = dt .Cells(totalregistro, 3) = CCL .Cells(totalregistro, 4) = CLIENTE .Cells(totalregistro, 5) = País End With MsgBox "gravado com sucesso" muito obrigado gostaria de adquirir seu trabalho completo

[rangel013]

@Willian45001 Oii vc digitou o comando errado aki

Private Sub SALVAR_Click() totalregistro = Worksheets("bd_dados").wsedran­...

o correto é: .usedrange....

boa sorte.

[cassiablima]

Estou com um problema , estou utilizando windows 7 , e excel 2007

Esta dando um erro .

Erro em tempo de execução '9':

Subscrito fora do intervalo .

Oque fazer , por favor me ajude ,

[mike33366336]

pow legal d + mesmo recomendo para todos

mas alguém sabe onde ta a aula de nº13?

por favor respondem!!

de preferencia pra hoje!!

[biglojashop]

justamente a aula 13 é a que saberíamos o erro a respeito do comando

totalregistro = Worksheets("plan1").UsedRange.­Rows.cont + 1

Vc Fez de Propósito não é?

[biglojashop]

justamente a aula 13 é a que saberíamos o erro a respeito do comando

totalregistro = Worksheets("plan1").UsedRange.­Rows.cont + 1

[fabriciosouza32]

cade a aula 13?

[romeu267]

Bom dia... eu gostaria de adquirir o Conteúdo da aula completa...Gostaria também de alguma sugetão para compar livros de estudo..... Obs: esta faltando um monte de aula... fico no aguarde....

[beto7182]

Estou com um problema , estou utilizando windows 7 , e excel 2007

Esta dando um erro .

Erro em tempo de execução '9':

Subscrito fora do intervalo .

Oque fazer , por favor me ajude ,

Suas aulas estão 10

[PAULONEGRAO45]

Senhor,

Excelente estes vídeos aula, muito didático...Agora, está faltando a parte 13, por favor, poste esta aula para eu poder seguir na ordem correta.

Obrigado

[chazada9]

o gente boa cade sua aula numero 13? por favor estou aprendendo muito com essa aula

[paulistacabecao]

a aula esta muito boa mais falta a 13 amigo me manda ela ou volta a subir ela valeu obrigado

[gykanda]

Parabéns pelas aulas, mas também não encontro a parte 13, aonde posso encontrá-lo para completar as aulas? Obrigado.

[airavodum]

Por favor a onde eu acho a parte 13

[Lyuangel]

onde estou errando sempre aparece a frase erro em tempo de execução "9" subscrito fora do intervalo Private Sub CommandButton_salvar_Click() totalregistro = Worksheets("plan1").UsedRange.­Rows.Count + 1 With Worksheets("plan1") .Cells(totalregistro, 1) = motoclube .Cells(totalregistro, 2) = endereço .Cells(totalregistro, 3) = complemento .Cells(totalregistro, 4) = bairro .Cells(totalregistro, 5) = cidade .Cells(totalregistro, 6) = estado .Cells(totalregistro, 7) = cep ai vai ate 14

[valquimar15]

ola cade a parte 14

[analb28]

totalregistro = Worksheets("plan1").UsedRange.­Rows.Count + 1

With Worksheets("plan1")

.Cells(totalregistro, 1) = Nome

.Cells(totalregistro, 2) = Endereço

.Cells(totalregistro, 3) = Bairro

.Cells(totalregistro, 4) = Cidade

.Cells(totalregistro, 5) = Estado

.Cells(totalregistro, 6) = Cep

End With

MsgBox "gravando com sucesso"

[netogato1010]

Neto

boa tarde eu fiz ate a parte 12 é muito bom.

mas se vc teve a parte 13 era bom para min completar o cadrastro de clientes

[augustoba]

Fiz assim e funcionou: Private Sub Salvar_Click() totalregistro = ActiveSheet.UsedRange.Rows.Cou­nt + 1 With ActiveSheet.UsedRange .Cells(totalregistro, 1) = nome .Cells(totalregistro, 2) = Endereço .Cells(totalregistro, 3) = Bairro .Cells(totalregistro, 4) = Estado .Cells(totalregistro, 5) = Cidade .Cells(totalregistro, 6) = CEP End With MsgBox "Gravado com sucesso"

[themam100]

Boa noite muito bom sua iniciativa de ccompartilhar conhecimento, mas poderia nos ajudar . fiz exatemente igual .

mais também acontece o tal erro 438.

obrigado

[hesilva07]

boa tarde, eu fiz exactamente o k voce fez, mas ele nao passa para a celula a baixo, ou seja, etá sempre a por por cima da mesma celula, ajude-me pois tenho k entregar o trabalho em breve na escola. Obrigado

PS- continue, os seus videos ajudam muito!! PARABENS

[rodrigoepereira123]

totalregistro = ActiveSheet.UsedRange.Rows.Cou­nt + 1

[hugo6067]

muito bom os videos ,,,parabens pela iniciativa...

[anemastiah]

faltou explicar p/ que serve os comandos que vc digitou....pois se eu fiz algo errado não vou saber onde esta o erro.

[degarc1]

eu fiz td da maneira que foi explicado mais na hora de salva vem uma mensagem dizendo erro em tempo de execuçao 438 o objeto nao aceita esta propriedade ou metodo

[themam100]

Eu estou com o mesmo problema.