Elektroda.pl
Elektroda.pl
X
SterControl
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Excel - Usuwanie wiersza jeżeli Interior.ColorIndex

Voof 05 Kwi 2015 20:54 639 4
  • #1 05 Kwi 2015 20:54
    Voof
    Poziom 11  

    Witam,
    męczę się z jedną rzeczą w vba.
    Muszę przelecieć wszystkie wiersze ( od dołu ).
    W każdym wierszu kolejna pętla sprawdza każdą komórkę z warunkiem.
    Warunek jest taki, że jeśli w pętli napotka wiersz, w którym w żadnej komórce nie będzie koloru, to ma go usunąć.

    If cell.Interior.ColorIndex <> -4142 Then
    założyłem, że ma to być taki warunek.
    Niżej wklejam kod, prosiłbym o przeanalizowanie i podanie prawidłowego kodu.
    W komentarzach jest inny for i inny if, nie wiem który będzie prawidłowy.
    W sumie kod działa tak, że usuwa mi wszystkie wiersze, nawet te które mają kolor.
    Z góry bardzo dziękuję.

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 4
  • SterControl
  • Pomocny post
    #2 05 Kwi 2015 21:09
    JRV
    Specjalista - VBA, Excel

    Witaj
    'Next cell ' przed 'If zmienna = False Then '

    Dodano po 2 [minuty]:

    a jeszcze
    For Each cell In rng.rows(i).Cells

    1
  • SterControl
  • #3 05 Kwi 2015 21:28
    Voof
    Poziom 11  

    JRV napisał:
    Witaj
    'Next cell ' przed 'If zmienna = False Then '

    Dodano po 2 [minuty]:

    a jeszcze
    For Each cell In rng.rows(i).Cells


    pięknie dziękuję. kod działa teraz perfekcyjnie.
    jeszcze jedno. mógłbym prosić, żeby dodał Pan kod który zrobi to dla każdego worksheeta w workbooku ?

    0
  • Pomocny post
    #4 05 Kwi 2015 21:46
    JRV
    Specjalista - VBA, Excel

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    1
  • #5 05 Kwi 2015 22:08
    Voof
    Poziom 11  

    JRV napisał:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    ponownie pięknie dziękuję. kod działa teraz perfekcyjnie.
    Temat zamykam, Pan JRV rozwiązał wszystkie moje problemy.

    0