none
Colocar o Texto do TextBox na Celula Linha e Verificar. RRS feed

  • Pergunta

  • Ola tenho uma grande duvida.
    No meu codigo quero utilizar de uma TextBox em que o usuário digita seu nome e o nome e enviado para uma celula do excel, novamente se outro usuário desejar inserir o nome não quero que ele insira por cima do outro, mas quero que ele verifique se a algum texto na celula  referênte se houver ele pula para proxima. inserindo assim o texto.
    No meu codigo utilizei de uma outra ferramenta que ja tinha feito, não ficou muito bom ele busca a linha em branco mas quando começo a digitar ele aparece na celula indicada no codigo.
    Queria saber se pelo menos tem como ele pegar e colar na celula vazia " " utilizando o GetText, sei la um (.Paste).


    Private Sub TextBox1_Change()


    Dim x As String
    Dim yobject As DataObject

    Set yobject = New DataObject


    '////////////////////
    Do                                          ' Inicio do LOOP
    If IsEmpty(ActiveCell) = False Then         ' Verifica se posição tem ou não texto
        ActiveCell.Offset(1, 0).Select

    End If                                      ' Fim de IF

    Loop Until IsEmpty(ActiveCell) = True
    '///////////////////
    Sheets("Plan1").Select

    Range("A1").Select

    yobject.SetText TextBox1   'Colocar o texto no clipboard do windows

    yobject.PutInClipboard

    yobject.GetFromClipboard   'Capturar texto do clipboard do windows e colocando em uma célula do excel

    Cells(1, 1) = yobject.GetText()

    yobject.SetText ""   'Limpa o conteúdo do clipboard do windows

    yobject.PutInClipboard

    End Sub

    quinta-feira, 17 de setembro de 2009 21:41

Respostas

  • Olá...

    Baixe a planilha que criei...no link
    http://www.4shared.com/file/64125627/4d475485/Login.html

    Toda vez que um usuário faz o login é gravado numa planilha que está oculta...
    Na planilha clique em usuários( a senha é ADM)...cadastre um usuário e depois faça o login.

    Entra no código e olhe a rotina como que funciona...Verifica ultima linha preenchida e grava na linha posterior...

    Private Sub GravaLogin()
        LastRow = Sheets("Meses").Cells(Rows.Count, 1).End(xlUp).Row
        If Sheets("Meses").Cells(1, 1) = "" Then
           Sheets("Meses").Cells(LastRow, 1).Value = Cb_usuario
           Sheets("Meses").Cells(LastRow, 2).Value = Now
        Else
           Sheets("Meses").Cells(LastRow + 1, 1).Value = Cb_usuario
           Sheets("Meses").Cells(LastRow + 1, 2).Value = Now
        End If
    End Sub


    Se solucionar marque como resposta..
    Até..
    • Marcado como Resposta FerreiraE sexta-feira, 26 de fevereiro de 2010 13:55
    segunda-feira, 21 de setembro de 2009 20:19