Køre liste igennem i excel og finde data

Mon ikke du mener at du har en tabel i Access?
Eller mener du et regneark i Excel?
Og mener du ikke KOLONNE G, ikke række?

Dit spørgsmål, løst i Excel, der finder den sidste udfyldte celle i kolonne G:

    Range("G1").Select
    Selection.End(xlDown).Select

Du kan også gøre det med et loop, men ovenstående er lettere. Vil du hellere have en løsning med et loop?

hvordan henter jeg så det tekst der står i den celle?

Prøv at svare på de første 3 spørgsmål først, så vi kan se om vi er enige om hvad du spørger om.

Men ellers:

MsgBox ActiveCell.Value

regneark i excel og mente kolonne g.

Før skrev den SAND, nu skriver den er tomt felt.

Skriver lige koden

Sub Udfyld()

Dim wsSheet As Worksheet
Dim i As Integer
i = 1

    Sheets.Add
    Sheets(1).Name = "Resultat"
   
    For Each wsSheet In Worksheets
        If wsSheet.Name <> "Resultat" Then
            Sheets("Resultat").Range("A" & i) = wsSheet.Name
            Range("G1").Select
            Dim tekst As String
            Selection.End(xlDown).Select
            Sheets("Resultat").Range("B" & i) = ActiveCell.Value
            i = i + 1
        End If
    Next wsSheet
    Sheets("Resultat").Range("A1").Select


End Sub

Nu skriver hvad sand hvor og hvornår?

Prøv at forklar lidt bedre...

Du Dim'mer en variabel "tekst" en hel masse gange (inde i FOR-løkken), er det ikke en fejl? Du bruger i øvrigt ikke variablen til noget

Jo, det er en fejl.

Da jeg kørte eksemplet første gang, udfyldte den hele Kolonne B i arket "Resultat" med SAND.

Da jeg så rettede

Sheets("Resultat").Range("B" & i) = Selection.End(xlDown).Select

til

Sheets("Resultat").Range("B" & i) = ActiveCell.Value

skriver den intet

Har du rettet fra

Sheets("Resultat").Range("B" & i) = Selection.End(xlDown).Select

til

Sheets("Resultat").Range("B" & i) = ActiveCell.Value


???

Du skal have begge linier med, som du selv har vist i koden 13:07:34

Og så skal du nok have styr på hvad der er aktivt, når du bruger kode som ActiveCell

Denne kode virker, bortset fra, er der kun ét tal i kolonne G, så finder den ingen tal. Hvorfor ikke?
Sub ArbejdernesLandsbank()
'
' ArbejdernesLandsbank Makro
' Makro indspillet 23-11-2004 af Christian Fynbo
Dim wsSheet As Worksheet
Dim i As Integer
i = 1

    Sheets.Add
    Sheets(1).Name = "Resultat"
   
    For Each wsSheet In Worksheets
        If wsSheet.Name <> "Resultat" Then
            Sheets("Resultat").Range("A" & i) = wsSheet.Name
            wsSheet.Select
            wsSheet.Range("G3").Select
            Selection.End(xlDown).Select
            Sheets("Resultat").Range("B" & i) = ActiveCell.Value
            i = i + 1
        End If
    Next wsSheet
    Sheets("Resultat").Select


End Sub

Kolonne G ser sådan ud:

1 Belob
2
3 323,23
4 323,23
5 532,33
232323

Først taler du om Access mens du mener excel
Og om rækker når du mener kolonner
Og så skriver at der kun er ET tal i kolonne G og derfor virker det ikke - men viser så, at der står mange flere tal i kolonne G

Jeg tror jeg springer fra...

Bemærk at du nu skriver G3 og ikke G1. Men det har du sikekrt en god forklaring på...

Ja, der er Excel.

Der er ca. 60 ark med en række indbetalinger. Jeg skal ha summen af alle indbetalinger fra hvert art. Det er det sidste tal i Kolonne G. I nogle ark  er der mange indbetalinger, der virker den fint. I andre ark er der kun én eneste indbetaling, der fungerer systemet ikke. Grunden til at jeg har skrevet G3 og ikke G1, er at ellers ville den stoppe efter overskriften i Kolonne G, som er Beløb.

ok

Ved du så hvorfor at den ikke fungere når der kun er ét tal?

Ja - du skal starte i G2, ikke i G3!!!

Koden:

wsSheet.Range("G2").Select  '< Bemærk G2, ikke G3
Selection.End(xlDown).Select

svarer til at stille sig i cellen G2, holde Ctrl nede og trykke pil ned. Derved bliver sidste celle i kolonne G valgt - er der kun et tal (der er i celle G3) vil det tal blive valgt. Er der slet ingen tal, bliver den sidste celle i kolonne G valgt - og den er tom...

Over & out, Martin

prøv denne

Sub ArbejdernesLandsbank()
'
' ArbejdernesLandsbank Makro
' Makro indspillet 23-11-2004 af Christian Fynbo
Dim wsSheet As Worksheet
Dim i As Integer
Dim rng As Range
Dim sh As Worksheet
i = 1

    Set sh = Sheets.Add
    sh.Name = "Resultat"
    For Each wsSheet In Worksheets
        If wsSheet.Name <> "Resultat" Then
            Sheets("Resultat").Range("A" & i) = wsSheet.Name
            Set rng = wsSheet.Range("G65536").End(xlUp)
            If rng.Row > 1 Then
                Sheets("Resultat").Range("B" & i) = rng
            End If
            i = i + 1
        End If
    Next wsSheet
    Sheets("Resultat").Select
End Sub

bak's virkede efter hensigten.

smid et svar, bak

Ikke for noget, min virker skam også hvis du retter til G2 som jeg skrev

ok, og jeg deler gerne med martin :-)

Ja tak - det er trods alt mig, der leverede indsatsen omkring at få redegjort, hvad der egenligt blev spurgt om. Og deri lå det meste af arbejdet - det er jo nemt nok at komme med en løsning, når man først kan se hvad det drejer sig om :o)

God jul.

;o)

PS: Jeg skal bruge pointene til julegaver - derfor!

Det bliver nok en billig jul, hva' ?
Jeg tror jeg adopterer den ide... :-)