Galera, é o seguinte, eu quero que as infos do meu form entrem em LINHA não em CÉLULA
é possível?
se sim, qual o código?
por favor me ajudem, é para o meu trabalho!!
desde já agradeço!!
Public Sub Salvar_Click() totalregistro = Worksheets("ASSOCIADOS").UsedRange.Rows.Count + 1 With Worksheets("ASSOCIADOS") .Cells(totalregistro, 3) = nomeartistico .Cells(totalregistro, 4) = nomecompleto .Cells(totalregistro, 5) = celcasawhats .Cells(totalregistro, 6) = Email .Cells(totalregistro, 7) = funcao .Cells(totalregistro, 8) = drt .Cells(totalregistro, 9) = rg .Cells(totalregistro, 10) = cpf .Cells(totalregistro, 11) = datanasc .Cells(totalregistro, 12) = pisnsereuf .Cells(totalregistro, 13) = endereco .Cells(totalregistro, 14) = cnh .Cells(totalregistro, 15) = estadocivil .Cells(totalregistro, 16) = dataassociacao .Cells(totalregistro, 17) = cidade End With End Sub
Eu faria assim, para colocar todos os dados de uma só vez:
Public Sub Salvar_Click() Matriz = Array(nomeartistico, nomecompleto, celcasawhats, Email, funcao, _ drt, rg, cpf, datanasc, pisnsereuf, endereco, cnh, estadocivil, _ dataassociacao, cidade) totalregistro = Worksheets("ASSOCIADOS").UsedRange.Rows.Count + 1 Worksheets("ASSOCIADOS").Range("C" & totalregistro & ":Q" & totalregistro).Value = Matriz End Sub
Só um detalhe... eu sugiro não usar o usedrange para determinar a próxima linha... Num futuro não muito distante, o used range estará zuado e não retornará a linha correta....
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Oi querido,
desculpa mas acho que nao soube me expressar.
eu quero que as informaçoes do meu formulario vá para uma planilha normal e para outra planilha (que é a cópia do cliente).
por isso em linha, pq não cabe horizontalmente.
na imagem esta o que eu quero fazer... que a informaçao entre na caixa da linha ao contrario do normal...
me fiz entender?
hum... ou seja, em uma coluna, mas várias linhas... ?? Será assim?
Public Sub Salvar_Click() With Worksheets("ASSOCIADOS") .Range("C8") = nomeartistico .Range("C10") = nomecompleto .Range("C12") = celcasawhats .Range("C14") = Email .Range("C16") = funcao .Range("C18") = drt .Range("C20") = rg .Range("C22") = cpf .Range("C24") = datanasc .Range("C26") = pisnsereuf .Range("C28") = endereco .Range("C30") = cnh .Range("C32") = estadocivil .Range("C34") = dataassociacao .Range("C36") = cidade End With End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
parece que sim, quando eu estiver em casa, testo e informo, ok?
muitissimo obrigada pela atenção )
caraaaa, muito obrigadaaaaa
salvou minha vida!!!!!!!!!!!
:*