Temat: pole wprowadzania danych i wyszykwania excel

mam
kolumnę A
11111
11122
kolumnę B
1234
1235
1236
kolumnę C
dane1
dane2

w komórce f1
chcę wprowadzać dane
z klawiatury
np. dane1
po nacisnięciu entera chcę wyszukać dane w kolumni 1 i kolumnie 2 jeśli zostaną odnalesione to do kolumny d w wiersz w którym zostały odnaleźone wklejam dane1
jeśli nie wypisuję dane1 na koniec kolumny a i nastepuje clear pola wpisywanie
i klepię 1234
dane zapisuję w tym samym wierszu co zostały zapisane dane 1 kolumna E i szukam następnie czy dane1 nie występują w kolumnie c jeśli występują to dane z wiersza komórki A,B,C kopiuję w ten sam wiersz co dane1 np. w kolumny G,H,I

Prośba o przykładowe arkusze ktróe robią przynajmniej coś podobnego.

Temat: pole wprowadzania danych i wyszykwania excel

Jeśli chodzi o pole wyszukiwania możesz użyć makra, które się uruchomi jak zmieni się komórka, w tym przypadku f1.
Poniższa procedura sprawdza czy wartość z komórki f1 jest w pierwszej lub drugiej kolumnie (dotyczy pierwszych 30 wierszy), jeśli znajdzie to wpisuje do czwartej kolumny. Możesz to sobie do własnych potrzeb dostosować.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 6) Then
Dim komorkaf1 As String

For i = 1 To 30
komorkaf1 = Cells(1, 6).Value
If komorkaf1 = Cells(i, 1) Or komorkaf1 = Cells(i, 2) Then
Cells(i, 4) = komorkaf1
End If
Next i
End If
End Sub

Temat: pole wprowadzania danych i wyszykwania excel

Private Sub Worksheet_Change(ByVal Target As Range)

With Target

If .Address(0, 0) = "E2" Then
Application.EnableEvents = False
If .Value <> Empty Then
On Error Resume Next
wrs = Columns(1).Find(what:=.Value, lookat:=xlWhole).Row
wrs = Columns(2).Find(what:=.Value, lookat:=xlWhole).Row
Err.Clear
If wrs <> Empty Then
Cells(wrs, 3) = Range("E2")

Else

Range("F1") = Range("E2")

End If


.Select
End If
Application.EnableEvents = True
End If
End With

End Sub

Obecnie stworzyłem coś takiego. I prośba jak napisać idą jeśli w wierszu wyszukanym jest nie pusty do zapisz wartość w kolumnie obok.