Finde lopslag ved hjælp af markro

Hej

Skulle nok være muligt via VBA.

Hvis det er en fil der kan sendes er du velkommen til dette.
@-adresse under min profil.

Hej supertekst

Den fylder 23MB, indeholder 4943 rækker og 143 kolonner hvoraf de 87 kolonner indeholder lopslag. Dvs. 430.041 celler med lopslag. Desuden indeholder den oplysninger jeg ikke må offentliggøre.

Så desværre kan jeg ikke sende den til dig.

Hej Ladelund

Det er ok.

Tager det lang tid at åbne filen?

Har brugerne behov for at have adgang til den totale mængde på en gang? Alternativet kunne være en selektiv søgning. Nu ved jeg jo ikke hvilke form for data der er tale om.

De 87 kolonner du nævner, kan de defineres som et samlet område?

Koden til at hive værdien ud af en formel er ret enkel:

            If Cells(ræk, kol).HasFormula = True Then
                værdi = Cells(ræk, kol)
                Cells(ræk, kol) = værdi

Hej

Det tager egentlig ikke lang tid at åbne den, det er den tid den bruger på at beregne der er lang. det er derfor jeg fjerner lopslag inden jeg ligger den på fælles drevet.
De har brug for at kunne se det hele på engang men der er filtre på kolonnerne.
De 87 kolonner er ikke et samlet område, de er spredte.

Den kode du viser henter den ikke værdien uanset hvilken formel der er i cellen? Der er nogle beregninger i en del af cellerne der skal blive så den kan bruges til simulering af prisforslag.

Hej

Jo - koden tester ikke på type af formel - men det er ikke noget problem.

Vedr. Lopslag - så skal de relevante celler defineres - så kan det lade sig gøre.

Hej

Ja, på den måde at det f.eks. er kolonne B række 9 til 4934 og kolonne H række 9 til 4934 osv.

Rækkerne er de samme hele vejen igennem alle 87 kolonner.

Vender tilbage senere..

Sub findLopslag()
Const fraRæk = "9"
Const tilRæk = "4934"
Const områdeK = "B,H"                              '<<------ justeres
Dim tabel As Variant, cc, x As Integer
    tabel = Split(områdeK, ",")
   
    For x = 0 To UBound(tabel)
        For Each cc In ActiveSheet.Range(tabel(x) & fraRæk & ":" & tabel(x) & tilRæk).Cells
            If cc.HasFormula = True Then
                If InStr(cc.Formula, "=VLOOKUP") > 0 Then
                    værdi = cc.Value
                    cc.Value = værdi
                End If
            End If
        Next cc
    Next x
       
End Sub

Hej supertekst

Det var lige det der skulle til.
Super, Tak for hjælpen

Læg et svar så du kan få point.

ladelund

Fint og selv tak