Edición de macro Excel para Colorear y negrita celdas y fondo verde
Publicado por JoaoM (222 intervenciones) el 06/05/2017 00:15:29
Quiero ppedir su favor para editar esta macro o otra similar que haga la misma funcionalidad
la idea es para que quede mas corta y no se vea una cosa de un largo tremendo
Gracias
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
0