verticaal zoeken met VBA

[adile]

Goedemorgen,

Ik heb een bestandje waar in rij B4 t/m B100 de volgende formule staat:

=ALS.FOUT(VERT.ZOEKEN(A4;Data!$A$2:$B$136;2;0);"")

Ik wil deze formule nu uit de kolom B halen omdat ik bang ben dat deze verwijderd wordt, en ik wil het met VBA gaan doen.
Weet iemand misschien een formule hiervoor?

Ik heb al gezocht maar kon niets vinden wat mij kan helpen.

Alvast bedankt.

Adile

PS heb een voorbeeld bestandje toegevoegd.

 

[tkint]

Beste,

Je kan toch het blad beveiligen zodat de gebruiker ide cellen met een formule niet kan wijzigen.

 

[adile]

heb ik geprobeerd, maar heb een aantal vba functies die dan niet meer werken.

 

[gast0660]

Hoi,
Ik heb 2 macro's gevonden in uw vbtje, ik heb die eventjes aangepast zodanig dat die lopen op een beveiligd werkblad, het paswoord is test
Vergeet VBA dan niet te beveiligen anders heeft het weing zin.
Voldoet dit voor u?

 

[Warme bakkertje]

Met deze in ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Registratie").Protect "test", , , , True
End Sub

mag zelfs het volledige werkblad beveiligd zijn dan nog zullen volgende uitgevoerd worden.

Sub AllePassenBinnen()
    Range("D4:D28,G4:G28,J4:J28,M4:M13,P4:P28,S4:S28") = "Pas retour"
End Sub

Sub AllesLeegmaken()
    Range("D4:D28,G4:G28,J4:J28,M4:M13,P4:P28,S4:S28").ClearContents
End Sub

 

[wieter]

Als je het met VBA wilt doen

 

[Warme bakkertje]

Zonder Copy

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(, 1).Value = Sheets("Data").Columns(1).Find(Target.Value).Offset(, 1).Value
    End If
End Sub

 

[wieter]

Rudi, ik veronderstelde dat de opmaak van sommige cellen een functie had.
Vandaar Copy

 

[adile]

goedenavond,

ik wil iedereen bedanken voor de input :thumb:

@ dotchie:

Jouw manier gaat mij niet lukken, want naast de 2 macro's die jij heeft aangespast heb ik meer codes,
waar ik ActiveSheet.Unprotect al op had geprobeerd en dat werkte niet.

dus de manier van wieter is eigenlijk de manier die ik zoek,
alleen dan met de verbetering van Rudi erin, ikwil de opmaak houden zoals hij is.

Alleen zit ik met 1 probleempje.
Wanneer ik de cellen weer leeg maak dan werkt de code ook nog en dan rekent hij een lege cel ook als waarde en gaat hij die zoeken.
dat doet hij dan ook voor de Kolommen C en D, E en F enz. (die ik in mijn originele bestand wel gebruik).
hoe kan ik dat eruit filteren?


Adile

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    if target.value = vbnullstring or target.count > 1 then exit sub
    If Target.Column = 1 Then
        Target.Offset(, 1).Value = Sheets("Data").Columns(1).Find(Target.Value).Offset(, 1).Value
    End If
End Sub

 

[adile]

Rudi,

dat is hem helemaal.

heel erg bedankt man.

Adile