Avatar billede splokit Nybegynder
11. juli 2006 - 09:55 Der er 4 kommentarer og
1 løsning

vb hvis celle i kolonne

hvis b1:b100 = X el. Z skal den lave cellen grå plus den celle i a & i D,E,F,G,I,J
Avatar billede mrjh Novice
11. juli 2006 - 10:47 #1
Sub marker1()
For Each cell In Range("b1:b100")
If cell.Value = "x" Or cell.Value = "z" Then
cell.Interior.ColorIndex = 15
Range("d" & cell.Row & ":" & "g" & cell.Row).Interior.ColorIndex = 15
End If
Next cell
End Sub
Avatar billede mrjh Novice
11. juli 2006 - 10:48 #2
Rettelse:

Sub marker1()
For Each cell In Range("b1:b100")
If cell.Value = "x" Or cell.Value = "z" Then
cell.Interior.ColorIndex = 15
Range("d" & cell.Row & ":" & "j" & cell.Row).Interior.ColorIndex = 15
End If
Next cell
End Sub
Avatar billede splokit Nybegynder
11. juli 2006 - 11:14 #3
næsten den den laver "D, D:J" går, men det er A & D:G & I:J som skal blive grå
Avatar billede splokit Nybegynder
11. juli 2006 - 11:20 #4
Sub marker1()
For Each cell In Range("b1:b100")
If cell.Value = "x" Or cell.Value = "z" Then
cell.Interior.ColorIndex = 15
Range("d" & cell.Row & ":" & "G" & cell.Row).Interior.ColorIndex = 15
Range("I" & cell.Row & ":" & "J" & cell.Row).Interior.ColorIndex = 15
Range("A" & cell.Row).Interior.ColorIndex = 15
Range("b" & cell.Row).Interior.ColorIndex = 0
End If
Next cell
End Sub

kom med svar..
Avatar billede mrjh Novice
11. juli 2006 - 12:00 #5
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