activeren textbox op formulier

[kibus]

goedemiddag,

Hoe krijg ik het voor elkaar dat ondererstaand gaat werken op mijn formulier (frm1) textbox = txt1

Private Sub txt1_Change()

End Sub

Private Sub UserForm_Activate()

With ActiveSheet.frm1.txt1
                
                Set r = Sheets("ink_hist").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                            LookIn:=xlValues, _
                            lookat:=xlWhole)
                            
        If Not r Is Nothing Then
        
          .Text = "wk_52:  " & r.Offset(, 1).Value
        End If
      
      End With
      
End Sub

Alvast bedankt

 

[Wigi]

With [B]Me.[/B]txt1

 

[kibus]

Onderstaand heb ik er van gemaakt maar doet het niet ....
of moet ik ook nog iets met het formulier doen ?

Private Sub txt1_Change()
end sub

Private Sub UserForm_Activate()
Dim r As Range
With Me.txt1
                
                Set r = Sheets("week_44").Columns(1).Find(what:=Range("A" & Target.Row).Value, _
                            LookIn:=xlValues, _
                            lookat:=xlWhole)
                            
        If Not r Is Nothing Then
        
          .Text = "wk_52:  " & r.Offset(, 2).Value
        End If
      
      End With
End Sub

 

[Roncancio]

Ik heb de code aangepast.

Private Sub UserForm_Activate()
Dim r As Range
    With Worksheets("week_44").Range("A1:A1000")
        Set r = .Find(what:=Worksheets(1).Range("A" & ActiveCell.Row).Value, _
                    LookIn:=xlValues, lookat:=xlWhole)
        If Not r Is Nothing Then
            txt1.Text = "wk_52:  " & r.Offset(, 2).Value
        End If
    End With
End Sub

Is hiermee je vraag opgelost.

Met vriendelijke groet,


Roncancio

 

[kibus]

Nog niet ik heb een voorbeeld gemaakt hopelijk wordt het dan wat duidelijker in indergeval bedankt voor jullie reactie`s

 

[Roncancio]

Nog niet ik heb een voorbeeld gemaakt hopelijk wordt het dan wat duidelijker in indergeval bedankt voor jullie reactie`s

Bedoel je het zo?


Met vriendelijke groet,


Roncancio

 

[snb]

Begin bij het begin. Zie hier

 

[kibus]

Roncancio,
Jouw voorbeeld doet precies wat ik wil maar nu kopieer ik het formulier in mijn bestandje en krijg ik de melding kan het opgeven object niet vinden , enig idee?

 

[Roncancio]

Roncancio,
Jouw voorbeeld doet precies wat ik wil maar nu kopieer ik het formulier in mijn bestandje en krijg ik de melding kan het opgeven object niet vinden , enig idee?

Ik vermoed dat de benaming van de textboxen niet overeenkomen.
Stuur anders een voorbeeldbestand.

Met vriendelijke groet,


Roncancio

 

[kibus]

ik heb het op de mail gezet naar je bestand is te groot om hier te plaatsen

 

[Roncancio]

ik heb het op de mail gezet naar je bestand is te groot om hier te plaatsen

Ik heb een reactie gestuurd naar je mail met wat vragen.

Met vriendelijke groet,


Roncancio