Tervehdys en mikään kurko käyttäjä ole mutta vähän osaan, mutta tämä ei ratkea.
exceliin olen tallentanut tiedot kirjoista. yhdessä solussa on luokka, toisessa tekijä kolmannessa kirjan nimi ja muissa soluissa lukee tarkenteita.
millainen makro pitäisi olla ettää voin hakea esim "Ilkka Remes" jolloin makro hakisi kaikki ilkka remeksen kirjat ja veisi ne wordiin luokka tietoineen ja kirjannimineen sekä tarkenteet myös.
Kiitoksia miljoonasti....
kundeen ja paavaliin luottaen
remec
exceliin olen tallentanut tiedot kirjoista. yhdessä solussa on luokka, toisessa tekijä kolmannessa kirjan nimi ja muissa soluissa lukee tarkenteita.
millainen makro pitäisi olla ettää voin hakea esim "Ilkka Remes" jolloin makro hakisi kaikki ilkka remeksen kirjat ja veisi ne wordiin luokka tietoineen ja kirjannimineen sekä tarkenteet myös.
Kiitoksia miljoonasti....
kundeen ja paavaliin luottaen
remec
Vastaukset 1
Vanhimmat
moduuliin ja muuttele polkuja ja nimiä sopivaksi
Sub VieWORD()
Dim Word As Object
Dim polku As String
Dim Nimi As String
Dim vika As Integer
Set Word = CreateObject("Word.Application")
polku = "C:\Testi.doc"
Nimi = Application.InputBox("Anna tekijän nimi", Type:=2)
vika = Range("A65536").End(xlUp).Row
With Range("A1:AA" & vika)
.AutoFilter Field:=2, Criteria1:=Nimi
.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy
End With
With Word
.Documents.Add
.Selection.Paste
.ActiveDocument.SaveAs polku
.Application.Quit
End With
Set Word = Nothing
Selection.AutoFilter
Application.CutCopyMode = False
End Sub