Opgelost Excel vraag

[emields]

En uw formule werkt enkel op de naam jolink

 

[DVU]

klopt, daarom zocht ik de oplossing in een macro met meerdere identieke regels, maar steeds met een andere naam..

 

[emields]

dat doet het voorbeeld in #7

 

[DVU]

zou kunnen maar kan daar geen code in vinden dus ook niet uitvoeren....
Misschien is mijn kennis te beperkt daarvoor..

 

[peter59]

Dit is de code van Emields.
Werkt bij mij perfect.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b2:b1000]) Is Nothing Then
If Target.Count = 1 Then
  Set x = Range("b2:b" & Target.Row - 1).Find(Target, lookat:=xlWhole)
    If Not x Is Nothing Then
            Target.Offset(, 1) = x.Offset(, 1).Value
        Else
            MsgBox "nieuwe naam, gelieve zelf een omschrijving in te vullen"
            Target.Offset(, 1).Select
            Exit Sub
        End If
End If
End If
End Sub

 

[DVU]

Die had ik ook gevonden onder de knop 'Visual Basic' maar hoe voer je zoiets dan uit?

 

[edmoor]

Die Worksheet_Change wordt automatisch uitgevoerd als je ergens de inhoud van een cel wijzigt.

 

[DVU]

Zie dat nu ook, is ook een mogelijkheid! Zocht naar een macro... Gebruik momenteel de macro van AHulpje, voldoet me het meest en voor mij beheersbaar v.w.b. werken met macro's.
Je leert zo een hoop bij, dank allen

 

[edmoor]

Die Worksheet_Change is een Event macro.

 

[peter59]

Gebruik momenteel de macro van AHulpje

Oké. Mogen wij die ook eens zien?
Kunnen we misschien ook nog iets leren. Ik althans.

 

[AHulpje]

Zie bericht #16.

 

[peter59]

@AHulpje
Dank je. Ook niets mis mee.

 

[DVU]

Inderdaad, #16. Heb het zelf iets aangepast, alles op een blad gezet. Is nog wel hoofdlettergevoelig maar daar is ws. nog wel iets aan te doen

 

[edmoor]

Kijk eens naar de VBA functies LCase en UCase.

 

[HSV]

Zonder macro.

 

[AHulpje]

Heel mooi!
Maar leg eens uit, waarom 1000 als zoekwaarde en niet 1?

 

[DVU]

Dank je HSV, alweer een mogelijkheid! Ga er eens goed voor zitten..

 

[HSV]

Heel mooi!
Maar leg eens uit, waarom 1000 als zoekwaarde en niet 1?

Het aantal tekens van de tekst van de cel van Blad1 kolom B.
Hier,....

5320 Boni

wordt Boni op 6 gevonden, dus 1 zal het niet vinden.
De functie =ZOEKEN zoekt van rechts naar links en zal het eerste getal pakken wat het tegenkomt.

255 zal waarschijnlijk ook genoeg zijn.

 

[AHulpje]

Dank voor je uitleg,weer wat geleerd, wist niet dat je als zoekwaarde ook een tabelkolom kon gebruiken.
Met

=ZOEKEN(LENGTE(B2);VIND.SPEC(tblBedrijf[Kolom1];B2);tblBedrijf[Kolom2])

had het dus ook gewerkt, als is het gebruik van een constante waarde iets korter en sneller. In dit specifieke geval was 10 genoeg geweest (Bakkerij Jolink), maar 1000 is zeker genoeg. Nog nooit een bedrijfsnaam van meer dan 1000 karakters tegengekomen.

 

[HSV]

Kolom B kunnen ook gegevens uit een bankafschrift zijn natuurlijk.
Bv:
BEA NR:3JKM17 03.01.24/13.34 ALBERT HEIJN 1610 ALMERE,PAS722