CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

petan Nybegynder

17. december 2007 - 12:41 Der er 4 kommentarer og
2 løsninger

Makro der gennemløber liste og erstatter blanke værdier

Hej,

Jeg har en meget lang liste med navne på personer. Nogle af personerne fremgår flere gange end én, og i det tilfælde er feltet blankt i alle andre rækker end den første. Eksempel:

Blank
Blank
Jens
Blank
Erik

Altså de første 3 linier vedrører Jens, og de sidste 2 vedrører Erik.

Jeg vil gerne have erstattet alle de blanke felter med navnet på personen som linien vedrører. Altså noget med en loop (der måske kører baglæns) og som tjekker om feltet er tomt, og i givet fald copy/Paster værdien fra det forrige felt ind.

På forhånd tak!

Synes godt om

kabbak Professor

17. december 2007 - 13:04 #1

Klik ind på en celle i den kolonne der skal tjekkes og kør makroen

Husk at du ikke kan fortryde, så gem først

Public Sub UdfyldBlanke()
col = ActiveCell.Column
rk = Cells(65536, col).End(xlUp).Row
For i = rk To 2 Step -1
If IsEmpty(Cells(i, col)) Then
Cells(i, col) = Cells(i, col).End(xlDown).Value
End If
Next
End Sub

Synes godt om

mowi Nybegynder

17. december 2007 - 13:06 #2

Jeg forudsætter, at navnene står i kolonne A. Prøv med følgende:

Sub InsertName()
Dim cell As Range, NextRow As Long, i As Long
NextRow = Range("A65536").End(xlUp).Row
For i = NextRow To 1 Step -1
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Value = Cells(i + 1, 1).Value
End If
Next i
End Sub

Synes godt om

mowi Nybegynder

17. december 2007 - 13:08 #3

Du er sgu hurtig kabbak :-)

Synes godt om

petan Nybegynder

18. december 2007 - 19:05 #4

Tak for hurtigt svar begge to! De lader til at virke begge to. Jeg endte med at bruge mowi´s, men hvis I begge giver et et svar deler jeg mine point mellem jer.

Synes godt om

mowi Nybegynder

18. december 2007 - 21:13 #5

Svar herfra

Synes godt om

kabbak Professor

18. december 2007 - 21:27 #6

også mig ;-))

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Returnere korrekt værdi ved dubletter Af karina1971 i Excel	2	I dag 13:13	I dag 14:02
Excel åbner fil i kæmpe format Af Aske i Excel	8	02/11/202406:10	02/11/202411:56
Summere beløb pr. dato Af TTA i Excel	2	01/11/202412:37	01/11/202415:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel	10	30/10/202408:41	30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel	8	29/10/202411:50	29/10/202414:18

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS