Indsætte FALSE i mange lookups

Hvis de mange HLOOKUP's står uden en masse andre formler ind i mellem, ville jeg bruge Søg & Erstat.

Søg efter: 3)
Erstat med: 3;FALSE)

Søg efter: 4)
Erstat med: 4;FALSE)

osv.

Hvorfor ikke bare markere alle celler med HLOOKUP-formler der skal redigeres, tryk på F2 og skriv FALSE som sidste argument og herefter blot holde Ctrl tasten nede før du trykker på enter?

Hans

erikjuul> Jeg har op til 60, så det er ikke den meste elegante løsning

dkhanknu> Kan jeg markere 2.500 celler i forskellige ark på en smart måde?

Ja det er jo en ny oplysning.

Det kan mig bekendt kun lade sig gøre hvis formlerne i de forskellige sheets findes i nøjagtig de samme celleområder.

eller via VBA..

Præcis supertekst, det var en VBA løsning jeg søgte...

#3 Op til 60????

Det kan højst være cifrene fra 0-9.
3) er afslutning for både kolonne 3, 13, 23 osv.

Så det kan vist ikke tage mange minutter.

Men hvis du heller vil have en vba-løsning på noget der kan klares med Søg & Erstat, så...

#6: Har du mulighed for at sende filen/uddrag eller repræsentativ model - så skal jeg forsøge med VBA.

@-adresse under min profil.

Erikjuul> Der er for mange andre formler der vil blive påvirket ved søg erstat på tallene fra "0)" - "9)", der skal være semikolon foran ";0)" for at det kan give mening, og så er vi oppe på 1-60.

Mit bud på en VBA løsning skrevet med alm sprog:
1: Find teksten "hlookup("
3: Check om der står FALSE lige før slutparentesen, hvis ikke, så indsæt ";FALSE"

Koden skal loope gennem alle celle i alle ark i projektmappen.

Supertekst> Er ovenstående fyldestgørende? Eller skal jeg lave en eksempelfil?

Det er ok - har et bud:
Indlægges under et ark / Højreklik / Vis programkode / indsæt nedenstående.
OBS: Anvendelse af makroer skal være sat til.


Dim antalRækker As Long, antalKolonner As Long, ark As Worksheet
Dim cc As Object, dele As Variant
Sub udvidLookUp()
    For Each ark In ActiveWorkbook.Sheets
        ark.Select
        antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
        antalKolonner = ActiveCell.SpecialCells(xlLastCell).Column
       
        With ark
            For Each cc In .Range(.Cells(1, 1), .Cells(antalRækker, antalKolonner)).Cells
                If cc.HasFormula = True Then
                    adr = cc.Address
                   
                    If InStr(LCase(cc.Formula), "false") = 0 And _
                        InStr(LCase(cc.Formula), "hlookup") > 0 Then
                        ff = Left(cc.Formula, Len(cc.Formula) - 1) & ",FALSE)"
                        cc.Formula = ff
                    End If
                End If
            Next cc
        End With
    Next ark
End Sub

Du er for vil supertekst, det virker. 2.643 celler er blevet rettet på få sekunder.

Smider du et svar?

Fint - og et svar..