RE: excel munkalap sorainak színezése

2011. Dec. 2., P, 08:56:06 CET

> From: techinfo-bounces+sysadmin=rszi-zirc.hu at lista.sulinet.hu [mailto:techinfo-bounces+sysadmin=rszi-zirc.hu at lista.sulinet.hu] On Behalf Of Zoltán Kurucz
> Sent: Friday, December 02, 2011 8:46 AM
> To: Techinfo
> Subject: Re: excel munkalap sorainak színezése

> ez az, erre volt szükségem, köszönöm a gyors segítséget

Szia,
na errol lemaradtam, de igy is lehetne:

    Rows(Str(Row()) + ":" + Str(Row())).Select
    Selection.Copy
    For i = Row() - 2 To 2 Step -2
        Rows(Str(i) + ":" + Str(i)).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
    Next

Az utolso paros sorra allva (azt olyanra színezed ki, amilyenre akarod), aztan el kell elinditani a makrot.
Udv, AZ