Opgelost Merken toevoegen

[Johande]

Bedankt!
toch nog een vraag als de gegevens in elke regel gelijk zijn en alleen de bediening links of rechts maakt de code een nieuwe letter er voor aan kan het ook met de zelfde letter en dan een l voor links en een r voor rechts er achter als alle andere gegevens gelijk zijn?

 

[HSV]

Ik heb het gecontroleerd door twee rijen precies hetzelfde in te vullen en dan krijg ik netjes AR en AL.
Een klein verschil die je waarschijnlijk niet ziet maar er wel degelijk is geeft je al een ander letter.

 

[Johande]

wederom dank

 

[Johande]

Hallo ben ik weer heb toch nog een probleem met de merken.
Lijkt wel of ze niet meer vergelijken met de uitkomst van de formule in de cel breedte en hoogte kolom T en U. zou je nog eens willen kijken voor mij?

 

[HSV]

Is je sortering wel juist op 15, 16 en 35?

 .Range.Sort .Range.Cells(1, 15), , .Range.Cells(1, 16), , , .Range.Cells(1, 35), , 1

 

[Johande]

ik heb de code aangepast naar:
.Range.Sort .Range.Cells(1, 15), , .Range.Cells(1, 16), , , , , 1
Maar verschillende breedte en hoogte en toch zelfde merk

 

[Johande]

Haal de formule uit de cellen dan doet ie het juist.

 

[HSV]

Sorteer eens op 15, 20 en 21

 

[Johande]

Ja dan zijn de merken goed alleen de aantallen AL en Ar 2 in plaats van 1

 

[HSV]

Zet 15 eens in beide array's bij.

Join(Application.Index(sv, i, Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35))))

 

[Johande]

wat ik gedaan heb is een code gemaakt zodat de formule weg is dan werkt het uitstekend.
hij kijkt schijnbaar naar de formule in de cel in kolom T en U.

bedankt voor je reactie.

 

[HSV]

Dat zou inderdaad kunnen, en zou je met de 'Indirect' functie moeten werken in je formules.

Ik had eerst sv = .......,Value en dan verdwijnen de formules.
Later zag ik dat je er formules in had en had er sv = ....formula van gemaakt.

Je kan altijd nog terug naar sv = ....value
Maar goed als het werkt dan werkt het.

 

[Johande]

goede middag. ben ik weer.
Is het mogelijk de merknamen zonder dat het blad zich veranderd dus de regels gelijk in de zelfde volgorden blijven.
Ik heb het geprobeerd maar dan krijg ik alleen cijfers.

 

[HSV]

Zet de regel van sv = ........ hoger zoals hier afgebeeld.

With Sheets("Ingave").ListObjects(1)
sv = .Range.Offset(1).Value2

Onderaan ook aanpassen naar.

.DataBodyRange.Value2 = sv
End With
End Sub

 

[Johande]

Heb het aan gepast maar als de gelijke gegevens in de regel 2 of meerdere rijen lager staat maakt hij een nieuw merk aan.

 

[HSV]

Plaats het bestand eens waarin dit gebeurt.

 

[Johande]

hierbij

 

[HSV]

In welke module moet ik gaan zoeken naar de code?

 

[Johande]

de module merken

 

[HSV]

Weet je dat je de sorteer coderegel aangemerkt hebt als tekst?