07. november 2004 - 14:56Der er
12 kommentarer og 2 løsninger
Datosøgning med returnering af værdi
Hejsa!
Jeg har efterhånden fået hjælp til et par rimelig snedige ting, så der er åbenbart ikke de ting man ikke kan gøre i Excel så jeg prøver lige igen.
Jeg sidder med et større bogføringsark med én række for hver dato. I en bestemt kolonne skal jeg indtaste dagens dankort salg iflg. bankudskriften. Bankudskriften ligger i et andet ark. Idet dagens dankort salg bliver registreret senere skal jeg finde følgende teksstreng "Dankort-salg 035425-12.05-34" og returnere værdien to felter til højre. Den førnævnte tekstreng begynder altid med "Dankort-salg 035422-dag.måned-xx" og jeg aner ikke hvad xx betyder. Jeg tror ikke det er nok kun at søge efter dag.måned jeg mener også at 035422 fast skal med i søgning da det er entydigt for denne virksomhed. Der kunne jo være ind eller udbetalinger med dag.måned i teksfeltet. JEg håber virkelig der er nogen der kan hjælpe mig.
Opsummering: En funktion der udfra værdien i datokolonnen søger i et andet ark efter en fast tekstreng (035422) samt værdien i datokolonnen og returnerer værdien 2 felter til højre.
Public Function Bankopslag(Kriterier As String, Opslagsliste As Range, ResultatKolonne As Integer) Dim FKrit As Variant, L As Integer, R As Long, T As Long Application.Volatile L = Len(Kriterier) R = Opslagsliste.Rows.Count K = Opslagsliste.Columns.Count For T = 1 To R FKrit = "" If Left(Opslagsliste.Cells(T, 1), L) = Kriterier Then Bankopslag = Opslagsliste(T, ResultatKolonne) Exit Function End If Next Bankopslag = "Ikke fundet" End Function
Public Function Bankopslag(Kriterier As String, Opslagsliste As Range, ResultatKolonne As Integer) Dim L As Integer, R As Long, T As Long Application.Volatile L = Len(Kriterier) R = Opslagsliste.Rows.Count For T = 1 To R If Left(Opslagsliste.Cells(T, 1), L) = Kriterier Then Bankopslag = Opslagsliste(T, ResultatKolonne) Exit Function End If Next Bankopslag = "Ikke fundet" End Function
Ok nu returnerer den værdier men kun for datoerne 05-08 i hver måned. DET er fandme mærkelig. Tekstrengen for 08.07 er f. eks. "Dankort-salg 035422-08.07-31" og for den 09.07 er den "Dankort-salg 035425-09.07-30" hvilket den ikke finder.
Ohhh yea baby efter ombytning er den helt i vinkel. Det her er for vildt. Fagre nye lidt nørdede men alligevel totalt seje verden. Send mig lige et svar så er der en pose point og et par lovprisende ord med på vejen tusind tak for hjælpen - endnu engang.
Denne post betyder at et dankort er blevet kørt gennem "slæden". Problemet er at der kan forekomme flere poster på samme dag. Flere mennesker kan betale via "Dankort-slæden". Kan din nye funktion bare søge på "Dankort-salg 05.10" og lave en sum på det?
Public Function Bankopslag(Kriterier As String, Opslagsliste As Range, ResultatKolonne As Integer) Dim L As Integer, R As Long, T As Long, Belob As Integer Application.Volatile L = Len(Kriterier) R = Opslagsliste.Rows.Count For T = 1 To R If Left(Opslagsliste.Cells(T, 1), L) = Kriterier Then Bankopslag = Bankopslag + Opslagsliste(T, ResultatKolonne) End If Next End Function
sådan, nu summerer den, men så får du ikke vist "IKKE FUNDET", når der ikke er noget
SÅDAN, føler mig lidt som en abe der misbruger din tid, men det er fandme for fedt det her. Viste lige chefen hvad excel kunne nu - han var rimelig imponeret.
Omkring det med året det må du spørge bankerne om, der er jo en masse mærkelige tal som jeg ikke kan tyde i teksstrengen der søges på, måske bruger de det til noget.
For mig betyder det ikke noget. Når jeg har fået den til at hente de værdier jeg har brug for kan jeg jo slette formlen og der hvor den henter værdierne og indlæse næste år og bruge samme formel når jeg når så langt. Men tak for venligheden.
Jeg kan se det er dig der også er på spil med mit forrige problem. Omkring en udvidelse til også at søge videre end fra kolonne A-Z tror du det er muligt? http://www.eksperten.dk/spm/558214
Synes godt om
Ny brugerNybegynder
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.
