hvordan opretter jeg command-buttom med look up funktion

Opret en kontrolelementknap fra værktøjslinien kontrolelementer. Højreklik på knappen og vælg Vis programkode.

Kopier denne kode ind mellem de to viste linjer.


    For Each c In Sheets(2).Range("a1:A100").Cells
        If c.Value = Sheets(1).Range("a1").Value Then
            Sheets(1).Range("a4") = c.Offset(0, 1).Value
            Exit Sub
        End If
    Next c

Gå tilbage til arket. Afslut designvisning og afprøv knappen.

Ret selv områdeti Ark2!A kolonnen til det rigtige.

Virker fint.

Er det muligt at hvis A4 ikke er blank, så kommer den i a5 osv. osv.?

Ret koden til

For Each c In Sheets(2).Range("a1:A100").Cells
        If c.Value = Sheets(1).Range("a1").Value Then
            If Sheets(1).Range("a4") = "" Then
                Sheets(1).Range("a4") = c.Offset(0, 1).Value
                Exit Sub
            Else
                Sheets(1).Range("a65536").End(xlUp).Offset(1, 0) = c.Offset(0, 1).Value
                Exit Sub
            End If
        End If
    Next c

Super...

1 sidste ting:

Hvis samme knap skal gøre det samme, bare for celle b1 til b4, hvordan vil det så se ud?

Ret A1 til B1 og A4 til B4 i ovenstående kode.

arhhh sorry.

Mente at den skulle gøre begge ting på samme tid.

Du kan gøre det i to tempi. Kopier koden ovenfor og indsæt den igen. Ret cellerne til de nye referencer og ret variabelnavnet c til noget andet, fx d overalt.

hmm.. kan ikke rigtigt få det til at fungere..

Har indsat følgende, men det er kun den første der virker:

Sub Knap1_Klik()


For Each d In Sheets(2).Range("G1:G100").Cells
        If d.Value = Sheets(1).Range("d4").Value Then
            If Sheets(1).Range("d7") = "" Then
                Sheets(1).Range("d7") = d.Offset(0, 1).Value
                  [d4] = ""
                Exit Sub
            Else
                Sheets(1).Range("d65536").End(xlUp).Offset(1, 0) = d.Offset(0, 1).Value
                  [d4] = ""
                Exit Sub
            End If
        End If
    Next d
   
For Each c In Sheets(2).Range("D1:D100").Cells
        If c.Value = Sheets(1).Range("c4").Value Then
            If Sheets(1).Range("c7") = "" Then
                Sheets(1).Range("c7") = c.Offset(0, 1).Value
                  [c4] = ""
                Exit Sub
            Else
                Sheets(1).Range("c65536").End(xlUp).Offset(1, 0) = c.Offset(0, 1).Value
                  [c4] = ""
                Exit Sub
            End If
        End If
    Next c


End Sub

Min fejl. Den første forlader koden, når den har gjort hvad den skal.

Prøv at rette Exit Sub til Exit For i den første.

super.. smid et svar

Et svar :-)