Opgelost Merken toevoegen

[Johande]

Beste,

Ik het mogelijk met een VBA code in de B kolom een merk toe te voegen met start smalste breedte en laagste hoogte.
Wel met de exact de zelfde gegeven in de de rijen de zelfde merk naam.
Uitgezonderd van de letter I en Q. Indien er meer merken zijn als z verder gaan met AA,AB, AC enzovoort.

 

[peter59]

Euhh!!
Jij zult het wel allemaal snappen wat je wilt.
Maar ik heb nu even de snapper kapot.
Kan je eens aangeven in je voorbeeld wat je zoal in kolom B wilt zien.

 

[Johande]

Hallo Peter,

Hoop hier je snapper mee gerepareerd te hebben.
Ik heb bij de smalste breedte het merk ingevuld deze zijn gecombineerd met de bediening zijde rechts komt er een R achter links komt er een L achter.

 

[HSV]

Lijkt dit er een beetje op?
Incl. de uitzonderingen I en Q.

 

[Johande]

Hallo HSV,

Ja. Lijkt er op maar nu word er alleen vergeleken met de maatvoeringen.
Kan het ook zo met alle kolommen P t/m AF?
Als er een ander type is gelijk merk en dat zou eigenlijk niet moeten.
Heb zelf de code proberen aan te passen maar krijg dan fout melding en geen merk in de kolom.

 

[HSV]

Dat moet je maar even beter uitleggen.
P t/m AF? ; daar zit alleen de letter Q tussen.
Vul anders kolom B even helemaal in zoals jij voor ogen hebt en plaats het bestand terug.

 

[Johande]

Hallo Hierbij de excel handmatig aangepast met de merken.
De gele velden wijken af. onder de gelen balk zijn de kolommen waar het verschillend in kan zijn.

 

[HSV]

Test het maar eens weer.

 

[Johande]

Hallo Bedankt.
Is gelukt hiermee.

 

[HSV]

Mooi zo, je moet alleen de 17; waar jij 19 van hebt gemaakt terugzetten zodat je de Q er niet in krijgt.

 

[Johande]

oke.

Dank je

 

[Johande]

heb nog 1 vraagje als mag.
in kolom R zou ik elke keer een aangepaste cel willen met 0000 i.v.m. 1 nul ervoor houden.
De code is eigenlijk 0130 maar als ik ga sorteren op een ander blad is deze weg en komt eer 130 te staan
is daar een VBA code zodat ik die kan aanroepen als nodig?

 

[HSV]

Probeer het eens met een apostrof ervoor i.p.v. de opmaak.
Dus: '0130

 

[Johande]

hallo ik heb een laatste verzoek.
Zou je eens in het bestand willen kijken ik heb nog verschillende merken zie el en gl zelfde gegevens zouden dan ook de zelfde merknamen moeten zijn.
Kan het probleem niet vinden.
er zijn knoppen aangemaakt onder tab inmeetlijsten

 

[HSV]

Het bereik [BereikN] is er niet + de sortering.

[bereikO] = [(bereikS^2)+bereikT]
 [bereikO] = [rank(bereikO,bereikO,1)]
  .Range.Sort .Range.Cells(1, 15), , .Range.Cells(1, 16), , , .Range.Cells(1, 26), , 1

 

[Johande]

Dank je. Top

 

[Johande]

Goedemorgen,

Ter info:
Om de cel aan te passen zodat er een 0 voor komt te staan is dit mogelijk.

Sub Otoe()
'
'
'

'
Columns("R:R").Select
Selection.NumberFormat = "0000"
End Sub

 

[HSV]

Als dat in hetzelfde bestand is kan dat zo.

Het laatste stukje van de code even aanpassen.

Next i
  .DataBodyRange.value = sv
  .DataBodyRange.Columns(18).NumberFormat = "0000"
End With

 

[Johande]

Hallo HSV,

Ik heb een fout melding nu in de merken maken.
Heb je tijd om eens te kijken?

 

[HSV]

Verander de formule in kolom AI in:

=ALS.FOUT(ALS([@[Kozijnmerk Merk ]]="";"";ALS([@[Zichtzijde doek]]="A";VERT.ZOEKEN([@Doekkleur];Gegevens!$AD$3:$AG$200;3;ONWAAR);ALS([@[Zichtzijde doek]]="B";VERT.ZOEKEN([@Doekkleur];Gegevens!$AD$3:$AG$200;4;ONWAAR))));"")

Verander de code van:

sv = .Range.Offset(1).Value

In:

sv = .Range.Offset(1).Formula