Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketMakro - GoTo Celle

 Besvar Besvar
Forfatter
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Emne: Makro - GoTo Celle
    Sendt: 31.Dec.2012 kl. 18:39
Hej Forum!
 
Kan I hjælpe med at skrive en makro som kan finde den celle i et array/range (D5:D10) som indeholder samme værdi (Integer) som den celle (D19) hvori der skal indtages en søgeværdi. Såfremt søgeværdien ikke findes i renget, skal der vises en MsgBox "Denne værdi findes ikke. Prøv igen!"
 
Jeg har indtil videre kun skrevet følgende i makroen.
 
 
Private Sub Find_Celle()
   
    Dim Criteria As Boolean
    Dim i As Integer
    
    Range("D5:D10").Select 
    i = "D19"        
       
End Sub
Mvh. PI / Excel 2010
Til top



Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Sendt: 31.Dec.2012 kl. 19:14
Hej Forum!
Den ovenfor omtalte makro skal finde cellen TIL HØJRE for cellen i et array/range (D5:D10), som indeholder samme værdi (Integer) som den celle (D19) hvori der indtages en søgeværdi.
Såfremt søgeværdien (D19) ikke findes i det definerede array/range (D5:D10), skal der vises en MsgBox med "Denne værdi findes ikke. Prøv igen!"
 
Mvh. PI / Excel 2010
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 01.Jan.2013 kl. 00:44

      Dim Celle As Range
      Range("D19").Select
      For Each Celle In Range("D5:D10")
            If Celle.Value = Range("D19").Value Then Celle.Offset(0,1).Select
      Next
      If Selection.Address = "$D$19" Then MsgBox "Værdi ikke fundet!"
      Set Celle = Nothing

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Sendt: 01.Jan.2013 kl. 13:42
Hej Dan!
 
Super mange tak - enkelt og virkningsfuldt.
 
PS! Din passwordeliminator fra www.excelgaard.dk fungerer ikke i excel 2010.
 
Mvh. PI / Excel 2010
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 01.Jan.2013 kl. 16:33
Hi Pi,

Velbekomme - glad for, at du kunne bruge løsningen :-)

...men, jeg forstår ikke, at du skriver, at password crackeren ikke virker?!?

Jeg har lige teste den (igen) på følgende:

- Excel 2003 på en Windows 7
- Excel 2007 på en Windows Server 2008
- Excel 2010 på en Windows XP
- Excel 2010 på en Windows 7

Og, på alle systemer virker både installationsprocessen og selve tilføjelsesprogrammet, så jeg er MEGET nysgerrig?

Hvad er det, der ikke virker?
Hvilken fejlmeddelse får du?

På forhånd tak,

Dan

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk