Verticaal zoeken in excel

[nielsbl11]

Vraagje over verticaal zoeken,

het normale zoeken lukt wel maar nu maak ik het iets complexer

=VERT.ZOEKEN(B6;Leaflet!$A$4:$B$210;2;ONWAAR)

hier gaat hij dus naar de waarde in B6 zoeken deze is : "_AA0102"

deze gaat hij in een ander blad (genaamd leaflet) zoeken; nu moet hij uit de tabel bij "AA01-02" de bijbehorende waarde invoegen.
beide waarden liggen vast en kunnen dus niet aangepast worden maar toch moet hij deze op een of andere manier kunnen vinden.

 

[Haije]

Niels,

welkom op Helpmij.nl
dit zou het moeten doen:

=VERT.ZOEKEN(RECHTS(B6;7);Leaflet!$A$4:$B$210;2;ONWAAR)

 

[nielsbl11]

Misschien is er nog een andere mogelijkheid,

de opmaak van een cel automatisch wijzigen, is dit programmeerbaar? of via opmaak in excel?

van "AA01-01" automatisch "_AA0101" maken. maar als in dit zelfde vakje bij voorbeeld "CD00-05" " moet hij er "_CD0005" van maken.

dus de opmaak van een vakje moet automatisch worden gewijzigd zodra er waarden worden geimporteerd

 

[Roncancio]

Het is zeker programmeerbaar je kunt ook zoeken en vervangen om vervolgens in de cel samenstellen met "_" en de verwijzing naar de broncel.

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

Haije,

ik heb het ingevoerd maar deze wijziging heeft geen effect

alternatieve oplossingen?

 

[nielsbl11]

Het is zeker programmeerbaar je kunt ook zoeken en vervangen om vervolgens in de cel samenstellen met "_" en de verwijzing naar de broncel.

Met vriendelijke groet,


Roncancio

Hoe bedoel je dit precies?

 

[Niels28]

Cel opmaak heeft geen nut dat is alleen visueel, zo verander je de waarde bij invoer.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Left(Replace(Target.Value, Chr(34), Chr(34) & "_"), Len(Target.Value) + 1)
Application.EnableEvents = True
End If

End Sub

Niels

 

[Roncancio]

Via CTRL-H zoeken/vervangen.
Dus zoeken naar _ en bij vervangen niets invullen.

Stel in cel A1 staat nu AA0101.
In de cel ernaast zet je dan ="_" & A1.

Tenslotte kopieer je de nieuwe waarde naar de oorspronkelijke cel.

Het kan wel met VBA maar het hoeft niet.

Met vriendelijke groet,


Roncancio

 

[nielsbl11]

Cel opmaak heeft geen nut dat is alleen visueel, zo verander je de waarde bij invoer.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Left(Replace(Target.Value, Chr(34), Chr(34) & "_"), Len(Target.Value) + 1)
Application.EnableEvents = True
End If

End Sub

Niels

dus dan moet hij als hij een document invoerd de hele opmaak van kolom A veranderen van AA01-01 naar _AA0101

 

[nielsbl11]

Via CTRL-H zoeken/vervangen.
Dus zoeken naar _ en bij vervangen niets invullen.

Stel in cel A1 staat nu AA0101.
In de cel ernaast zet je dan ="_" & A1.

Tenslotte kopieer je de nieuwe waarde naar de oorspronkelijke cel.

Het kan wel met VBA maar het hoeft niet.

Met vriendelijke groet,


Roncancio

In de cel ernaast staat toch de waarde die hij op moet zoeken of is de plek waar die waarde moet worden ingevuld

 

[nielsbl11]

Er moeten intotaal tussen de 200 en 300 waarden worden gewijzigd van opbouw van _XXXXXX naar XXXX-XX

zodat hij deze waarden kan zoeken, misschien hoeft die opbouw niet veranderd te worden dat hij alsnog kan zoeken naar XXXX-XX met als invoer _XXXXXX

 

[Niels28]

Draai je het nu weer om?

dit was je eerdere vraag

Sub aanpassen()
For Each cl In Range("A2:A200").SpecialCells(2)
cl.Value = "_" & Replace(cl.Value, "-", "")
Next
End Sub

Niels

 

[nielsbl11]

Draai je het nu weer om?

dit was je eerdere vraag

Sub aanpassen()
For Each cl In Range("A2:A200").SpecialCells(2)
cl.Value = "_" & Replace(cl.Value, "-", "")
Next
End Sub

Niels

klopt sorry van XXXX-XX naar _XXXXXX

 

[nielsbl11]

zit er helemaal mee vast dat moet kloppen dan kan ik het uiteindelijke programma uittekenen

 

[Niels28]

klopt sorry van XXXX-XX naar _XXXXXX

ja dit doet ie toch????

Niels

 

[nielsbl11]

Ik gebruik nu dit:

Via CTRL-H zoeken/vervangen.
Dus zoeken naar _ en bij vervangen niets invullen.

Stel in cel A1 staat nu AA0101.
In de cel ernaast zet je dan ="_" & A1.

Tenslotte kopieer je de nieuwe waarde naar de oorspronkelijke cel.

alleen nu moet ik nog waarden uit de cel waar ik nu dat "_ plaats en - weghaal" knippen en plakken in de oorspronkelijke cel , als ik dit nu doe geeft hij een waarde dat ik de link tussen de cellen weghaal

 

[nielsbl11]

Het is gelukt met de code van Niels28

Sub aanpassen()
For Each cl In Range("A2:A200").SpecialCells(2)
cl.Value = "_" & Replace(cl.Value, "-", "")
Next
End Sub

wederom bedankt!

 

[nielsbl11]

Misschien weet jij hier nog een oplossing voor niels28,

Kun je een macro opnemen van een klik in de menu balk, in mijn geval onder tools --> update nx part?
Dit lukt niet op de makkelijke manier van macro opnemen en dan aanklikken wat ik hier boven heb beschreven.

 

[Niels28]

Sorry kan ik je niet mee helpen.

Niels