VBS w Excel

[kedziu 23]

Witam, mam pewien problem. Mam w pliku excelowskim taką, można to nazwać bazę danych. Koleżanka wpadła na pomysł aby sobie zaznaczać pewne rzeczy niebieską czcionką. Chciałbym napisać takie makro, które przejedzie po danej kolumnie, sprawdzi czy czcionka jest niebieska a jeśli jest to wytnie cały wiersz i wklei go od drugiego arkusza na pozycji pierwszego wolnego wiersza.

na chwilę obecną mam takie coś, natomiast nie mam pojęcia ( z braku wiedzy \ obeznania z poleceniami vbs \ braku czasu aby zapoznać się z nim ) jak dokończyć aby to miało ręce i nogi.

 

Sub Petla_Do_While()

Do While ActiveCell.Value <> ""                                 'warunek pętli rób tak długo aż napotkasz pustą komórkę
If Selection.Interior.Color = RGB(0, 0, 255) Then               'istrukcja warunkowa If: jeżeli komórka ma kolor czerwony, wtedy
End If                                                          'koniec instrukcji warunkowej If
ActiveCell.Offset(1, 0).Range("A1").Select                      'przejdź o jedną komórkę w dół, niezależnie od koloru więc po End If
Loop                                                            'koniec pętli: wróć do linijki z Do While
End Sub

Proszę o pomoc,

Pozdrawiam,

kedziu