CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede henrik20 Nybegynder
19. marts 2011 - 08:31 Der er 5 kommentarer og
1 løsning

Søgepromt frem med en macro

Hej Eksperter

Jeg forsøger at bringe søgepromten frem med en macro. Ideen er at man med macroen skal have den tomme søgeromt frem så man blot skriver sit søgeord klikker "find", hvorefter der søger i en specifik kolonne.

Jeg sætter en macro over, markerer hele kolonne A, taster Ctrl+f og afslutter macroen. Men det eneste der bliver optaget er markeringen af kolonne A. Ctrl+f funktionen bliver ikke optaget.

Kan man skrive sig ud af det i VBA koden, så man får markeret kolonne A og smidt den tomme søgepromt i hovedet?

/Henrik
Avatar billede kabbak Professor
19. marts 2011 - 11:00 #1
Sub Find()
    Dim C As Range, Svar As String
    Svar = InputBox("Hvad skal der søges efter", "Søg")
    If Svar = "" Then Exit Sub
    With Worksheets(1).Columns("A:A")
        Set C = .Find(Svar, LookIn:=xlValues)
        C.Activate
    End With
End Sub
Avatar billede bak Forsker
19. marts 2011 - 14:00 #2
Alternativ
Denne søger/markerer den kolonne som den aktive celle befinder sig i


Sub FindMe()
    ActiveCell.EntireColumn.Select
    Application.Dialogs(xlDialogFormulaFind).Show
End Sub
Avatar billede henrik20 Nybegynder
20. marts 2011 - 11:18 #3
Jeg har prøvet begge og den løsning jeg søgte er bak's. Jeg har dog en lille ting mere. Hvordan vil koden se ud hvis jeg ønsker kun at markere række 9 til 50 i kolonne A, istedet for hele kolonnen?

/Henrik
Avatar billede henrik20 Nybegynder
20. marts 2011 - 11:27 #4
Har klaret den :)

bak...sender du et svar?
Avatar billede bak Forsker
20. marts 2011 - 11:40 #5
jeps
Avatar billede bak Forsker
20. marts 2011 - 11:42 #6
her kommer det så :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
renteberegning Af Pil i Excel 3 24/11/202411:27 25/11/202417:42
Identificér og hent del af tekststreng Af TheLibrarian i Excel 2 22/11/202416:49 25/11/202409:27
Ændre nuller til ovenstående tekst Af boro23 i Excel 4 20/11/202410:44 20/11/202412:08
HVIS med datoer Af HHA i Excel 6 20/11/202408:31 20/11/202412:51
Numerisk liste Af AND i Excel 8 19/11/202414:05 19/11/202423:31
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 00:54 Windows 11 Pro - IIS Af bsn i Windows
I går 18:46 Omdanne stik på router til USB Af valby i Routere & Switches
I går 10:49 Ændring finansår C5 Af Lene i Økonomiprogrammer
25/1117:29 Proceslinje Af luffe1955 i Windows
25/1115:07 videoredigering med DaVinci Resolve Af gerhardpet i Andet software
White papers
Flere white papers »


Premium
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Efter annullering: Nu åbner Energinet igen for DevOps-aftale til 164 millioner kroner
Står klar med 50 millioner kroner til indkøb af specialiserede it-konsulenter
AI-bølgen har fået markedsværdi for 139 år gammelt hardware-firma til at eksplodere: Steget med 400 procent siden nytår
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
Styrk compliance, sikkerhed og overblik med ét hug
Sikkerhed uden grænser: Cisco Hypershield
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »