Søgekriterie fra udklipsholder

Hvorfor vil du bruge udklipsholderen?

Jeg har sat den til at kopiere rækkenummer på ark 1 og den skal så bruge dette til at navigere til samme rækkenummer på ark 2 via en fælles makro, som kan bruges til alle rækker.

Forstår jeg det rigtigt:

Du står på ark 1 i række 247 (jeg går ud fra, at det er et nummer, du har stående i en celle, når du vil kopiere det). Du skal nu over på ark 2, række 247. Og det bruger du udklipsholderen til?

Ja, det er korrekt

Rækkenummeret på ark 2 - er det så vitterlig rækkenummeret eller er det også en tekst, som du/I har skrevet i en celle?

Ja, det er også skrevet i en celle. Første kolonne er identisk på alle ark, men de efterfølgende data er forskellige - alt efter hvilket ark man er på. Der er selvfølgelig sammenhæng mellem dataene - sammenhængen er nummeret i første kolonne

Men det vil så faktisk sige, at hvis du står i række 247 (og her mener jeg række 247 og ikke et eller andet indskrevet nr./tekst), så skal du til række 247 på ark 2.

Nedenstående procedure flytter din markør til samme række på næste ark, uanset hvor i rækken du står. Du "havner" dog i 1. kolonne på næste ark.

*************
Sub MoveToNextSheet()
    Dim intSheet As Integer
    Dim intRow As Integer
   
    intSheet = ActiveSheet.Index
    intRow = Selection.Row
   
    If intSheet <> Sheets.Count Then
        With ActiveWorkbook.Sheets(intSheet + 1)
            .Activate
            .Cells(intRow, 1).Select
        End With
    End If
End Sub

Jeg har ikke forklaret mig godt nok. På ark 1 kolonne A har jeg listen numre op fra 1 - 500 begyndende i række 3 - på ark 2 kolonne A er der også listet numre op fra 1 - 500 dog begyndende i række 2. Det skal altså være det af mig skrevne nummer i kolonne A, som bestemmer detinationen.

Sub MoveToNextSheet()
    Dim intSheet As Integer
    Dim strRowText As String
   
    Dim objWS As Worksheet
    Dim objColumn As Range
    Dim objCell As Range
   
    intSheet = ActiveSheet.Index
    strRowText = Selection
   
    If intSheet <> Sheets.Count Then
        Set objWS = ActiveWorkbook.Sheets(intSheet + 1)
        Set objColumn = objWS.Columns("A")
        For Each objCell In objColumn.Cells
            If objCell = strRowText Then
                objWS.Activate
                objCell.Select
                Exit For
            End If
        Next objCell
    End If
   
    Set objWS = Nothing
    Set objColumn = Nothing
    Set objCell = Nothing
End Sub

Tusind tak for hjælpen - undskyld det sene svartidspunkt. Var desværre forhindret.

Velbekomme. Jeg går ud fra, at det var, hvad du havde brug for og lægger derfor et svar.

Jeg er ny bruger, så her er et ekstra svar. Det var hvad jeg skulle bruge. Jeg håber du har fået en accept ellers får du en mere.

Så får du lige en kort intro til, hvordan det foregår herinde. Man lægger som bruger et svar, når man bliver bedt om det fra spørgerens side (dvs. generelt når problemet er løst), eller hvis spørgsmålet er lige til at besvare.

Du har selv brugt svar flere gange, men det indikerer over for andre brugere, at der er en løsning på spørgsmålet og du risikerer derfor, at nogle brugere springer dine spørgsmål over (fordi det ser ud til, at de er besvaret). Brug derfor alene kommentarer.

Når du ønsker at uddele point til en bruger, beder du vedkommende om at lægge et svar. Når det er afgivet (som du kan se, at jeg har gjort d.d. 10:20:37), er der en boks ud for svaret, hvor du kan klikke og uddele point. På den måde får jeg pointene og spørgsmålet bliver såkaldt lukket.

Jeg er ikke helt med - skriv hvad jeg skal gøre eller har jeg gjort det?

Nej, du har ikke gjort det. Ud for mit svar 25/11 2007 kl. 10:20:37 er der en boks, hvor du kan klikke. Der kan du acceptere mit svar.

Hmm... nu skrev du godt nok, at du var ny bruger. Men at afvise mit svar, som du ellers har givet udtryk for, var lige, hvad du havde brug for, og så derefter acceptere dine egne svar - hvormed du så giver pointene til dig selv - det er ikke i orden.

Og jeg kan da ellers se, at du har fundet ud af at give point rigtigt andetsteds http://www.eksperten.dk/spm/810079

En gang til. Lad mig lige slå fast, at jeg på ingen måde ønsker at snyde nogen for point. Vil du godt forklare mig helt, hvordan jeg giver point - jeg har problemer andentsteds på trods af, at jeg har accepteret svar og ikke har åbne spørgsmål, har jeg alligevel 60 point ude. Hvad betyder det?

Kan du feks. ikke ligge et svar,så tager vi den derfra?

Nej, det kan jeg ikke. Jeg har tidligere lagt svar, som du har afvist og da du så efterfølgende har accepteret dit eget svar, er spørgsmålet lukket.

Da du accepterede dit eget svar, klikkede du i en lille firkantet boks ud for dit svar. Det var så det du skulle have gjort i boksen ud for mit svar i stedet for.

I øvrigt så bør man/du kun lægge et svar, når problemet er løst, og spørgsmålstilleren beder om et svar. Jeg ved godt, at det kan virke lidt mærkeligt, men sådan er fremgangsmåden herinde.

Da jeg var ny herinde, ville jeg gerne vide, hvordan jeg/man gav point. Jeg oprettede derfor et "test-spørgsmål" og kunne derfor se, hvordan "accept-af-svar-boksen" så ud.

Mht. åbne spørgsmål og udestående point:
Du har 2 åbne spørgsmål, hvor du ikke har accepteret svarene. Dermed er de åbne og pointene er udestående.

http://www.eksperten.dk/spm/814017
http://www.eksperten.dk/spm/813667

Du kan kun lukke et spørgsmål ved at acceptere et/flere svar. Vær opmærksom på, at du også kan tildele point til en, der har hjulpet dig, selv om I måske ikke fandt den ideelle løsning. Som en slags tak for hjælpen.

Tak for hjælpen. Nu tror jeg nok, jeg har forstået systemet. Vi kommer jo nok i dialog igen, så finder vi vel ud af det.