verticaal zoeken

Hallo allemaal
Ik heb het volgende probleem

blad 1 kolA
namen voluit
Jansen en Tilanus
bakker en Bakker
jansen en Tilanus
Jansen en Tilanus
haastra en de graaf
van zanten en zanten

nu wil ik de afkortingen in kolom B zetten
door in B1 =vert.zoeken(A1;blad2!a1:b4;2)
B2=vert.zoeken(A2;blad2!a1:b4;2)
etc etc

in blad 2 op alfabetiche volgorde
kolom A kolom B
bakker en Bakker B&B
haastra en de graaf HdeG
Jansen en Tilanus J&T
van zanten en zanten VZZ

Als ik de cel B1 in blad1 naar beneden kopieer
gaat het fout dan wordt ook in vert.zoeken de cellen van blad2 opgehoogd en dat moet niet.

Ik wil dit in VBA schrijven
als Range("B1").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Blad2!RC[-1]:R[3]C,2)"
hoe hoog ik enkel de cel in kolom A van blad1 op
Graag jullie oplossing
Groet Ron

Met de dollartekens zet je ze vast.
$A1 = de rij relatief en de kolom absoluut.
$A$1:$B$4 = de rij en kolom absoluut
A$1 = de kolom relatief en de rij absoluut.



Voor VBA:

maar het kan ook met:

Succes.

Dank je Harry
de formule werkt nu maar ik probeer het in VBExcel te zetten en dat gaat niet lukken

Een aantal kolommen worden ingevoegd waaronder kolom U (afkorting ontvanger) deze kijkt naar kolom V (volledige naam)
en daar loopt het spaak krijg ONWAAR

Heb je de oplossing ?
bijvoorbaat dank Ron


Sub kolommen_invoegen()


'scherm flitsen uitzetten
Application.ScreenUpdating = False
dosnummer = InputBox("dossiernummer")
Dim ws As Worksheet
Dim row As Integer
Dim col As Integer


Set ws = ActiveWorkbook.Sheets("TEST")
'ActiveSheet.Name = "TEST"

'KOLOM A DOSSIERNUMMER INVOEGEN

Columns("A:A").Select
Range("A:A").Activate
Selection.NumberFormat = "General"
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "dossiernummer"
Range("A:A").Select
Selection.NumberFormat = "General"

'KOLOM H PRODUCT INVOEGEN

Columns("H:H").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ColumnWidth = 10

Range("H1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "product"


'KOLOM Q BRUTO INVOEGEN

Columns("Q:Q").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ColumnWidth = 10

Range("Q1").Select
ActiveCell.FormulaR1C1 = "bruto"
Range("OQ2:O300").Select
Selection.NumberFormat = "0"

'KOLOM R TUSSENVOEGEN VOOR house b/l

Columns("R:R").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ColumnWidth = 10

Range("R1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "houseb/l"

'KOLOM S TUSSENVOEGEN VOOR OCEAN b/l

Columns("S:S").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.ColumnWidth = 10

Range("S1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "oceanb/l"


'KOLOM U TUSSENVOEGEN ONTVANGERS VOOR DESTINATION

Columns("U:U").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("U1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "ontvanger"



'KOLOMMEN VULLEN
row = 2
col = 1



Do Until ws.Cells(row, col + 1).Value = ""

Cells(row, col) = dosnummer
Cells(row, col + 7) = "stukgoed"

' kolom U vullen
Cells(row, col + 20) = ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Blad1!R1C1:R54C2,2,FALSE)"
'Cells(row, col + 21) = ActiveCell.FormulaLocal = "= vert.zoeken(indirect(""U""& row());Blad1!A1:B54;2;0)"
row = row + 1

Loop

'FILTER AANZETTEN

Range("A1:W1").Select
Selection.AutoFilter
ActiveWindow.ScrollColumn = 10

'scherm flitsen weer aanzetten

Application.ScreenUpdating = True

End Sub

Zo dan?

Graag codetags gebruiken.

Beste Harry

Zo is ie perfect, met wat gesleutel heb ik nog een paar kolommen aangepast
Leuk leerproces met macros naar VBA

ps Snap alleen niet wat je met codetags bedoelt.

Hartelijk dank voor je snelle hulp.

Groet Ron

Graag gedaan Ron,