Ændre celleværdi med VBA

Hmm eksemplet ser lidt rodet ud. Hvis I ikke kan hitte ud af det ligger excelarket her: http://dl.dropbox.com/u/39834771/Eksempel.xlsx

Celle E1= tom, så prøv:

Hej store-morten

Det virker 98 % efter hensigten.

Jeg har linket til resultatet af koden, og som du kan se, sker der en fejl i kolonne B.

http://dl.dropbox.com/u/58471064/Eksempel2.xlsx

Jeg tillader mig at komme med et mere ønske til funktionen af koden. Jeg ønsker at efter den første del som din kode "næsten" løser, skal celler med indhold "fyldes op" fra venstre og ud, uanset overskrifterne i række 1. Har også illustreret det i linket).

PS Hvad mener du med E1=tom? Det ser ud at koden virker fra B1 og helt ud vandret og hel ned lodret!

-Chris

Ja, når en celle til højre er "tom" stopper makroen ;-)

Så kan du udvide din "Tabel" med flere kolonner, bare der kommer en tom celle i række 1

Der må ikke være tomme "Navne celler" i kolonne A

Kan det undgås?
Evt. med "Tom" eller tast ' tegnet og et mellemrum.

Det er slet ikke noget problem. Så er der bare den lille fejl i kolonne B og så mit ekstra ønske :) Fedt hvis du også har løsningen på det :)

Så tror jeg den er der ;-)

Der må ikke være tomme "Navne celler" i kolonne A
Løser "den lille fejl i kolonne B"

Problemet som jeg nævnte omkring kolonne B er ikke et problem alligevel da der i A heller ikke vil opstå tomme felter.

Men angående det med at "fylde op" fra venstre virker koden ikke helt, den flytter kun 1 celle til venstre hvis denne er tom. Nogle steder vil der være to ++ tomme celler til venstre, som skal fyldes op (altså måske rykkes 3 celler til venstre hvis disse er tomme). Måske der skal køres noget loop? Men min evne rækker ikke helt dertil endnu.

Jeg er super glad for at du vil hjælpe!

-Chris

Prøver igen

Jeg får et overflow på: Tal = Tal + 1 der gør at Excel går ned når jeg bruger kode i mit store datasæt.

Syntes også der kom noget range define erro omkring

For Each c In Selection.Cells
            If c.Offset(0, -1).Value = "" Then
                c.Offset(0, -1).Value = c.Value
                c.Value = ""

Er der nogen Data til højre for kolonne D ?

Er der nogen formatering i området?

Ja, der er data til højre for kolonne D. En af mine ark går fra A1:CG1073, og størrelsen kan godt sving fra ark til ark.


Overskrifter og Navne er formateret som tekst. "1'tallene" er formateret som brugerdefineret:#.##0;-#.##0;#,##0;@

Tror du der findes en løsning på det?

Det vil være så vigtigt for mig hvis det kommer itl at virke.

Koden virker præcis efter hensigten hvis den køres på et lille datasæt.

Sub Udskift1()
Dim kb As String, rk As Long, kl As Long
Application.ScreenUpdating = False
Range("B1").Select

Igen:
    kb = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    rk = ActiveSheet.Range(kb & "65536").End(xlUp).Row
    kl = ActiveCell.Column
   
    ActiveSheet.Range(kb & "1").AutoFilter Field:=kl, Criteria1:="1"
    Range(kb & "1").Copy Destination:=Range(ActiveCell.Address & ":" & kb & rk)
    Application.CutCopyMode = False
    Selection.AutoFilter
    ActiveCell.Offset(0, 1).Select
   
    If ActiveCell <> "" Then GoTo Igen
   
    slut = Range("A65536").End(xlUp).Row
    Range("C2" & ":" & kb & slut).Select

        For Each c In Selection.Cells
            If c.Offset(0, -2).Value = "" Then
                c.Offset(0, -2).Value = c.Value
                c.Value = ""
            End If
            If c.Offset(0, -1).Value = "" Then
                c.Offset(0, -1).Value = c.Value
                c.Value = ""
            End If
        Next c

Range("A1").Select
Application.ScreenUpdating = True
End Sub

Hej

Excel går stadig ned (svare ikke) når jeg køre det store datasæt. Når jeg tester på et mindre datasæt rykkes de nu kun to pladser til venstre, altså de fylder ikke helt op. Denne del virkede før hvis excel ikke gik ned!

Jeg har uploadet et test ark som svare til mit store datasæt, men hvor jeg bare har ændret navne osv.

Håber du kan få det til at virke (og at du foresat vil hjælpe) :)

http://dl.dropbox.com/u/58471064/TEST.xlsm

Jeg har kikket lidt på det :-)

Ændret formater/Layout og lidt kode.

Kik om vi nærmer os.
http://gupl.dk/680170/

Og væk er koden !!!!!

Sættes ind på Ark2

Det virker. Hvor er det bare fedt. Mange tak for hjælpen. Så kan vi vist lukke tråden. Hvordan får jeg give dine fuldt ud fortjente point?

Velbekomme.

Her er en lille film, hvor du kan se hvordan man "accepter svar":
http://www.youtube.com/watch?v=s26DGiuvXBo