Ønskes: Hjælp til;

 

 Står f.eks. i Ark 1 celle D6 hvori jeg beder om at sætte hus nr. 101 i celle D7 og tryk <Enter>

 

Nu vil jeg gerne have, at ved en macro hopper over i et andet Ark og søger efter det tilsvarende tal som står i f.eks. Ark 2 celle H87.

 

Cellen skal hverken ændres, slettes eller erstattes, men curseren skal stille sig i cellen til højre klar til indtastning.

 

Har forsøgt forskellige mulighed uden held.

 

Dette skal bruges for at forenkle medlemsregistreringer til en Generalforsamling.

 

Håber at jeg kan hjælpes

 

Mvh

Bjarne

 

Imponerende at du bare sådan ryster det ud af ærmet.

 

Din Demo virker fortrineligt. Har ændret parameterne som du beskriver.

 

Bare ingen reaktion...nul putte.

 

Viser lige hvad jeg har ændret;

 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim FindearkNavn, Findeomraade As String
Dim Tastekolonne, TasteØversteRække, TasteSidsteRække As Integer
Dim c As Variant
On Error Resume Next

 

FindearkNavn = "Ark1"

' Ark 1 (Deltager)Kollonne D Række 4 til 208
Findeomraade = "D4:D208"

' Ark 2 (Forside)Tastekolonne H = 8
Tastekolonne = 8

TasteØversteRække = 6
' Ark 2 (Forside) Tasterække er kun i en celle derfor 6
TasteSidsteRække = 6
 
If Target.Column = Tastekolonne And (Target.Row >= TasteØversteRække And Target.Row <= TasteSidsteRække) And Target.Value <> "" Then
    For Each c In Sheets(FindearkNavn).Range(Findeomraade).Cells
        If Target.Value = c.Value Then
            Sheets(FindearkNavn).Activate
            Sheets(FindearkNavn).Range(c.Address).Select
            Exit Sub
        End If
    Next c
End If
End Sub

 

 

Håber at du kan læse det

MVH

 

Bjarne den  

 

 

 

 

Lidt flov er jeg. Bruger normalt Sheet Select "det døbte navn"   

 

Det virker bare

 

Når nu man rækker f..... lillefingeren----ja mere vil have mere

 

Kan jeg få curseren til at blinke medens den står i det fundne felt? det ville bare være frækt.

 

Er imponeret over din response.

 

Med venlig hilsen

 

Bjarne