[Rozwiązano] MS Excel 2010 - Obliczenie formuły zapisanej w sąsiedniej komórce

Witam,
jak zmodyfikować kod aby wynikiem była funkcja wyszukaj.pionowo?
próbowałem przy użyciu powyższego kodu, ale zwraca błąd run-time error 1004.
tekst wpisuje w c1, w d1 powinna pojawić się funkcja.
Załączam plik i proszę o pomoc.

Na arkushe zastap ; na , w C1

dziękuje za odpowiedz, ale niestety nie działa wciąż pomimo zmiany.

wtedy nie zastap tylko w makro FormulaLocal

tym razem działa znakomicie.
dziekuje.

Jeszcze jedno pytanie,
jak przerobić kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
Range("D1").FormulaLocal = "=" & Range("C1")
Range("C1").Activate
End Sub

żeby działał w zakresie wierszy 1-10?

Napisałeś to niejasno, czy chodzi o zakres komórek C1:C10? I czy komórki będą zmieniane pojedynczo, czy po kilka naraz? Jeśli pojedynczo i jeśli ten zakres to można tak:
Instrukcję Target.Select możesz przywrócić jeśli jest potrzebna.

Tak dokładnie to dla wszystkich komórek z zakresu c1:c10, o ile w danej komórce występuje tekst a nie liczba, zamienić ten tekst w kolumnie d na funkcje.

Mógłbyś być bardziej precyzyjny. To jest procedura zdarzeniowa, więc uruchamia się gdy zajdzie zdarzenie polegające na zmianie zawartości (treści) komórki w zakresie C1:C10. Chodzi o to czy te komórki będą wypełniane pojedynczo czy hurtem (np. przez kopiowanie). Teraz napisałeś tak, że nie wiem czy ta procedura ma się wykonać jednorazowo po zapełnieniu wszystkich komórek C1:C10, wtedy trzeba by było wywoływać ją przyciskiem lub skrótem klawiaturowym, czy ma się wykonywać natychmiast po dokonaniu zmiany w komórce (wtedy procedura zdarzeniowa).
Ale taka procedura zdarzeniowa nie zadziała, jeśli w komórce jest działająca formuła i tylko jest przeliczana, a nie edytowana.

Nie mam dużego doświadczenia w vba, dlatego może mało precyzyjne słownictwo za które przepraszam.
Myślałem o uruchomieniu procedury przy otwieraniu arkusza tj worksheet activate. Co do wypełniania kolumny c, będzie wypełniana hurtem.

Nie piszesz od razu, o co Ci dokładnie chodzi, a tu każdy szczegół ma znaczenie.
Jeśli Twój skoroszyt zawiera tylko jeden arkusz, zdarzenie Worksheet_Activate nigdy nie zajdzie, bo jedyny arkusz jest zawsze aktywny. Dopiero gdy będą dwa lub więcej arkuszy to po przełączeniu z innego arkusza na pierwszy zajdzie to zdarzenie. Przy jednym arkuszu należy oprogramować zdarzenie Workbook_Open.
W module uniwersalnym umieść procedurę:
Wywołaj tę procedurę w zdarzeniach Workbook_Open (w module skoroszytu) i Worksheet_Activate (w module Arkusza1). To drugie będzie potrzebne, gdy będzie więcej niż 1 arkusz. Przy takim sposobie działania po zmianach w kolumnie C trzeba zapisać i zamknąć skoroszyt, a następnie otworzyć ponownie, żeby procedura się wykonała. Albo gdy będzie więcej arkuszy, można przełączyć na inny arkusz, a potem wrócić do pierwszego.

działa pięknie, niestety okazało się również ze nie mogę użyć WorksheetFunction.IsText ponieważ jednak nie wszystkie tekstowe komórki maja być zamienione na funkcje.
Chce się zatem odnieść do komórek z błędem(N/D!, #AGR!), zmieniłem kod na
If IsError(cel) Then
ale niestety procedura nie działa. gdzie tkwi błąd?

Pokaż załącznik z tymi danymi i błędami. Skąd można wiedzieć dlaczego nie działa jak nawet nie opisałeś dokładnie jakie są dane i co to dokładnie znaczy "nie działa".

dodaje załącznik, procedura ma zamienić tekst z kolumny C na formułę w kolumnie d ale tylko wtedy gdy w kolumnie f jest błąd #AGR!,#N/D!

Mętnie to opisujesz, o co w tym chodzi?
Czy chcesz testować dowolny błąd (funkcja IsError testuje dowolny błąd), czy tylko wskazane błędy? Jeśli wskazane, to jakie, bo nie ma błędu #AGR!, jest albo #ADR! albo #ARG!
Poza tym to co proponujesz, jest moim zdaniem bez sensu, bo wprowadzasz do kolumny D to co już tam było, a błąd w kolumnie F też pozostaje bez zmiany.
Kod ma zaledwie kilka linijek, a nawet nie zastanowiłeś się jak on działa.
Jeśli poprzednio cel był w kolumnie C, a kopiowanie formuły było z C do D, to było tak:
Teraz cel jest w F, a kopiowanie ma być nadal z C do D, więc przesunięcia (Offset) muszą się zmienić:

Ale tak jak napisałem wcześniej nie widzę sensu w tej modyfikacji.

A gdybym wywoływał procedure kopiowania z kolumny C do D w Arkusz1 poprzez workscheet change ale komórek w zakresie a1:a6 arkusza 2 to jak do tego się zabrać? dodatkowo tylko zmieniony wiersz powinien się przeliczać tj zmiana w Arkusz2 A1 uruchamia kopiowanie formuły w Arkusz2 z C1 do D1.

Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod:

Każda zmiana w Arkusz2 A1(bez warunku isText) uruchamia kopiowanie formuły w Arkusz1 z C1 do D1 (ale tutaj już powinny się kopiować tylko jeżeli tekst). Proszę o poprawienie kodu, walczę z tym ale dociera do mnie jak mało wiem w temacie VBA.

Zobacz, czy teraz jest to o co Ci chodziło.
Target odnosi się do tego arkusza, w którym występuje zdarzenie i jest to odwołanie, a Target.Address jest tekstem adresu bez kwalifikatora arkusza, więc można go użyć w dowolnym arkuszu.

działa jak należy, teraz dopasuje do swoich potrzeb.
Dużo się przy tym nauczyłem, za co dziękuje Ci bardzo.

Rozwiązanie podał Maciej Gonet, dziękuje za pomoc