Excel - Edición de macro Excel para Colorear y negrita celdas y fondo verde

   
Vista:
Imágen de perfil de JoaoM

Edición de macro Excel para Colorear y negrita celdas y fondo verde

Publicado por JoaoM (210 intervenciones) el 06/05/2017 00:15:29
Quiero ppedir su favor para editar esta macro o otra similar que haga la misma funcionalidad

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
wcolor = vbBlack: wbold = False
If CheckBox4 Then wcolor = 3: wbold = True
Cells(fil, col) = TextBox1          'Item #
Cells(fil, col).Font.ColorIndex = wcolor
Cells(fil, col).Font.Bold = wbold
Cells(fil, col).Interior.ColorIndex = 43
Cells(fil, col + 1) = TextBox2      'Producto
Cells(fil, col + 1).Font.ColorIndex = wcolor
Cells(fil, col + 1).Font.Bold = wbold
Cells(fil, col + 1).Interior.ColorIndex = 43
Cells(fil, col + 2) = TextBox3      'Descripcion del Producto
Cells(fil, col + 2).Font.ColorIndex = wcolor
Cells(fil, col + 2).Font.Bold = wbold
Cells(fil, col + 2).Interior.ColorIndex = 43
Cells(fil, col + 8) = TextBox4      'Cant.
Cells(fil, col + 8).Font.ColorIndex = wcolor
Cells(fil, col + 8).Font.Bold = wbold
Cells(fil, col + 8).Interior.ColorIndex = 43
Cells(fil, col + 9) = TextBox5      'Pagina #
Cells(fil, col + 9).Font.ColorIndex = wcolor
Cells(fil, col + 9).Font.Bold = wbold
Cells(fil, col + 9).Interior.ColorIndex = 43

la idea es para que quede mas corta y no se vea una cosa de un largo tremendo
Gracias
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