Avatar billede rickie Juniormester
15. december 2004 - 09:56 Der er 13 kommentarer og
1 løsning

Flyt räkke til ny fane udfra beregning

Hej alle eksp,

Er der nogen som ved hvordan eller kan lave et makro som automatiskt, efter hentning fra databasen, kan gennemgå resultatet og farve teksten i hele kolonnen til feks röd farve, hvis kriteriet opfyldes?

Feks i nedenstående eksempel hvor C3 = 0, så må den gerne farve kollonen röd.

A              B      C
A1 23-01-2004    12    4
A2 09-02-2004    272    164
A3 13-02-2004    6    0

Håber på svar og glädelig jul til allesammen :-)
Avatar billede rickie Juniormester
15. december 2004 - 09:57 #1
Det rykkede sig lige lidt men jeg håber at det går aligevel!
Avatar billede kabbak Professor
15. december 2004 - 10:04 #2
mener du ikke rækken, eller cellen ?
Avatar billede kabbak Professor
15. december 2004 - 10:13 #3
Public Sub Farv()
RW = Range("A65536").End(xlUp).Row
For i = 1 To RW
If Cells(i, 2) = 0 Or Cells(i, 3) = 0 Then
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 46
Else
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = xlNone
End If
Next
End Sub
Avatar billede rickie Juniormester
15. december 2004 - 10:22 #4
Jeg mener hele räkken :-)
Avatar billede rickie Juniormester
15. december 2004 - 10:31 #5
Det virker perfekt men hvordan får jeg den til at automatiskt köre efter at databasen har opdateret resultatet?
Jeg får et spörgsmål fra Excel om jeg vil "Aktivere automatisk opdatering".

Når jeg har gjort det og databasen er opdateret vil jeg at makroet köres.
Kan det köres på flere faneblade samtidigt? Fanebladene heder "2003" og "2004" :-)
Avatar billede kabbak Professor
15. december 2004 - 15:16 #6
Hvis du sætter den i arkets modul, så kører den når du skifter til arket


Private Sub Worksheet_Activate()
RW = Range("A65536").End(xlUp).Row
For i = 1 To RW
If Cells(i, 2) = 0 Or Cells(i, 3) = 0 Then
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 46
Else
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = xlNone
End If
Next
End Sub
Avatar billede rickie Juniormester
16. december 2004 - 11:05 #7
Jeg er ikke riktigt med på hvad du mener. Jeg kan i hvertfald ikke få det til at virke.

Excel arket opdateres mod en database og når den er färdigopdateret vil jeg gerne at makroet köres på alle faneblade (2003, 2004, 2005 osv.) MEN den skal först köres når databasen er färdig med opdateringen.

Er det muligt?

Jeg vil dessuden at det skal ske automatiskt. Der er en masse brugere som skal benytte excel arket som ikke skal behöver at aktivere makroet manuelt!

:-)
Avatar billede kabbak Professor
16. december 2004 - 11:57 #8
Du skal ligge koden ind i hvert arkmodul, som den skal virke i.

når så arket bliver aktiveret kører koden selv.

Eneste ulempe er, at hvis projektmappen åbnes med en af arkene aktiv, køres den ikke før man har været i et andet ark og så kommer tilbage igen
Avatar billede rickie Juniormester
16. december 2004 - 12:11 #9
OK! Hvordan med delay? Kan det komme til at virke?
Avatar billede rickie Juniormester
16. december 2004 - 12:12 #10
...hvordan lägger jeg det ind i hver arkmodul? Jeg er lidt af en spasser til dette makro/excel :-)
Avatar billede kabbak Professor
16. december 2004 - 12:15 #11
højreklik på arkfanen, vælg vis programkode, der er det
Avatar billede kabbak Professor
16. december 2004 - 12:17 #12
med hensyn til delay, koden køres når man skifter ark
Avatar billede rickie Juniormester
16. december 2004 - 13:01 #13
KANON! Mange tak for hjälpen :-)
Svar lige så du kan få dine velfortjente points!

Glädelig jul!
Avatar billede kabbak Professor
16. december 2004 - 14:07 #14
et svar ;-))
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