VBA: Haciendo referencia a la fila de celdas activas en un bucle For/Each
El objetivo de mi problema es encontrar un valor específico (Texto) y luego referirme a toda la fila (o incluso mejor, solo al rango utilizado a la derecha de mi celda activa) en un bucle For/Each.
La primera parte funciona correctamente al encontrar mi valor, sin embargo, el código para dirigirse a la fila de la celda activa (es decir, la celda encontrada por la función buscar) aún no funciona:
Sub Buscar()
Dim celda As Range
Dim Contador As Long
Set celda = Cells.Find(what:="Planned Supply at BP|SL (EA)", LookIn:=xlValues, lookat:=xlWhole)
For Each celda In ActiveCell.EntireRow
If celda.Value = "0" Then
Contador = Contador + 1
End If
Next celda
Range("I1").Value = Contador
End Sub
davy.ai
Este código VBA tiene como objetivo buscar un valor específico (Texto) en la hoja de cálculo de Excel y luego hacer referencia a toda la fila (o solo al rango utilizado a la derecha de la celda activa) utilizando un bucle For/Each. La primera parte del código utiliza la función “Buscar” para localizar la celda con el valor especificado. Una vez que se encuentra la celda, el código utiliza un bucle “For Each” para iterar a través de cada celda en la fila donde se encuentra la celda activa. Dentro del bucle, el código verifica si el valor de la celda es igual a “0”. Si es así, entonces la variable “Count” se incrementa. Finalmente, el código escribe el valor de “Count” en la celda I1. Sin embargo, el código no funciona para dirigirse a la fila de la celda activa (es decir, la celda encontrada con la función “Buscar”).