[ Bambocha @ 05.07.2008. 18:07 ] @
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 ! |