HJælp til Macro

Prøv at forklare helt præcist hvad den ønskede funktion skal udføre...

Jeh har 10 celler under hinanden (A1 - A10), som inde holder en værdi, som der skal laves funktionen "LEFT" på (LEFT(A1;5). Men det er dynamisk dvs. det er ikke altid 10 celler, det kan være flere eller færre.
Derfor søger jeg hjælp til noget man kan gøre for at indikere rækkenr og cellenr, da man så nemt med variabel i macro kan lave den "dynamisk".

Er det så ikke et spørgsmål om, at makroen skal virke på "det/de markerede celler"

Jo, præcis den skal kun virke på celler, hvor der er tekst i.

Har du ide eller eksempel?

Eksempel:

Sub testLeft()
Rem Traverser det/de markerede celler
        For Each cc In Selection.Cells
       
Rem Hvis cellen indeholder tekst
            If IsNumeric(cc.Value) = False Then
Rem Sæt aktuelle cell = 5 første tegn
                cc.Value = Left(cc.Value, 5)
            End If
        Next cc
End Sub

Tak gider du skrive kommentaterer til den, så jeg forstår den lidt bedre. :-)

Rent praktisk skrev jeg i forskellige celler noget tekst - såvel sammenhængende celler som adskilte. Markerede de nævnte områder - kørte makroen:

Sub testLeft()
Rem Traverser det/de markerede celler
rem behandling af hver celle - repræsenteret med variablen "cc" i de markerede (Selection) celler
        For Each cc In Selection.Cells
       
Rem Hvis cellen indeholder tekst
rem Hvis cellens indhold IKKE er numerisk
            If IsNumeric(cc.Value) = False Then
Rem Sæt aktuelle cell = 5 første tegn
rem Så udtræk de 5 første tegn og indsæt dem i den aktuelle celle ("cc")
                cc.Value = Left(cc.Value, 5)
            End If
rem "Gå videretil næste celle"
        Next cc
End Sub


Er det ok?

jeg forstår det ikke helt, hvordan kan jeg i "det/de markerede celler", som du skriver definere hvilke celler der er tale om.

Du må gerne lave et eksempel hvor du skriver i hvilke kolonner der er tal og skrive makroen ned med variabler og det hele.

Kan du gøre det?

Hey Jeg fik det til at virke tak for hjælpen. Jeg er bare stødt ind i et andet problem i stedet.

Jeg kan se at du har brugt "Left"-funktionen i dit eksempel. Kan du ikke give et eksempel på en "Vlookup"-funktion på samme måde uden det er med RC1 eller hvad det hedder?

Så ville jeg blive rigtig glad.

vh spottie

Godt du fik det til at fungere - så lad os afslutte dette - har ikke rigtig tid til mere p.t. på grund af kundeopgaver. Evt. opret det nye problem som nyt spørgsmål.

Så du får et svar.