Untitled

Private Sub CommandButton3_Click()
Dim nazwa As String
nazwa = TextBox1.Value
Dim x As Range
   For Each x In Range("A2:A6")
   If StrComp(x.Value, nazwa) = 1 Then
    MsgBox nazwa
    Range("J2") = nazwa
    Range("K2") = x.Cells(G, CInt(nazwa))
    End If
    Next x

End Sub


Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub