robinvdveeken
Gebruiker
- Lid geworden
- 7 sep 2010
- Berichten
- 84
Veelwetende forumleden,
Een nieuw, leuk project waarin ik inmiddels vastloop in de code
Het is de bedoeling dat op tabblad ("IO_ijst") in Kolom E word gezocht naar alle rijen waarin U400 voorkomt.
Deze waarde moet op tabblad ("ET200S") in Rij 4 worden geplakt, mits deze daar niet al staat. Deze kan namelijk vaker voorkomen. De waarde uit Kolom I varrieert dan wel.
De waarde tabblad ("IO_lijst") in Kolom I moet dan in de cellen daaronder worden geplakt in de volgorde.
Het verhaal word vast heel wazig, daarom het voorbeeld bestand
Voor de liefhebbers, Hiermee kan de uit Eplan geexporteerde Componentenlijst worden gebruikt om labels voor op een plc te maken.
Tot zover ben ik gekomen met de code:
Kan iemand mij helpen?
Alvast bedankt.
Groeten,
Robin
Een nieuw, leuk project waarin ik inmiddels vastloop in de code
Het is de bedoeling dat op tabblad ("IO_ijst") in Kolom E word gezocht naar alle rijen waarin U400 voorkomt.
Deze waarde moet op tabblad ("ET200S") in Rij 4 worden geplakt, mits deze daar niet al staat. Deze kan namelijk vaker voorkomen. De waarde uit Kolom I varrieert dan wel.
De waarde tabblad ("IO_lijst") in Kolom I moet dan in de cellen daaronder worden geplakt in de volgorde.
Het verhaal word vast heel wazig, daarom het voorbeeld bestand
Voor de liefhebbers, Hiermee kan de uit Eplan geexporteerde Componentenlijst worden gebruikt om labels voor op een plc te maken.
Tot zover ben ik gekomen met de code:
Code:
Sub WhereIsIt()
Dim R As Range, FindAddress As String
Dim Componentregel As Range
Dim X As Range
'init
Set Componentregel = Cells(4, 1)
'Set the range in which we want to search in
With Sheets("IO_lijst").Range("E1:E1000")
'Search for the first occurrence of the item
Set R = .Find("400U")
'If a match is found then
If Not R Is Nothing Then
'Store the address of the cell where the first match is found in a variable
FindAddress = R.Address
Do
With Range("A4:ZZ4")
.Find (R.Value)=
If R.Value <> Range("A4:ZZ4") Then
Componentregel = R.Value
Componentregel.Font.Bold = True
End If
Set Componentregel = Componentregel.Offset(0, 2)
'Search for the next cell with a matching value
Set R = .FindNext(R)
'Search for all the other occurrences of the item i.e.
'Loop as long matches are found, and the address of the cell where a match is found,
'is different from the address of the cell where the first match is found (FindAddress)
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With
'Clear memory
Set R = Nothing
End SubKan iemand mij helpen?
Alvast bedankt.
Groeten,
Robin
