Print side | Luk vindue

Makro - GoTo Celle

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1008
Udskrevet den: 18.Maj.2024 kl. 12:32


Emne: Makro - GoTo Celle
Besked fra: PI
Emne: Makro - GoTo Celle
Posteringsdato: 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


Svar:
Besked fra: PI
Posteringsdato: 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

Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: PI
Posteringsdato: 01.Jan.2013 kl. 13:42
Hej Dan!
 
Super mange tak - enkelt og virkningsfuldt.
 
PS! Din passwordeliminator fra www.excelgaard.dk" rel="nofollow - www.excelgaard.dk fungerer ikke i excel 2010.
 


-------------
Mvh. PI / Excel 2010

Besked fra: EXCELGAARD
Posteringsdato: 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.


Print side | Luk vindue