Avatar billede Aramis2007 Nybegynder
15. oktober 2011 - 14:33 Der er 2 kommentarer og
1 løsning

Udfyld tomme celler

Jeg har haft nogle flettede celler i kolonerne E,F og G. Flettefunktionaliteten er nu fjernet, men nu har jeg nogle tomme celler, som jeg vil have udfyldt med den tekst som oprindeligt stod i de flettede celler, men som nu i sagens natur kun optræder i den øverste af cellerne.

Eksempelvis:

Celle E2 har en værdi men efterfølges af de tomme celler E3 og E4 . E5 har en anden værdi men efterfølges af flere tomme celler osv.

Er det muligt at lave en makro, som i tilfælde af en tom celle kan søge vertikalt i samme kolonne, og indsætter den førstkommende værdi i den tomme celle?

Makroen må som sagt meget gerne gøre ovenstående for kolonnerne E,F og G.

De bedste hilsner
Sebastian
Avatar billede Slettet bruger
15. oktober 2011 - 15:39 #1
For eksempel:

Sub FillBlanks()
Dim rr, r As Range
Set r = Range("E2:G20")
For Each rr In r
    If rr.Value = "" Then
        rr.Value = rr.Offset(-1, 0).Value
    End If
Next rr
End Sub

Ret selv i linje 3 til det relevante område.
Avatar billede Aramis2007 Nybegynder
15. oktober 2011 - 15:53 #2
Det ser ud til at virke fint.

Tak for det hurtige svar!

Send gerne et "svar" så jeg kan tildele point.

1000 tak for hjælpen!

Vh. Sebastian
Avatar billede Slettet bruger
15. oktober 2011 - 16:50 #3
OK.
Hans
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester