Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como colocar info e...
 
Notifications
Clear all

Como colocar info em LINHA em vez de CÉLULA?

 
2024 - VBA & Macros
Post Recente por psychox 10 anos atrás
6 Posts
2 Usuários
0 Reactions
1,154 Visualizações
RSS
 psychox
(@psychox)
Posts: 7
Active Member
Topic starter
 

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
 
Postado : 26/03/2015 5:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 26/03/2015 7:41 pm
 psychox
(@psychox)
Posts: 7
Active Member
Topic starter
 

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?

 
Postado : 27/03/2015 7:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 27/03/2015 7:29 am
 psychox
(@psychox)
Posts: 7
Active Member
Topic starter
 

parece que sim, quando eu estiver em casa, testo e informo, ok?

muitissimo obrigada pela atenção :))

 
Postado : 27/03/2015 10:15 am
 psychox
(@psychox)
Posts: 7
Active Member
Topic starter
 

caraaaa, muito obrigadaaaaa
salvou minha vida!!!!!!!!!!!

:*

 
Postado : 29/03/2015 5:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico