Visual Basic - Crear una categoría mas

Life is soft - evento anual de software empresarial
 
Vista:

Crear una categoría mas

Publicado por Lucas (1 intervención) el 29/01/2016 09:30:35
Buenos días

He intentado crear una categoría mas y no soy capaz creo el sexto bloque y una linea mas y no funciona

Me podéis ayudar??

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton1_Click()
 
    Worksheets(1).Range("B6").FormatConditions(1).Interior.Color = Range("D5").Interior.Color
    Worksheets(1).Range("B6").FormatConditions(2).Interior.Color = Range("D6").Interior.Color
    Worksheets(1).Range("B6").FormatConditions(3).Interior.Color = Range("D7").Interior.Color
    Worksheets(1).Range("B6").FormatConditions(4).Interior.Color = Range("D8").Interior.Color
    Worksheets(1).Range("B6").FormatConditions(5).Interior.Color = Range("D9").Interior.Color
 
 
    Worksheets(2).Range("B6").FormatConditions(1).Interior.Color = Range("D5").Interior.Color
    Worksheets(2).Range("B6").FormatConditions(2).Interior.Color = Range("D6").Interior.Color
    Worksheets(2).Range("B6").FormatConditions(3).Interior.Color = Range("D7").Interior.Color
    Worksheets(2).Range("B6").FormatConditions(4).Interior.Color = Range("D8").Interior.Color
    Worksheets(2).Range("B6").FormatConditions(5).Interior.Color = Range("D9").Interior.Color
 
    Worksheets(3).Range("C3").FormatConditions(1).Interior.Color = Range("D5").Interior.Color
    Worksheets(3).Range("C3").FormatConditions(2).Interior.Color = Range("D6").Interior.Color
    Worksheets(3).Range("C3").FormatConditions(3).Interior.Color = Range("D7").Interior.Color
    Worksheets(3).Range("C3").FormatConditions(4).Interior.Color = Range("D8").Interior.Color
    Worksheets(3).Range("C3").FormatConditions(5).Interior.Color = Range("D9").Interior.Color
 
    Worksheets(4).Range("D3").FormatConditions(1).Interior.Color = Range("D5").Interior.Color
    Worksheets(4).Range("D3").FormatConditions(2).Interior.Color = Range("D6").Interior.Color
    Worksheets(4).Range("D3").FormatConditions(3).Interior.Color = Range("D7").Interior.Color
    Worksheets(4).Range("D3").FormatConditions(4).Interior.Color = Range("D8").Interior.Color
    Worksheets(4).Range("D3").FormatConditions(5).Interior.Color = Range("D9").Interior.Color
 
    Worksheets(5).Range("A2").FormatConditions(1).Interior.Color = Range("D5").Interior.Color
    Worksheets(5).Range("A2").FormatConditions(2).Interior.Color = Range("D6").Interior.Color
    Worksheets(5).Range("A2").FormatConditions(3).Interior.Color = Range("D7").Interior.Color
    Worksheets(5).Range("A2").FormatConditions(4).Interior.Color = Range("D8").Interior.Color
    Worksheets(5).Range("A2").FormatConditions(5).Interior.Color = Range("D9").Interior.Color
 
 
 
    MsgBox "Colores establecidos"
 
End Sub

Esto funciona y si creo una mas me da error, seguro que es una obviedad para vosotros pero a mi no me da para mas el coco

MUCHAS GRACIAS A TODOS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder