Rangos de celdas con macros
Buenas tardes estoy desarrollando una macro en excel, en la cual pretendo determinar si el valor que esta comprendido en una rango de celdas me determine un mes. Ahora bien el problema es el siguiente cuando ingreso
If (Range("p2").Value = "1") Then
Range("S3").Value = "Enero"
El sistema de dermina el mes, no hay problema en ese caso, pero si intento hacer de esta forma
If (Range("p2:p500").Value = "1") Then
Range("S3").Value = "Enero"
El sistema me dice: " se ha porducido error '13' en tiempo de ejecución" No coinciden los tipos,
quisiera saber como puedo hacer para relacionar un conjunto de celdas y realizar la operación que necesito, gracias...
If (Range("p2").Value = "1") Then
Range("S3").Value = "Enero"
El sistema de dermina el mes, no hay problema en ese caso, pero si intento hacer de esta forma
If (Range("p2:p500").Value = "1") Then
Range("S3").Value = "Enero"
El sistema me dice: " se ha porducido error '13' en tiempo de ejecución" No coinciden los tipos,
quisiera saber como puedo hacer para relacionar un conjunto de celdas y realizar la operación que necesito, gracias...
1 Respuesta
Respuesta de tavopz
1
Esto sucede porque estás asociando un rango de celdas (múltiples valores) a un sólo valor "1". Pienso que tendrías que evaluar celda a celda para saber si todas son igual a "1" y luego de esto tomar la decisión si cambias el valor de la otra celda o no.
Algo así:
Dim c as Range
For each c in Range("P2:P500")
If c.value = "1" Then
Range("S3").Value = "Enero"
End If
Next c
Algo así:
Dim c as Range
For each c in Range("P2:P500")
If c.value = "1" Then
Range("S3").Value = "Enero"
End If
Next c
