Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: Välilehtien lisäys ja solujen linkittäminen

Iszmo [05.12.2011 15:26:42]

#

Terve

Tarkoitus olisi tehdä yhteenvetotaulukko, jossa luodaan uusi välilehti, ja tältä uudelta välilehdeltä linkitetään tietyt solut yhteenvetotaulukkoon uudelle riville.

Olen melko käsi VBA:n kanssa ja jostain syystä linkittyvien solujen sijainti riippuu tässä koodissa yhteenvetotaulukon rivistä. Mikä neuvoksi? Apuva...

Sub KohteenLisays()
'
' KohteenLisays Macro
'
    Dim SheetCount As Integer
    Dim Name As String

    Sheets.Add After:=Sheets(Sheets.Count)
    SheetCount = Sheets.Count

    ActiveSheet.Name = SheetCount
    Name = SheetCount

    Sheets("Summary").Select
    Cells(SheetCount, 1).FormulaR1C1 = "='" & Name & "'!R[4]C[4]"
    Cells(SheetCount, 2).FormulaR1C1 = "='" & Name & "'!R[5]C[4]"
    Cells(SheetCount, 3).FormulaR1C1 = "='" & Name & "'!R[42]C[4]"
    Cells(SheetCount, 4).FormulaR1C1 = "='" & Name & "'!R[40]C[4]"
    Cells(SheetCount, 5).FormulaR1C1 = "='" & Name & "'!R[50]C[8]"
    Cells(SheetCount, 6).FormulaR1C1 = "='" & Name & "'!R[54]C[8]"
End Sub

Grez [05.12.2011 15:34:33]

#

Hmm, "jostain syystä" kun käytät sijaintiin suhteellista kaavaa (FormulaR1C1) etkä absoluuttisesti viittaavaa kaavaa ( Formula )

Iszmo [05.12.2011 15:43:57]

#

Kiitos tuhannesti! Käsi kun olen ;)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta