Avatar billede sjssjdk Mester
11. juni 2015 - 08:06 Der er 3 kommentarer

Avanceret indsæt

Hej.

Jeg vil gerne lave en Lookup/index funktion der baseret på en intastning slår data op og indsætter. Dog skal det også være muligt at indtaste sin egen værdi i cellerne.

FX.

http://web.gratisupload.dk/f/8s5t87fbor/

Jeg vil gerne have at hvis man skriver Type A i Celler F3.
Så bliver Længde, Brede, Højde udfyldt.
Dog skal det også være muligt selvl at skriver i cellerne, B6, D6, F6 uden at ødelægge formlen.

Er det muligt at gøre?
Kræver det en macro, eller kan det klares uden?

mvh
Søren
11. juni 2015 - 13:26 #1
En celle = et indhold!

Du kan ikke indtaste nyt indhold, og samtidig beholde formlen.
Avatar billede jens48 Ekspert
11. juni 2015 - 14:01 #2
Indkluder en Type, der hedder "Selvalg" og brug nedenstående makro, som sletter formlerne hvis "Selvvalg" er valgt og genindsætter formlerne, hvis andet vælges. Formlerne tages fra skjulte celler - i eksemplet fra B1, D1 og F1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3")) Is Nothing Then
If Target <> "Selvvalg" Then
Range("B6").Formula = Range("B1").Formula
Range("D6").Formula = Range("D1").Formula
Range("F6").Formula = Range("F1").Formula
Else
Range("B6, D6, F6").ClearContents
End If
End If
End Sub
Avatar billede store-morten Ekspert
11. juni 2015 - 21:30 #3
Denne skriver formlerne når F3 ændres og sletter dem hvis F3 er tom.
Formler kan overskrives

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Intersect(Target, Range("F3")) Is Nothing Then
Range("B6").Formula = "=VLOOKUP(F3,J6:M8,2,FALSE)"
Range("D6").Formula = "=VLOOKUP(F3,J6:M8,3,FALSE)"
Range("F6").Formula = "=VLOOKUP(F3,J6:M8,4,FALSE)"
End If

If IsEmpty(Range("F3").Value) = True Then
Range("B6, D6, F6").ClearContents
End If

Application.EnableEvents = True

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester