es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Seleccionar filas aleatorias y hacer algo: seleccionar varias filas en un rango.

27 May, 2023 Programación

Parece bastante simple pero estoy teniendo dificultades…
Tengo este código simple para seleccionar toda la fila desde un rango aleatorio de celdas negras, basado en los datos actuales.
Debido a que las celdas F5 F7 F9 F13 están vacías, selecciona toda la fila.
Entonces, deseo cambiar el valor de la columna 1 [A] y 8 [H] a “Estoque”, coloreado en azul claro.
Y estoy atascado en eso. ¿Alguna ayuda, por favor?

On Error Resume Next
 Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Select

enter image description here

Tags:  , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Para cambiar el valor de la columna 1 [A] y 8 [H] a “Estoque” y colorearlos en azul claro, puedes modificar el código de la siguiente manera:

    On Error Resume Next
Dim blankRows As Range
Set blankRows = Columns("H:H").SpecialCells(xlCellTypeBlanks).EntireRow
blankRows.Select
blankRows.Cells(1, 1).Value = "Estoque"
blankRows.Cells(1, 1).Interior.Color = RGB(153, 204, 255) 'color azul claro
blankRows.Cells(1, 8).Value = "Estoque"
blankRows.Cells(1, 8).Interior.Color = RGB(153, 204, 255) 'color azul claro

    En este código actualizado, primero almacenamos el rango de filas en blanco en una variable llamada “blankRows”. Luego seleccionamos las filas en blanco y cambiamos el valor de las celdas A1 y H1 a “Estoque” y las coloreamos en azul claro utilizando la función RGB.

Comments are closed.