Notifikationer

Markér alle som læst Log ud

challenge Praktikant

02. juni 2009 - 16:26 Der er 2 kommentarer og
1 løsning

VBA AutoFill hvis kriterie ikke opfyldt

Hej Eksperter,

Jeg er ikke klar over, om dette bør ligge i opgaver, men jeg smider det her.

Jeg har en tabel med en række datoer, hvor den nederste dato er et udtryk for den næste hverdag efter i dag (dette er sørget for med en formel i dato-cellen). For at dette altid skal være gældende, skal jeg manuelt ind og AutoFill'e nedad hver morgen.

Er det muligt, vha. VBA, at automatisere følgende hver gang Excel-arket åbnes (?) :

Hvis nederste celle ikke er lig næste hverdag efter i dag, tag da nederste celle og AutoFill nedad 1 gang. Gør dette indtil kriteriet (dato-celle er lig næste hverdag fra i morgen) er opfyldt.

Således regner jeg ud, hvilken dato er den næste hverdag i rækken (hvis det har nogen betydning):
=IF(WEEKDAY(B6+1)>1;IF(WEEKDAY(B6+1)<7;B6+1;B6+3);B6+3)

Hvis hvad jeg ønsker stadig er uklart, specifiser da gerne hvad jeg bør uddybe.

Synes godt om

challenge Praktikant

02. juni 2009 - 16:56 #1

Dette er hvad jeg med min begrænsede viden kan finde ud af, indtil videre:

Sub AutoFillLastCell()

Set SourceRange = Worksheets("Sheet1").Range("A1:G1")
Set fillRange = Worksheets("Sheet1").Range("A1:G30")
SourceRange.AutoFill Destination:=fillRange

Range("A65000").End(xlUp).Select

End Sub

Denne fylder A1:G1 til A30:G30 og markerer sidste brugte celle - hvorledes kan jeg sammensætte dette således at Sourcerange er sidste brugte celle (eks. A21:G21) og AutoFiller ned en gang (eks. A22:G22)?

Synes godt om

challenge Praktikant

02. juni 2009 - 17:47 #2

Jeg fik den vist selv. Google kan fikse mange problemer...

Sub AutoFillLastCell()

Dim currentNow As Integer
currentNow = 14

Do While Worksheets("Sheet1").Range("A65000").End(xlUp).Value < currentNow

Set SourceRange = Worksheets("Sheet1").Range("A1:G2")
Set fillRange = Worksheets("Sheet1").Range("A1:G" & Worksheets("Sheet1").Range("A65000").End(xlUp).Offset(1, 0).Row)
SourceRange.AutoFill Destination:=fillRange

Loop

End Sub

Synes godt om

challenge Praktikant

02. juni 2009 - 17:47 #3

...

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

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

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