*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Vervolg zoekfunctie  (gelezen 25575 keer)

0 leden en 1 gast bekijken dit topic.

Offline phiebss

  • Nieuw lid
  • Berichten: 8
  • Geslacht: Vrouw
  • Oplossing.be
Vervolg zoekfunctie
« Gepost op: 29 januari 2019, 10:11:35 »
ik heb momenteel deze code geschreven. Nu zoek ik een manier om op rij B de volgende zoekactie weer te geven.
Iemand die mij kan helpen? Raad geven?

Code: [Selecteer]
Sub searchdata()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer

lastrow = Sheets("allergenenlijst").Cells(Rows.count, 1).End(xlUp).Row

For X = 2 To lastrow

If Sheets("allergenenlijst").Cells(X, 1) = Sheets("sheet2").Range("C3") Then
Sheets("sheet2").Range("A9") = Sheets("allergenenlijst").Cells(X, 1)
Sheets("sheet2").Range("B9") = Sheets("allergenenlijst").Cells(X, 2)
Sheets("sheet2").Range("C9") = Sheets("allergenenlijst").Cells(X, 5)
Sheets("sheet2").Range("D9") = Sheets("allergenenlijst").Cells(X, 6)
Sheets("sheet2").Range("E9") = Sheets("allergenenlijst").Cells(X, 7)
Sheets("sheet2").Range("F9") = Sheets("allergenenlijst").Cells(X, 8)
Sheets("sheet2").Range("G9") = Sheets("allergenenlijst").Cells(X, 9)
Sheets("sheet2").Range("H9") = Sheets("allergenenlijst").Cells(X, 10)
Sheets("sheet2").Range("I9") = Sheets("allergenenlijst").Cells(X, 11)
Sheets("sheet2").Range("J9") = Sheets("allergenenlijst").Cells(X, 12)
Sheets("sheet2").Range("K9") = Sheets("allergenenlijst").Cells(X, 13)
Sheets("sheet2").Range("L9") = Sheets("allergenenlijst").Cells(X, 14)
Sheets("sheet2").Range("M9") = Sheets("allergenenlijst").Cells(X, 15)
Sheets("sheet2").Range("N9") = Sheets("allergenenlijst").Cells(X, 16)
Sheets("sheet2").Range("O9") = Sheets("allergenenlijst").Cells(X, 17)
Sheets("sheet2").Range("P9") = Sheets("allergenenlijst").Cells(X, 18)
Sheets("sheet2").Range("Q9") = Sheets("allergenenlijst").Cells(X, 19)
End If

Next X


End Sub
Gelogd

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Vervolg zoekfunctie
« Reactie #1 Gepost op: 29 januari 2019, 12:14:41 »
Hoi,
Een kleine opmerking, als je geen Option Explicit gebruikt hoef je je variabelen niet te declareren.
m.a.w. je Dim lijnen zijn niet nodig.
Dit gezegd zijnde, wat is nu je vraag? Kan je dat wat meer toelichten eventueel met een vb bestandje.
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com