Notifikationer

Markér alle som læst Log ud

bosonic Nybegynder

13. oktober 2011 - 14:05 Der er 14 kommentarer

Automatisk navngivning af ark + farvekode

Hej

Jeg skal lave flg.

jeg skal have en excel fil som skal have 30 eller 31 ark i som skal hedde 01/10/11 Lørdag 02/10/11 Søndag osv. altså for en hel måned afgangen derfor de 30/31 stk ark.. og så vil jeg lave en fil for hver måned.

men da jeg ikke har lyst til at skulle skrive samtlige 365 dage i..

ville jeg høre om det var muligt at lave et styreark, hvor man kunne ændre datoerne bare ved at trække ned?

hvordan gøres det bedst mht. 30 mdr. og 31 mdr. osv?

og nu til den største opgave, når et ark blive udfyldt i række A5 og ned efter skal farven skifte i flg interval

0 = normal farve
0-5 = Grøn
6 - 10 = Gul
11 - 20 = rød

håber der er nogen som kan hjælpe?

Mvh
Bob

Synes godt om

supertekst Ekspert

13. oktober 2011 - 14:18 #1

Filer & ark kan genereres automatisk via VBA også med hensyn til 30/31 dage - også februar samt skudår - helligdage, hvis det er aktuelt.

vedr. "den største opgave":
Er det værdien af kolonne A, der bestemmer farven?
Hvor meget skal have farve?

Synes godt om

bosonic Nybegynder

13. oktober 2011 - 14:37 #2

hvordan fungere det i VBA..?

jeg har trykket ctrl + F11 men hvad så?

Det er antallet af linier i arket fra Række 5

dvs er der udfyldt ned til række 9 er der alstå netto 5 linier udfyldt - Rækker om man vil..

og dermed skal fanen gøres grøn

det er kun selve Fanen i bunden der skal skifte farve...

Jeg formoder at denne koder skal indsættes i thisworkbook..?

Synes godt om

bosonic Nybegynder

13. oktober 2011 - 15:08 #3

det kan være jeg har brugt nogle forkerte udtryk, men med arknavn mener jeg Fanenavn ikke filnanvn.. altså hvis filen hedder oktober, så skal fanerne hedder lørdag d. 01/10/11 osv jeg kan vælge et ark for hver dag ydermere vil jeg gerne have en måde så jeg kan lave en ny fil til hver måned, forholdsvis nemt..

det er fanenbladet som skal have farve alt efter antal linier i arket...

Synes godt om

bosonic Nybegynder

13. oktober 2011 - 15:33 #4

sorry hvis det hele bliver lidt rodet..

jeg har en excel fil nu hvor i jeg har et ark/ fane som hedder Lørdag d.01.10, og så skal jeg have lavet 29/30 kopier af Lørdag d.01.10, men det skal selvfølgelig skifte til Søndag d. 02.10 osv for hele måneden, det skal være sådan at jeg kan ændre i ark et og lave kopierne og så har jeg 30/31 ens ark pånær dato og dag

Synes godt om

supertekst Ekspert

13. oktober 2011 - 16:31 #5

Eks. til at farvelægge et ark:

Sub test()
Dim ræk As Byte
For ræk = 5 To 25
If Range("A" & ræk) = "" Then
sætFaneFarve ræk - 1
Exit For
End If
Next ræk
End Sub
Private Sub sætFaneFarve(rækNr)
rækNr = rækNr - 4

If rækNr >= 11 Then
ActiveSheet.Tab.Color = 255
Else
If rækNr >= 6 Then
ActiveSheet.Tab.Color = 65535
Else
If rækNr > 0 Then
ActiveSheet.Tab.Color = 5296274
Else
ActiveSheet.Tab.Color = xlAutomatic
End If
End If
End If
End Sub

Synes godt om

bosonic Nybegynder

13. oktober 2011 - 17:37 #6

og det smider jeg in in thisworksheet unden nogen form for redigering?

Synes godt om

supertekst Ekspert

13. oktober 2011 - 17:43 #7

Nej - ikke helt - skal hænge sammen med en hændelse:
- når arket aktiveres
- når er sker ændring af antal udfyldte rækker i kolonne A
- ??

Synes godt om

store-morten Ekspert

13. oktober 2011 - 18:27 #8

Jeg kender en metode, til oprettelse af, MultiArk - navngivet ud fra en markering.
Et tilføjelses program til Excel, hvis det har interesse?

Hvor man har en form for kalender på Ark1 og evt. en skabelon på Ark2.

Synes godt om

Ialocin Novice

13. oktober 2011 - 22:27 #9

Hej Alle

Jeg kigger lige med over skulderen :o)

Med venlig hilsen, Nicolai

Synes godt om

bosonic Nybegynder

14. oktober 2011 - 08:10 #10

Ja.. hvis det kan hjælpe mig..

som sagt vil jeg gerne lave en fil med en / et fane/ark for hver dag i måneden og den fane må gerne blive farvet efter det interval jeg skrev.. efter hvormange rækker( efter nummer 4) der bliver udfyldt ikke kun i kollonne nummer A men hele bredden..

mvh

bob

Synes godt om

store-morten Ekspert

14. oktober 2011 - 21:33 #11

Skift fane farve.

Din oprettede Skabelon på Ark2

Kopier kode:
og den smider du ind på Ark2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sidst As Long
Sidst = ActiveSheet.UsedRange.Rows.Count
Antal = Sidst - 4
If Antal < 0 Then
Antal = 0
End If

Select Case Antal
Case 0
ActiveSheet.Tab.ColorIndex = 2 'Hvid
Case 1 To 5
ActiveSheet.Tab.ColorIndex = 4 'Grøn
Case 6 To 10
ActiveSheet.Tab.ColorIndex = 6 'Gul
Case 11 To 20
ActiveSheet.Tab.ColorIndex = 3 'Rød
Case Else
ActiveSheet.Tab.ColorIndex = -4142
End Select
End Sub

Test på Ark2
Der skal stå noget i række 1? F.eks. Overskrifter.

Kopier:

test 1 <-- udfyldte rækker
test 2 Her fra 5 til 9
test 3 Fanefarve "Grøn"
test 4
test 5

Sæt ind på Ark2 celle A5

Kopier:

test 1 <-- udfyldte rækker
test 2 Her fra 5 til 9
test 3 Fanefarve "Grøn"
test 4 Marker og fyld ned til og med test10
test 5 Fanefarve "Gul"

Sæt ind på Ark2 celle E5

Kopier:

test 1 <-- udfyldte rækker
test 2 Her fra 5 til 9
test 3 Fanefarve "Grøn"
test 4 Marker og fyld ned til og med test20
test 5 Fanefarve "Rød"

Sæt ind på Ark2 celle J5

Kopier:

Mere end test20 ingen fanefarve
Slet alt på række 5 til 20 ingen fanefarve

Sæt ind på Ark2 celle O8

Test

Synes godt om

bosonic Nybegynder

24. oktober 2011 - 11:28 #12

Hej,

hvor skal jeg smide det hen under ark2?

Synes godt om

store-morten Ekspert

24. oktober 2011 - 16:58 #13

Ja, som skrevet står :-)

Synes godt om

store-morten Ekspert

24. oktober 2011 - 18:21 #14

Ups...

Kopier koden -->
Højreklik på Ark2 --> vælg 'Vis programkode'
Hold ctrl nede --> tryk tasten V
Luk på det røde kryds.

Kopier tekster og sæt ind på Ark2 for test.

Eller simpel test:
Skriv: Test 1 I celle A5 og fyld ned til A9 -Fanefarve = "Grøn"
forsæt fyld ned til A14 -Fanefarve = "Gul"
forsæt fyld ned til A24 -Fanefarve = "Rød"

Længere ned end A25 ingen fanefarve
Slet alt på række 5 til 20 ingen fanefarve

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	4	17/04/202616:11	18/04/202608:16
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	2	23/03/202613:24	31/03/202610:27
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