Ik zit wederom met een probleem.
Ik wil dat ik een storingsnummer intikt en dat de computer gaat zoeken in sheet "koffieautomaat"(Kolom 15) zoekt.
Als het is gevonden dat hij dat het gegeven in kolom 1 kopieert en plakt op sheet "melding koffieautomaten.
Ik heb nu dit, maar ik kom er even niet uit.
Zoals je ziet heb ik even een tijdelijk locatie aangemaakt op blad "info blad" locatie cel C62.
Ik denk zelf dat het niet nodig is, maar anders kan die cel gebruikt worden.
Ik wil dat ik een storingsnummer intikt en dat de computer gaat zoeken in sheet "koffieautomaat"(Kolom 15) zoekt.
Als het is gevonden dat hij dat het gegeven in kolom 1 kopieert en plakt op sheet "melding koffieautomaten.
Ik heb nu dit, maar ik kom er even niet uit.
Code:
c00 = InputBox("Voer storingsnummer in.")
Sheets("info blad").Select
Range("c62").Select
Selection = c00
#beginner (leren)
#msexcel 2010
With Sheets("storing melden")
gev = Application.Match(Sheets("infoblad").Range("c62"), .Columns(15), 0)
If Not IsError(gev) Then .Cells(gev, 1).Select
Selection.Copy
Sheets("storing melden").Select
Range("B5").Select
Selection.Paste
End With
End Sub
Zoals je ziet heb ik even een tijdelijk locatie aangemaakt op blad "info blad" locatie cel C62.
Ik denk zelf dat het niet nodig is, maar anders kan die cel gebruikt worden.
Laatst bewerkt: