Mefisto...diabeł czy anioł?

Witam.

Probuje napisaæ makro, które umo¿liwi mi automatyczne wywo³anie funkcji wyszukaj pionowo dla okre¶lonej sytuacji.

W chwili obecnej wyglada to tak:


    Range("D1").Select
    ActiveCell.FormulaR1C1 = "*"
    Selection.AutoFill Destination:=Range("D1:D28")
    Range("D1:D28").Select
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],C[1]:C[2],2,0)"
    Selection.AutoFill Destination:=Range("B1:B28")
    Range("B1:B28").Select

Wiele tu brakuje i niektóre rzeczy pewnie s± zbêdne zapewne :).

Co ma robiæ konkretnie?

Mam dane w kolumnie A i C. Wyszukuje dane z kolumny C w kolumnie A. Kiedy funkcja znajdzie takie same wpisy stawia * w kolumnie B, je¶li nie ma to wiadomo #N/D!.

Problem polega na tym, ¿e nie mam pojêcia jak siê okre¶la liczbê wierszy w zale¿no¶ci od ilo¶ci wpisów (pewnie jaka¶ pêtla sprawdzaj±ca czy s± wpisy). To samo siê tyczy w tym przypadku kolumny B jak i D.
Kolejna sprawa to kolorowanie. Chcia³ bym aby automatycznie komórki w kolumnie A, które maj± swoje odpowiedniki w C kolorowa³y siê na zielono (czyli je¶li funkcja zwraca TRUE), je¶li danych warto¶ci nie ma w C ma siê kolorowaæ na czerwono.
Czy da sie wpisaæ inny tekst ni¿ wspomniane #N/D!, je¶li funkcja zwraca FALSE? Np. je¶li jest True to niech bêdzie ta * a jak FALSE to "NIE" albo co¶ w tym stylu.

I ostatnie. Dobrze by by³o jak by to makro po wszystkim wrzuca³o warto¶ci pokolorowane na czerwono do nowo utworzonego arkusza.

Pytania bardzo 'lamerskie', ale niestety dopiero raczkuje w tym temacie ;/

Bêdê wdziêczny za pomoc :)
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl