Forum Oficjalnego Klubu Mitsubishi - MitsuManiaki

[JCH]

Panowie.... a bardziej łopatologicznie
W Excelu nie ma funkcji "szukaj". krzychu czy Twój sposób to zdefiniowanie takiej funkcji? Gdzie to trzeba wpisać?

karolgt, Twojego rozwiązania już kompletnie nie kumam. U Marcina miała pojawiać się podpowiedź. U mnie ma się wstawić wartość w konkretną komórkę.

[krzychu]

[Juiceman]

Siemanko,

zrobiłem wczoraj swoje pierwsze dwa makra w życiu ( wiem wiem jestem genialny ).

Ale potrzebuje Waszej pomocy
Mianowicie chciałbym aby z automatu po wpisaniu w danej komórce kodu w dwóch innych wyświetlała mi się szukana nazwa dostawcy oraz kto się nim zajmuje.

Pierwsze Makro nawet zadziałało idealnie, jednak po kliknięciu na komórke w której pojawiał się wynik widoczna była formuła vlookup, a nie tekst.

Sub dostawcy()
Range("C5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R5C1,Dane!C[-2]:C,3,0)"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R5C1,Dane!C[-2]:C[11],14,0)"
Range("C7").Select
End Sub

Zrobiłem drugie makro. Problem jest taki że za każdym razem po wpisaniu nowej wartości(kodu) muszę ponownie uruchomić makro aby przeliczył mi wartości szukane.

Pytanie brzmi jak zmodyfikować to cudo aby za każdym razem po wpisywaniu nowej szukanej, z automatu aktualizowały by się szukane wartości w dwóch innych komórkach.

Sub Dostawcy1()
'
' Dostawcy1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+D
'

Range("C5").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Dane!C[-2]:C,3,0)"
Range("C5").Select
Selection.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(R5C1,Dane!C[-2]:C[11],14,0)"
Range("C6").Select
Selection.Copy
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub


Pewnie pytanie banalnie proste ale jakoś nie doszukałem się w necie odpowiedzi.

[krzychu]

Napisz funkcje jak ja wcześniej dla JCH. Wtedy w komórce do której chcesz wynik pisujesz = i nazwę swojej nowej funkcji (w parametrze np. zakres danych czy co tam potrzebujesz)...

A chodzi Ci o to, że masz gdzieś 3 kolumny kod, nazwa i kto się zajmuje? Wpisujesz gdzieś kod i w 2 komórkach obok ma to znaleźć? To można by i bez VB zrobić....

[JCH]

[jawlo]

Najprościej zrobić to przy użyciu zwykłych formuł.
Najlepiej gdy kod jest liczbowy, wtedy uzyskasz to formułą =PRZESUNIĘCIE().

[Juiceman]

Wszystko ładnie pięknie tylko nadal po zaznaczeniu (w przypadku screenu jawlo) komórki C1 - widzimy formułe jaka została użyta. A chciałbym aby nie było tego widać. Stąd w moim drugim makro została użyta funkcja wklej wartości. Jednak nie potrafię dalej tego tak zapętlić że po zmianie wartości w komórce zostaną automatycznie wklejone wartości szukane. ( nie wiem jak zrobić aby makro było uruchomione w tle i się nie wyłączało).

[krzychu]

Juiceman - zrób funkcję w innej komórce, która zwróci Ci wynik do tych komórek co chcesz. Wtedy jak funkcja jako parametr będzie przyjmować wartość z pola które zmieniasz to zadziała tak jak chcesz.

Funkcja może też wywołać procedurę? Tylko tak klikam i nie wiem czy nie ma jakiegoś ograniczenia na funkcje (że nie mogą edytować innych komórek)?

[JCH]

[Juiceman]

Chodzi mi o coś takiego:


Ukrycie funkcji nie wiem czemu - nie działa
Chciałbym aby po najechaniu na na tą komórkę C5/C6 był widoczny tylko wyświetlany tekst w zależności od kodu jaki się znajduje w komórce A5

[JCH]

[Juiceman]

Podziękować

[pamar]

No to i ja mam problem
Jak na bieżąco zabezpieczyć tabelę exela, udostępnioną on line, przed użytkownikami którzy mieli do niej dostęp ale teraz już nie chcemy żeby ten dostęp był dla nich?

[JCH]

[karolgt]

on-line tzn jak?

w sieci wewnętrznej?
przez www?
google doc?