Hei taas kaikki pro-henkiset!
Onko mahdollista saada toimimaan seuraavanlaista systeemiä:
Minulla on auki työkirja nimeltään "X", jossa on tietoja monissa kohdissa. Nyt avaan Työkirja2:n ja haluaisin, että se hakee samaan aikaan auki olevasta X:stä tiettyjen solujen arvon. Ongelma on se, että tuon X:n nimi on aina eri, mutta tiedot kyllä samoissa soluissa. Eli onko jotain konstia tuohon?
Onko mahdollista saada toimimaan seuraavanlaista systeemiä:
Minulla on auki työkirja nimeltään "X", jossa on tietoja monissa kohdissa. Nyt avaan Työkirja2:n ja haluaisin, että se hakee samaan aikaan auki olevasta X:stä tiettyjen solujen arvon. Ongelma on se, että tuon X:n nimi on aina eri, mutta tiedot kyllä samoissa soluissa. Eli onko jotain konstia tuohon?
Vastaukset 1
Vanhimmat
Yksi vaihtoehto:
Sub NoudaTiedot()
Dim iSrc As Integer, iDst As Integer
' Onko kaksi työkirjaa avoinna?
If Application.Workbooks.Count = 2 Then
' Valitaan se toinen
If Workbooks(1).Name = ActiveWorkbook.Name Then
iDst = 1
iSrc = 2
Else
iDst = 2
iSrc = 1
End If
' Tähän sitten niitä kopioitavia rivejä...
Workbooks(iDst).Sheets(1).Range("B5") = Workbooks(iSrc).Sheets(1).Range("A1")
Workbooks(iDst).Sheets(1).Range("B6") = Workbooks(iSrc).Sheets(1).Range("R22")
Workbooks(iDst).Sheets(1).Range("B7") = Workbooks(iSrc).Sheets(1).Range("F2")
' jne ...
End If
End Sub