Új hozzászólás Aktív témák

• #7849 Azura csendes tag

  Új Válasz 2010-08-04 14:49:40 #7849

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Azura

  csendes tag

  Sziasztok
  Írtam egy makrot és nem tudom, hogy miért vijjog, ha elindítom.
  A Vlookup-ot emeli ki, hogy az a hiba oka.
  Elvileg a sheet2-n létre van hozva egy lista (Márka). Ezt a listát meghivatkozom a sheet1-en az a1-a5 cellákban és azt szeretném, hogy ha az elem nincs benne a listában, akkor a cella szane legyen kék.

  Sub lista()
  Cells.Interior.ColorIndex = 0
  For i = 1 To 5
  If IsError(VLookup(Cells(i, 1), Márka, 1, False)) = True Then
  Cells(i, 1).Interior.Color = vbBlue
  End If
  Next
  i = i + 1
  End Sub

  Úgy sikerült, hogy a B oszlopba beírtam a képletet (=ISERROR(VLOOKUP(A1;Márka;1;FALSE))) és akkor a következő makró működött:

  Sub lista()
  Cells.Interior.ColorIndex = 0
  For i = 1 To 5
  If Cells(i, 2) = True Then
  Cells(i, 3).Interior.Color = vbBlue
  End If
  Next
  i = i + 1
  End Sub

  Előre is köszi

Új hozzászólás Aktív témák