LOOKUP

'Option Explicit

Private Sub Lookup(ByVal Target As Range, ByVal ColNum As Integer, ByVal WS_DataBase As String)
    Dim Found As Integer
        Found = 0

    If ColNum = 1 Then
        For i = 0 To Application.WorksheetFunction.CountA(Worksheets(WS_DataBase).Range("A:A")) - 2
            If Worksheets(WS_DataBase).Range("A2").Offset(i, 0).Value = Target.Value Then
                Target.Offset(0, 1).Value = Worksheets(WS_DataBase).Range("A2").Offset(i, 1).Value
                Target.Offset(0, 2).Value = Worksheets(WS_DataBase).Range("A2").Offset(i, 2).Value
                Target.Offset(0, 3).Value = Worksheets(WS_DataBase).Range("A2").Offset(i, 3).Value
                Target.Offset(0, 4).Value = Worksheets(WS_DataBase).Range("A2").Offset(i, 4).Value
                Found = Found + 1
            End If
        Next i
    End If

    If ColNum = 3 Then
        For i = 0 To Application.WorksheetFunction.CountA(Worksheets(WS_DataBase).Range("A:A"))
            If Worksheets(WS_DataBase).Range("C2").Offset(i, 0).Value = Target.Value Then
                Target.Offset(0, -2).Value = Worksheets(WS_DataBase).Range("C2").Offset(i, -2).Value
                Target.Offset(0, -1).Value = Worksheets(WS_DataBase).Range("C2").Offset(i, -1).Value
                Target.Offset(0, 1).Value = Worksheets(WS_DataBase).Range("C2").Offset(i, 1).Value
                Target.Offset(0, 2).Value = Worksheets(WS_DataBase).Range("C2").Offset(i, 2).Value
                Found = Found + 1
            End If
        Next i
    End If

    If Found = 0 Then
        MsgBox ("Nie znaleziono")
    ElseIf Found > 1 Then
        MsgBox (Found & " zduplikowane pozycje")
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    Dim WS_DataBase As String
        WS_DataBase = "B"
'SIZE
    If Selection.Count > 1 Then
        MsgBox ("Zaznaczono więcej niż jedną komórkę")
        Target.Value = ""
        Application.EnableEvents = True
        Exit Sub
    End If

'CLEAR
    If Target.Value = "" And Target.Row > 1 Then
        Target.Rows.EntireRow.ClearContents
    End If

'LOOKUP
    If Target.Row > 1 Then
        If (Target.Column = 1 Or Target.Column = 3) And Target.Value <> "" Then
            Call Lookup(Target, Target.Column, WS_DataBase)
        Else
        Target.Rows.EntireRow.ClearContents
        End If
    End If

    Application.EnableEvents = True
End Sub