19. februar 2008 - 21:14
Der er
3 kommentarer og
1 løsning
Søgefelt og vis søgning + lidt mere
Hej
Jeg sidder lige og prøver at skrue et lille program sammen til arb. brug.
Jeg har dog brug for hjælp da jeg ikke er den stor Excel bruger og slet ikke VBA.
Jeg har brug for et søgefelt med en "søg" knap, når man så trykker på søg skal det lede i en kolonne i et andet ark efter navnet og gengive det nedenunder i en celle.
Når man så har fundet det navn man skal bruge og det står i cellen skal man kunne trykke på en slags enter knappe, som kopierer navnet til et andet ark, samtidigt skal andre dele af rækken, som indeholder navnet kopieres til andre celler i det andet ark.
Kan dette lade sig gøre og er der nogen, som gider hjælpe og skære det lidt ud i pap for mig.
Jeg vil gerne give et lidt mere konkret eksempel, hvis det kan lade sig gøre at lave dette.
Venlig hilsen
Christian
22. februar 2008 - 23:25
#4
Kode i userform:
Dim Dark
Private Sub CommandButton1_Click() 'OK
Dim kopi, navn, lok, D1, D2, D3, D4
ix = Me.ComboBox1.ListIndex + 2
With Dark
navn = .Cells(ix, 1)
lok = .Cells(ix, 2)
D1 = .Cells(ix, 3)
D2 = .Cells(ix, 4)
D3 = .Cells(ix, 5)
D4 = .Cells(ix, 6)
End With
Set kopi = ActiveWorkbook.Sheets("Kopi")
With kopi
.Cells(8, 2) = navn
.Cells(8, 4) = lok
.Cells(11, 2) = D1
.Cells(13, 2) = D2
.Cells(15, 2) = D3
.Cells(17, 2) = D4
End With
kopi.Activate
Unload UserForm1
End Sub
Private Sub CommandButton2_Click() 'Annuller
Unload UserForm1
End Sub
Private Sub UserForm_activate()
Dim antalRæk, ræk
Me.ComboBox1.Clear
Set Dark = ActiveWorkbook.Sheets("Dataark")
antalRæk = Dark.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
With Dark
For ræk = 2 To antalRæk
Me.ComboBox1.AddItem Dark.Cells(ræk, 1)
Next ræk
End With
Me.ComboBox1.DropDown
End Sub
