Valor de célula em TextBox

[Mikel Silveira Fraga]

Boa tarde a todos.

Estou precisando muito da ajuda de todos vocês para solucionar uma rotina.

Estou com uma planilha que busca de um banco de dados as informações de entrada e saídas de visitantes da portaria de uma empresa. Entre as informações existe um campo chamado REGISTRO (Auto-Increment do MySQL, onde as informações estão arquivadas). Não tenho o limite de linha para que o relatório seja exibido, sendo que se pode exibir de 1 até 100 registros, por exemplo.

O que preciso desta planilha é, selecionar uma das células (aleatoriamente) com o número do registro e, o registro da Range selecionada, ser enviado para o TextBox localizado em um formulário de registro. Eu vi outros topicos com uma ideia parecia e tentei resolver sem pertubar, mas a rotina que encontrei no tópico não funcionou.

Alguém poderia dar uma ajuda nesse caso?

[JValq]

Bom dia,

Veja se este código de exemplo te ajuda:

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UserForm1.Show
    UserForm1.TextBox1.Text = Cells(Target.Row, 1).Value
    UserForm1.TextBox2.Text = Cells(Target.Row, 2).Value
End Sub

O código deve ser colado no evento "SelectionChange" da sua planilha.
Se preferir você pode mudar a propriedade "ShowModal" do seu formulário para "False".

Abraço

[Mikel Silveira Fraga]

JValq, bom dia.

Rapaz, o código que você colocou funcionou perfeitamente.


Vlw pela ajuda. A moçada desse fórum é show!!!!

[Mikel Silveira Fraga]

JValq, vou perturbar um pouco mais.

Adaptei o código que você enviou em minha planilha, mas estou precisando de uma coisa a mais. Quando a celular for selecioanada (por exemplo, a A4), esta linha 4 seria preenchida com um azul claro entre as colunas A e K.

Estou utilizando o seguinte código:

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    On Error GoTo Erro_Target
    
    Application.ScreenUpdating = False
    
    If Target.Activate = True Then
    
        formREGISTRO.txtREGISTRO.Value = Cells(Target.Row, 1).Value

        Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Select
        
        With Selection.Interior
            .ThemeColor = xlThemeColorLight2
            .TintAndShade = 0.9
        End With
   
    End If
       
    Application.ScreenUpdating = True
    
Erro_Target:
    
End Sub

O que estou precisando fazer é, quando uma outra célula for selecionada, a linha anterior seja preenchida entre as colunas A e K com a cor branca (voltar para a cor padrão).

Poderia dar mais essa força?

[Mauro Coutinho]

Mikel, não sei se entendi corretamente, mas veja se é isto :

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim LinhaInicio As Range
Dim Linha As Range
Dim Linha2 As Long

Cells.Interior.ColorIndex = xlNone

Linha2 = Target.Row

Set LinhaInicio = Range("A" & Linha2, Target)

Set Linha = Range(Cells(Target.Row, 1), Cells(Target.Row, 11))
        
        With Linha
            .Interior.ColorIndex = 28
        End With

End Sub

abraços

[Mikel Silveira Fraga]

Meus caros, funcionou perfeitamente a rotina.

Estou vendo que tenho muito a aprender ainda.

Mauro e JValq, muito obrigado aos dois pelas ajudas.

Abraço a todos do forum.