Kyseessä on identtiset laskentataulukot, jotka ovat kyselylomakkeita. Lomakkeen syöttöalueet sisältävät tekstiä sekä lukuja. Yhden henkilön tiedot ovat yhdessä taulukossa. Henkilöiden tiedot pitäisi saada yhteenvetoon riveittäin, ts. niin, että tietyn syöttöalueen tiedot ovat sarakkeissa allekkain. Minkähänlaisella kaavalla tai toiminnolla mahtaisi saada suhteellisen viittauksen toimimaan taulukoiden ja yhteenvedon rivien kesken? Esim. taulukosta 1 riville 1 kaikki tiedot ja taulukosta 2 riville 2 jne. Henkilöitä kun on satoja niin ratkaisu olisi tervetullut, ettei tarvitsisi manuaalisesti kaikkia viittauksia näpyttää :D. Excel on versiota 2003.
Ongelma yhteenvetotaulukossa
brantti87
1283
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
muotoile solualue sopivaksi nyt hakee 1 rivilta
moduuliin...
Sub Yhteenveto()
Dim Taulukko As Worksheet
For Each Taulukko In ActiveWorkbook.Worksheets
If Not Taulukko.Name = "Yhteenveto" Then
Worksheets(Taulukko.Name).Range("A1").EntireRow.Copy Worksheets("Yhteenveto").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub