Makro za nalazenje podataka na radnom listu i njegovo farbanje u neku boju ???

Pozdrav !

Napravio sam makro koriscenjem Edit / Replace ... koji mi ne radi kako sam zamislio, u prilogu dostavljam dole makro sa opisom sta je OK i opis problema, ako moze neko da mi pomogne
================================
' ok1 Macro koji farba sadrzaj celije
' Macro recorded 7/5/2008

'----kopira podatak sa selektovane celije u excelu OVO JE OK ------

Selection.Copy

'-----u polju Replace menja sadrzaj celije u bold i farba u crveno OVO JE OK-----

With Application.ReplaceFormat.Font
.FontStyle = "Bold"
.Subscript = False
.ColorIndex = 3
End With
'------ posto je selektovan podatak "y1" u celiji PC ubacuje
' taj "y1" u polje find i replace A TO NE ZELIM NEGO ZELIM
'DA BUDE NEKA PROMENJIVA KOJA CE AUTOMATSKI DA SE AZURIRA
'U ZAVISNOSTI OD PODATKA U CELIJI
Znaci kako da ubacim umesto "y1" sto se vidi dole, neku promenjivu koja
uzima podatak iz celije gde je pokazano misem. -------OVO DOLE MI JE PROBLEM

Cells.Replace What:="y1", Replacement:="y1", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Application.CutCopyMode = False
End Sub
==================================

Ili jednostavno receno ...
Problem mi je napisati makro koji farba sve podatke na radnom listu ako se selektuje celija sa tim podatkom?
Pozdrav !

Potpis

Sve je u nasim rukama i sve zavisi od nas samih !

Unesi sledeći kod unutar događaja SelectionChange za taj Sheet na kom radiš:

_{Edit: dodat fajl sa makroom.}

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Hvala Zoks,

Izvinjavam se ali ja bas nisam jako vican sa VB kodom.
Da li bi mogao ceo kod mi prikazes jer sam probao sve kombinacije kojih sam se setio.
Na primer, excel 2003 u kom radim ne prihvata tek tako.....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

jer trazi da negde ubacim End Sub a ne znam gde i u kom redu da ubacim ?
vidi kako sam uradio ali opet ne radi …
=======================
Sub ok1()

' ok1 Macro koji farba sadrzaj celije
' Macro recorded 7/5/2008

'--kopira podatak sa selektovane celije u excelu OVO JE OK-----
Selection.Copy

' definisem target value OVO NE ZNAM GDE DA UBACIM---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' ako je obeležena prazna-celija, odmah izlazi OVO JE OK---------
If ActiveCell.Value = "" Then Exit Sub

'--u polju Replace menja sadrzaj celije u bold i farba u crveno OVO JE OK----
With Application.ReplaceFormat.Font
.FontStyle = "Bold"
.Subscript = False
.ColorIndex = 3
End With

'-- posto je selektovan podatak w1 u celiji PC ubacuje taj podatak OK MI JE -------
Cells.Replace What:=Target, Replacement:=Target, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Application.CutCopyMode = False
End Sub
========================

Hvala i Veliki Pozdrav !

Potpis

Sve je u nasim rukama i sve zavisi od nas samih !

Koliko sam ja shvatio code by @3okc ubacuješ na mjesto ovoga tvog
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)" ali nemoj staviti "End Sub", on dolazi samo na kraju

btw: vidi attachment ovog posta

Veliko Hvala Zoks i Ivane,

Sad sam shvatio kako i gde se to kuca.
Udjem ja u Excel i kad sam klikno na prvu celiju, kao smajserom ofarba ga iz prve i dalje ja setam po radnom listu, koristivsi kurzorske tastere i skontam da on farba sve zivo na sta naidje, radi kao nagazna mina. :-))
Ljudi, ovaj kod je kao rucni malokalibarski mitraljeski top. Ubicu nekog sa ovim:-)))
Svaka Vam cast. Ne da radi nego ..… i previse.
Ne znam kako da vam napisem ….... sada mi je problem sto nemam kontrolu nad tim kodom.
Ispada da imam muzicke zelje ali stvarno problemi su sledeci ako mozete da otklonite :

1. Kad kliknem na celiju sa sadrzajem “y1” on meni ofarba i “y111”
Znaci tu bi trebalo nesto kao “Match case” sto ima u Edit / Find & Replace

2. Sa kurzorskim tasterom kada setam po radnom listu, farba sve zivo - pucacina na sve strane, a to bih hteo da sprecim.
Hteo bih kod bez “Selection change” nego da radi kao poseban makro koji bih (sto znam) vezao za taster. Ovim obezbedjujem normalno setanje po radnom listu odnosno kontrolu nad kodom.

Hvala unapred ako moze jos jednom da vas cimam.

Veliki Pozdrav !!!

Potpis

Sve je u nasim rukama i sve zavisi od nas samih !

Za sada sam resio ovo ....
Za problem

Treba u kodu za makro staviti LookAt:=xlWhole

Potpis

Sve je u nasim rukama i sve zavisi od nas samih !

Koristi neki prekidač, eksplicitni ili implicitni, kome ćeš pristupati iz Sheet-a, pa pre nego što bi makro počeo sa zamenom samo treba da ispita njegovu vrednost. Npr, možeš da koristiš jednu ćeliju samo za tu svrhu..

Pošto ovo rešenje već uključuje korišćenje makroa (tj ne može da ga izbegne), možeš i nekom kombinacijom iz makroa..

..kao što sam ja uradio.. :)

Promena vrednosti "na klik" podrazumeva i povratak kursora na prethodno mesto.. To znači da nam je potrebna promenljiva koja će uvek da pamti odakle smo negde došli. Ovu vrednost postavljamo odmah, još prilikom otvaranja:

---

ThisWorkbook

---

Sheet2


_{Edit: rngCrsr mora biti Public, ispravljeno u kodu i att}

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!