TABULACAO TEXTBOX

JULIANOAB 06/08/2012 14:41:34
#407288
Olá,

Sou iniciante em VBA e queria fazer um formulário onde eu colo uma lista de números e que cada linha entrasse em uma respectiva textbox. Exempo linha1 em textbox1.
A lista é a seguinte(exatamente assim em notepad):
400086981
400086795
400087004
400086799
400086566
400087446
E a imagem do form está em anexo
ALEVALE 06/08/2012 15:24:22
#407294
NOMEDOTEXTBOX.TEXT=VALOR1
NOMEDOTEXTBOX.TEXT=VALOR2
NOMEDOTEXTBOX.TEXT=VALOR3

E por ai vai...
JULIANOAB 06/08/2012 17:30:34
#407308
não é isso,

veja bem crie um fomulário parecido com o q passei, e depois copie a lista de números do tópico anterior e tente colar no formulário, só a primeira linha é colada as outras não, quero que cole toda lista e cada valor numa texbox diferente.
FILMAN 06/08/2012 17:43:10
#407310
Ve se isso aqui te ajuda
JULIANOAB 06/08/2012 18:08:48
#407316
hum rapaz eu acho q vc esqueceu de salvar o arquivo com macro, o que vc me passou só tem a planilha, nada de VBA.
msm assim, obrigado pela atenção
MARCELO.TREZE 06/08/2012 18:13:44
#407318
Ele quer selecionar a lista acima ou seja

400086981
400086795
400087004
400086799
400086566
400087446

e quando ele for colar, ele deseja que o VBA interprete cada linha separadamente cole nos textbox.

eu até agora nunca vi isso

o que pode ser é colar todo conteudo na primeira textbox e depois criar um slpit da string e colar cada uma em um respectivo textbox.
FILMAN 06/08/2012 19:45:26
#407328
Bom cara seguinte:

Coloque isso em um Modulo

Public vet() As Variant

Sub CopiarSelecao()
    Dim C As Integer
    Dim Cell

    C = 0
    For Each Cell In Selection
        C = C + 1
    Next Cell

    IF C <= 10 Then
        C = 0
        For Each Cell In Selection
            C = C + 1
            ReDim Preserve vet(C - 1)
            vet(C - 1) = Cell
        Next Cell

        UserForm1.Show
    Else
        MsgBox [Ô]Favor Selecionar apenas 10 linhas[Ô], vbOkOnly+vbCritical, [Ô]Erro[Ô]
    End IF
End Sub


Agora Crie um UserForm e coloque 10 TextBox

No Initialize do Userform coloque

Private Sub UserForm_Initialize()
    Dim i As Integer

    For i = 0 To 9
        Select Case i
            Case 0: TextBox1.Value = vet(i)
            Case 1: TextBox2.Value = vet(i)
            Case 2: TextBox3.Value = vet(i)
            Case 3: TextBox4.Value = vet(i)
            Case 4: TextBox5.Value = vet(i)
            Case 5: TextBox6.Value = vet(i)
            Case 6: TextBox7.Value = vet(i)
            Case 7: TextBox8.Value = vet(i)
            Case 8: TextBox9.Value = vet(i)
            Case 9: TextBox10.Value = vet(i)
        End Select
    Next
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar