19. februar 2008 - 21:14Der 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.
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
