Kunde jatkoa...

remec kirjoitti:

Eli edelliseen viestiini viitaten,
Lähdin muuttamaan antamaasi esimerkkiä ja käteenhän se meni... eli tässä mitä tein

Sub Makro5()

Const a As String = "Remecin Super HakuKone"

Dim valinta As Integer
Dim luokka As String
Dim nimi As String
Dim kirja As String

valinta = InputBox("Syötä hakuehtoasi vastaava numero" & vbCrLf & vbCrLf & "1. Luokan mukaan" & vbCrLf & "2. Tekijän mukaan" & vbCrLf & "3. Kirjan nimen mukaan", a, 1)

If valinta = 1 Then
luokka = InputBox("syötä haettava luokka", a, "esim. 22")

Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=luokka
End If

If valinta = 2 Then
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=nimi
End If

If valinta = 3 Then
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=kirja
End If
Range("A1:H362").Select
Selection.Copy
Sheets("Taul2").Select
Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
Sheets("Taul1").Select
Rows("1:1").Select
Selection.AutoFilter
Sheets("Taul2").Select
Range("A1").Select
End Sub



Tuolla aika lopussa kohdassa kun yritän siirtää tietoja taulukosta1 taulukkoon2 siis komento Activesheet.paste tulee virhe ilmoitus (run time error 1004) luokan worksheet menetelmä paste epäonnistui) ja ohjelman suorittaminen loppuu siihen.

millä tuon saisi korjattua.

Sitten mietin että tuohan ei mahdollista hakua sanan osalla vaan täytyy kirjoittaa sana kokonaan. tuo ylläolevahan käyttäää suodatusta, yritin itse tehdä perinteisellä haulla mutta en keksinyt miten se tapahtuisi, onkohan sulla aavistusta ...


Kiitos tuhannesti

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä