Keskustelu: Ohjelmointikysymykset: VBA: Alueen valinta Excelin makroilla

Tarkoituksena olisi esim.värittää ennen makron suorittamista valittu alue, sekä valitun alueen oikealla puolella olevasta sarakkeesta solut jotka ovat samolla riveillä kuin valittu alue.

Alla oleva koodi on nauhoitettu, mutta ongelmana on se että valittu alue ei ole aina saman kokoinen. Osaisiko joku neuvoa miten homman saisi toimimaan? Pystyykö valitun alueen rivimäärän otettua vaikka muutujaksi?

Sub Makro3()

    ActiveCell.Range("A1:F15,H1:H15").Select
    ActiveCell.Offset(0, 7).Range("A1").Activate
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

Tarvitsen tätä hiihtokisa tulospalveluun, jos jollakin sattus olemaan jotain muuta tällästä ajatellen niin apu ois tervetullutta.

Toimiiko tämä makro haluamallasi tavalla?

Sub Macro1()
    Dim alue As Range
    Set alue = ActiveWindow.RangeSelection
    Dim x As Long, y As Long
    For y = alue.Row To alue.Row + alue.Rows.Count - 1
        For x = alue.Column To alue.Column + alue.Columns.Count
            With Cells(y, x).Interior
                .ColorIndex = 6
                .Pattern = xlSolid
            End With
        Next
    Next
End Sub

Toimii Kiitos

Uutta ongelmaa vain tuntuu pukkaavan. Miten sais txt-tiedostoon talletettua valitulta alueelta A ja C sarakkeessa oleva tiedot? Samalla rivillä olevat pitäs olla myös teksti tiedostossa samalla rivillä ja vielä nii että solujen väliin tulis )-merkki ja välilyönti.

Viittiskö joku auttaa alottelijaa, VB:ll osaan tehä talentamista, mutta ongelmat lienee solujen valinnassa.

Kiitos jo etukäteen

Homma ratkes