macro komandas saīsināšana

Vai kāds lūdzu varētu palīdzēt ar šo...? Ierakstīju ar visual basic palīdzību,

Sub meklet()

'
   Range("C3").Select
   Selection.Copy
   Cells.Find(What:=Range("C3"), After:=ActiveCell, LookIn:=xlFormulas, _
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False, SearchFormat:=False).Activate
   ActiveCell.Interior.ColorIndex = 10
   Cells.FindNext(After:=ActiveCell).Activate
   ActiveCell.Interior.ColorIndex = 10
   Cells.FindNext(After:=ActiveCell).Activate
   ActiveCell.Interior.ColorIndex = 10
   Cells.FindNext(After:=ActiveCell).Activate

end sub

bet vajadzētu saīsināt šo daļu :

   ActiveCell.Interior.ColorIndex = 10
   Cells.FindNext(After:=ActiveCell).Activate

jo viņa visu laiku atkārtosie, muļķigi ir sakopēt lielā apjomā.., varbūt ir kāda vienkārša funkcija???
     

Komentāri:

#3 Eric @ 2010.04.08 17:42

ir tādas foršās lietas kā cikli..

beisikā bija laikam tā:

for mainīgais = sākumvērtība to beiguvērtība step solis do

endfor;

Paskaties manuālī

#4 karuuzo @ 2010.04.08 18:27

A ko tu gribi panākt? Varbūt pietiek ar Conditional Formatting?

m

#5 ieva33 @ 2010.04.08 19:14

Super !Paldies!!! cikli- tas bija īstais ko man vajadzētja!