Joaom Manuel

Para DanteAmor Hola Dante Esta macro, (evento) es de tu conocimiento Private Sub CheckBox3_Click() If CheckBox3 Then With TextBox4 .ForeColor = vbWhite 'color texto .BackColor = &H80& .Font.Bold = True End With Else With TextBox4 .ForeColor =...

Para DanteAmor Dante No voy a interrumpirte el fin de semana, dejalo para lunes. En la misma plantilla (ultima) Celdas N_T combinadas_formato person en D Llenado el cuadro de texto, Producto (TextBox2) saliendo de este, si lo escrito en el TextBox2...

Para DanteAmor Aquí la pregunta en deuda para que respondas y califique porque ya hiciste esto dentro de otra pregunta

Para DanteAmor De nuevo Dante. No recordaba la pregunta En ese mismo archivo, cuando elimino una o más líneas en PAGINA1, en PAGINA2 desaparece la combinación de celdas entre DE y I como puedes observar en la imagen. Si elimino en la página 2 nada...

= Dante, aqui molestandote nuevamente = Office 2016 Vi este código y me pereció útil para algunas cosas mías como es la necesidad de pasar algunos excel a Word. Esta macro fue editada por el amigo gregori00001 de este prestigioso foro Sub...

Para dante Amor Hola Dante Tuve que agregar If para que pudiera deshacer el coloreado, tanto de texto como de fondo Sub Formatear(fil, col, wcolor, wbold, wtext) Cells(fil, col) = wtext Cells(fil, col).Font.ColorIndex = wcolor Cells(fil,...

Tengo esta macro 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...

Espero y deseo que estés bien Esta parte de una macro, lo que hace es trasladar el color rojo y negrita del textbox a la celda de la columna 8 si el Checkbox3 esta marcado wcolor = vbBlack: wbold = False If CheckBox3 Then wcolor = 3: wbold = True...

Esta parte de un código está para trasladar el color de texto del TextBox a la celda correspondiente al TextBox hacia la hoja, en este caso es celda de la columna J o U según la página que se esta llenando Identifico la hoja en Página 1 a la...

Tengo este código que marcando CheckBox3, coloca el texto del TextBox3 a rojo Private Sub CheckBox3_Click() If CheckBox3 Then With TextBox4 .ForeColor = vbRed 'RGB(255, 0, 0) .Font.Bold = True End With Else With TextBox4 .ForeColor = &H80000008...