Advanced filter tabel, adder aut. værdi i hver søjle.

En ekstra ting, kan jeg smide en vlookup ind for hver linje, altså tabellen går fra f.eks A7 til I45. Så vil jeg gerne have smidt en bestemt kode ind i alle felterne J7 til J45, hvordan kan dette gøres med VBA?

Vælg dit område og brug så:


    For Each cell In Selection
        cell.Value = cell.Value + 50
    Next cell

Range("B7", Range("B5").End(xlDown)).Select
  r = WorksheetFunction.CountA(Selection)
For Each c In Selection.Cells
  c.Value = c.Value + 50#
  ActiveSheet.Cells(c.Row, 10).Formula = "=VLOOKUP(K" & c.Row & ",$A$7:$I$" & 6 + r & ",2)"
Next c
Så får du koderne med, ret selv formlen til.

Når jeg prøver at køre det giver det fejl i linjen c.value = c.value + 50# og i linjen cell.value = cell.value + 50.
Hvad kan problemet være?
Den finder den rigtige celle, altså den ender i den første celle den skulle plusse 50 til, men der stopper den uden at gøre det.

hov, vent. Jeg har fundet ud af hvad der er galt, det er min range. Vender tilbage om lidt.

Den fejl er fundet. Problemet er, at jeg har dette område, det kan være tomt. Hvordan kan jeg vælge området og ikke mere, altså hvis området strækker sig fra A7 til I8 skal det vælges, hvis linje 7 er tom, så skal intet vælges. Hidtil har jeg gjort det med:
Range("A7", Range("I5").End(xlDown).Offset(1, 0)).Select
Men med den vælger jeg altid en tom linje med, det giver lidt problemer.
Ligeledes vil jeg gerne høre hvordan jeg kan køre den formel så den springer celler over der ikke indeholder værdier, nogle af cellerne indeholder "-" og der kludrer den jo selvfølgeligt i det.
Håber i kan hjælpe med de 2 tillægsspørgsmål, hvis i kan smider jeg nogle ekstra point ind.

Den tomme linje der vælges med er selvfølgeligt den nederste, så der vælges alle linjerne i området plus den tomme linje lige nedenunder. Det skal lige nævnes, at der de linjer der har indhold, de har indhold i alle cellerne fra A til I.

Jeg har prøvet dette:
Range("B7", Range("B6").End(xlDown).Offset(1, 0)).Select
For Each c In Selection.Cells
  If c = "NA" Then c = "" Else c.Value = c.Value + 50
  ActiveSheet.Cells(c.Row, 10).Formula = "=A2"
Next c
Men den ændrer ikke cellerne der indeholder "NA" til "" og fejler så ved indsættelse af celle =A2 bagefter. Kan i fortælle mig hvad jeg gør galt?
Jeg mangler også stadigvæk at finde ud af at vælge det rigtige interval og ikke vælge en ekstra linje. Grunden til at jeg bruger et offset, det er fordi at når tabellen ikke indeholder data, så vælges linje 6 istedet og slettes, dette er ikke meningen. Hvis jeg istedet vælger fra I7 og ned, så går den jo helt i bund når tabellen er tom. Måske hvis man laver en test først som checker om I7 er tom eller ej, hvis den er, så skal den ikke vælge noget.

ok, jeg manglede noget .Value, så nu er det kun den rigtige range der skal vælges.

Ok, jeg har nu lavet det sådan at der bliver lagt værdier til hver enkelt søjle i tabellen. Men jeg synes det går meget langsomt, også selvom jeg slår screenupdating fra.
Kan det passe at det tager flere sekunder for at ordne en tabel med 100 indgange?
Koden jeg har brugt:
Range("B7", Range("B6").End(xlDown).Offset(1, 0)).Select
        For Each c In Selection.Cells
            If c.Value = "NA" Then c.Value = "" Else c.Value = c.Value + 50
            If ActiveSheet.Cells(c.Row, 3).Value = "NA" Then ActiveSheet.Cells(c.Row, 3).Value = "" Else ActiveSheet.Cells(c.Row, 3).Value = ActiveSheet.Cells(c.Row, 3).Value + 0.5
            If ActiveSheet.Cells(c.Row, 4).Value = "NA" Then ActiveSheet.Cells(c.Row, 4).Value = "" Else ActiveSheet.Cells(c.Row, 4).Value = ActiveSheet.Cells(c.Row, 4).Value + 0.5
            If ActiveSheet.Cells(c.Row, 5).Value = "NA" Then ActiveSheet.Cells(c.Row, 5).Value = "" Else ActiveSheet.Cells(c.Row, 5).Value = ActiveSheet.Cells(c.Row, 5).Value + 0.5
            If ActiveSheet.Cells(c.Row, 6).Value = "NA" Then ActiveSheet.Cells(c.Row, 6).Value = "" Else ActiveSheet.Cells(c.Row, 6).Value = ActiveSheet.Cells(c.Row, 6).Value + 0.5
            If ActiveSheet.Cells(c.Row, 7).Value = "NA" Then ActiveSheet.Cells(c.Row, 7).Value = "" Else ActiveSheet.Cells(c.Row, 7).Value = ActiveSheet.Cells(c.Row, 7).Value + 0.25
            If ActiveSheet.Cells(c.Row, 8).Value = "NA" Then ActiveSheet.Cells(c.Row, 8).Value = "" Else ActiveSheet.Cells(c.Row, 8).Value = ActiveSheet.Cells(c.Row, 8).Value + 0.25
            ActiveSheet.Cells(c.Row, 10).Formula = "=A2"
        Next c

Er der en smartere kode at bruge som går hurtigere og er mere elegant?

Kan du ikke sende arket til John_Fjord@hotmail.com, så skal jeg kigge lidt på den.
Lidt afhængig hvad det er du vil, lyder det som der kunne være en nemmere måde.

tak for tilbuddet, men nu har jeg faktisk fået det til at køre som jeg gerne vil have det. Jeg har fået hjælp af bak til at smide alt data over i en matrix og arbejde på det der, det går noget hurtigere.

men hvis du ligger et svar kan du og jkrons dele pointene.

Tak for hjælpen til jer begge to. Det viste sig at løsningen var for langsom til mit brug, men det ledte mig hen mod den løsning der blev valgt i stedet. Så problemet er løst og det er jo det der tæller.