25. juli 2020 - 23:57Der er
10 kommentarer og 1 løsning
Makro til knap
Jeg har et lille regneark med nogle data på "børn" og deres forældre. Jeg ville gerne lave en knap eller lignende, der flytter fokus til data på den forældre jeg trykker på. Hvordan gøres det?
Jeg er ikke helt klar over, hvad du mener. Det er nemt nok at lave en knap, men hvis du allerede har klikket på en forælder, er fokus vel flyttet til den række?
#1 Der er mange flere data på hver linie end vist i eksemplet. Når jeg har fundet et int. "barn" (fx DK10), og vil se data for forældre (DK08 og DK09), skal funktionen ved tryk på fx DK08 i barnets linie, automatisk finde linien med denne forælders data
Der skal så nok også laves en funktion der hopper tilbage til barnet, når jeg har set nok, hvis ikke man bare kan bruge en returfunktion i excel, men det må komme senere.
Det "virker" når jeg debugger, men kan ikke få det til at køre bagefter. (Det er [for] mange år siden jeg sidst har rodet med makroer m.m.) Og der er nok noget kode der ikke skal med som kommer "automatisk:
Der står "CommandButton1" og "Click" øverst i kode-billedet
Private Sub CommandButton1_Click()
End Sub Sub VisValgtElement() Dim soeg As String soeg = ActiveCell.Value ActiveSheet.Columns(1).Find(soeg, After:=Range("a1")).EntireRow.Select End Sub
Så skal du bare kopiere dette ind mellem de to linjer på din knap
Private Sub CommandButton1_Click() Dim soeg As String soeg = ActiveCell.Value ActiveSheet.Columns(1).Find(soeg, After:=Range("a1")).EntireRow.Select End Sub
Og nu med fejlhåndtering, så koden ikke fejler hvis den forældrer, du har klikket på, ikke findes i A-kolonnen: Private Sub CommandButton1_Click() On Error GoTo Fejl Dim soe As String Soeg = ActiveCell.Value ActiveSheet.Columns(1).Find(Soeg, After:=Range("a1")).EntireRow.Select Fejl: If Err.Number = 91 Then MsgBox "Den søgte person findes ikke i A-kolonnen. Prøv at markere en anden.", vbExclamation + vbOKOnly End If End Sub
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.