Indsæt kolonne

Hvor skal den tomme kolonne indsættes, fæør eller efter TOM?

Kan TOM stå overalt i arket? Kan TOM stå flere gange? Hvis Ja, skal arket så læses i rækker eller kolonner; altså er TOM C43005 før TOM i D4?

Hej jkrons!

Den skal kunne sætte en ny kolonne ind umiddelbart før første forekomst af værdien "TOM" i en celle. Dette kunne godt være celle aa5....

Der er flere forekomster af værdien "TOM" men disse vil altid forekomme i efterfølgende kolonner....

M.v.h. Lars

Hej Lars

Når jeg spørger er det fordi, at når man bruger VBA vil den som standard læse alle kolonner i en bestemt række, før den læser næste række. Det vil sige, at hvis du har TOM stående i AA5 vil dette blive opfattet som den første, selv om der står en tom i A6.

Dette er man nødt til at tage højde for i programmeringen, hvis kolonne er vigtigere end række.

Jeg skal lige til møde et pare timer, men hvis du fortæller mig om A6 kommer før AA5 eller omvendt, skal jeg lave en løsning til dig, når jeg kommer tilbage.

Her er én af hver.

Sub InsertNewColumnperRo()
    For Each c In ActiveSheet.UsedRange.Cells
        If UCase(c.Value) = "TOM" Then
            c.EntireColumn.Select
            Selection.Insert Shift:=xlToRight
            Exit For
        End If
    Next c
    ActiveCell.Select
End Sub

Denne indsætter en ny kolonne foran den første "TOM", hvis rækker er vigtigere end kolonner. Har man "TOM" i cellerne B6 og D2 vil den tomme blive indsat før D-kolonnen.

Sub InsertNewColumnperColumn()
    Set rng = ActiveSheet.UsedRange.Cells
        For c = 1 To rng.Columns.Count
            For r = 1 To rng.Rows.Count
                If UCase(Cells(r, c).Value) = "TOM" Then
                    Cells(r, c).EntireColumn.Select
                    Selection.Insert Shift:=xlToRight
                    ActiveCell.Select
                    Exit Sub
                End If
            Next r
        Next c
End Sub

Denne indsætter en ny kolonne foran "TOM", hvis kolonner er vigtigere end rækker. Har man "TOM"  cellerne B6 og D2 vil den tomme blive indsat før B-kolonnen.

Hej!

Havde selv lige et møde og så var det hjem - og var så ikke lige på derhjemmefra derfor dette sene svar. AA5 kommer før a6...
Jeg tester lige dine koder igennem og vender så tilbage.

Hej igen!

Så er det testet og koden (den første) virker efter hensigten.
Mange tak for hjælpen - laver du lige et svar så jeg kan tildele point.
M.v.h. Lars

Her et svar :-)