Avatar billede tida Juniormester
18. december 2013 - 10:26 Der er 2 kommentarer og
1 løsning

Lille Søge makro

Jeg har brug for lidt assistance til en makro.

Jeg har 2 filer

Fil-1 har en celle C4 der indeholder et konto nummer.
Nu ønsker jeg en knap med en makro der finder dette konto nummer i Fil-2.

Ret enkelt, og jeg troede at jeg let kunne optage disse trin i en makro, ved at kopiere C4 ind i søgefunktionen, men nej så let går det ikke.

Jeg har brug for at rette koden til så kontoen bliver dynamisk, kan nogen mon assistere.

Min koder ser lige nu sådan ud :

Sub FindResultatKonto()

    Range("C4").Select
    Selection.Copy
    Windows("Menu.xlsm").Activate
    Range("A1").Select
    Application.Goto Reference:="OpslagKontoR"
    Selection.Find(What:="600039", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
   
    Application.CutCopyMode = False
End Sub
Avatar billede kabbak Professor
18. december 2013 - 12:56 #1
Sub FindResultatKonto()

  Soeg = Range("C4")
    Windows("Menu.xlsm").Activate
    Range("A1").Select
    Application.Goto Reference:="OpslagKontoR"
    Selection.Find(What:=Soeg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
   
    Application.CutCopyMode = False
End Sub
Avatar billede tida Juniormester
18. december 2013 - 13:07 #2
Tak for svar Kabbak - jeg får dog en fejl på Soeg den siger
"Variable no defined" ?
Avatar billede kabbak Professor
18. december 2013 - 14:11 #3
Sub FindResultatKonto()
  Dim Soeg as variant
  Soeg = Range("C4")
    Windows("Menu.xlsm").Activate
    Range("A1").Select
    Application.Goto Reference:="OpslagKontoR"
    Selection.Find(What:=Soeg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
   
    Application.CutCopyMode = False
End Sub
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester