Formule bewaren op achtergrond

[MartijnLiempde]

Goedemorgen.

Ik heb een document waar deze formule in staat.

=ALS.FOUT(INDEX(Klantnaam;VERGELIJKEN($B$4;zoekcode;0));"")

soms komt het voor dat er een nieuwe klant of een andere benaming aan wordt gegeven.

dit vult mijn collega dan handmatig in en de keer erna is die formule dus verdwenen / overschreven.
hoe kan ik deze formule vast aan een cel toewijzen maar wel behouden dat de cel handmatig bewerkbaar blijft.

grtz!

 

[MartijnLiempde]

vb

hier het voorbeeld

 

[sylvester-ponte]

Martijn, ik kan je formule nergens vinden.

 

[MartijnLiempde]

zie de sheet "Leeg werkorder" en dan cel B5 B6 B7
in die drie zitten de formules.

 

[sylvester-ponte]

mogelijkheden:
1 verberg het sheet "Leeg werkorder" en laat met vba dmv bvb een knop een kopie maken waar in gewerkt kan worden.
2 laat vba op het moment dat de zoekcode is ingevuld de betreffende cellen invullen. (dan heb je geen formules meer nodig.)

 

[MartijnLiempde]

dan kies ik optie 2

hoe zou ik dit het beste kunnen doen?:shocked:

 

[MartijnLiempde]

??

 

[Cobbe]

Zo iets misschien.

 

[MartijnLiempde]

hij veranderd ze wel cobbe alleen krijg ik deze foutmelding

Fout 1004 tijdens uitvoering:

Eigenschap VLookup van klasse worksheetfunction kan niet worden opgehaald
foutopsporing zegt dat het hier aan ligt
.Cells(5, 2) = WorksheetFunction.VLookup(.Cells(4, 2), zoekcode, 2, 0)

 

[Cobbe]

Is uw werkblad beveiligd?

 

[MartijnLiempde]

nee

 

[Cobbe]

In het bestand dat ik postte loopt dat toch zonder problemen?

 

[sylvester-ponte]

bij mij liep het ook vast
probeer het eens met deze code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(4, 2)) Is Nothing Then Exit Sub
if target.count>1 then exit sub
Set R = Sheets("klantenbestand").Range("zoekcode").Find(.Cells(4, 2))
If R Is Nothing Then Exit Sub
With Sheets("Leeg Werkorder")
    Application.EnableEvents = False
        .Cells(5, 2) = R.Offset(, 1)
        .Cells(6, 2) = R.Offset(, 2)
        .Cells(7, 2) = R.Offset(, 3)
        .Cells(8, 2) = R.Offset(, 4)
    Application.EnableEvents = True
End With
End Sub

 

[VenA]

Of iets korter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(4, 2)) Is Nothing And Target.Count = 1 Then
    Set r = Sheets("klantenbestand").Range("zoekcode").Find(Cells(4, 2))
    If Not r Is Nothing Then Range("B5:B8") = Application.Transpose(r.Offset(, 1).Resize(, 4))
End If
End Sub

 

[MartijnLiempde]

Bedankt VenA die werkt super