Anónimo
Mostrar la fila y la columna que ocupa un valor
Buen dia;
Deseo saber como puedo crear una macro que me permita mostrar en un box el numero de fila y el numero de columna que ocupa un valor
ejemplo: tengo una tabla de 6x6 donde todos los valores son 1 excepto en la parte superior derecha donde ubico un 0, deseo que al correr mi macro me genere un pantallazo que me indique en que fila y en que columna esta ubicado dicho numero.
Agradezco de antemano la colaboración que puedan brindarme en este caso.
Deseo saber como puedo crear una macro que me permita mostrar en un box el numero de fila y el numero de columna que ocupa un valor
ejemplo: tengo una tabla de 6x6 donde todos los valores son 1 excepto en la parte superior derecha donde ubico un 0, deseo que al correr mi macro me genere un pantallazo que me indique en que fila y en que columna esta ubicado dicho numero.
Agradezco de antemano la colaboración que puedan brindarme en este caso.
1 respuesta
Respuesta de angelcrisnor
1
Te paso más abajo esta función y una macro con un ejemplo para llamarla. Espero que te sirva. Si tienes algún problema con ello, dímelo.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function ACNBuscaDato(Rango As String, Dato As String)
Resultado = ""
Rango = Replace(Rango, "$", "")
CeldaInicial = Mid(Rango, 1, InStr(1, Rango, ":", 1) - 1)
CeldaFinal = Mid(Rango, InStr(1, Rango, ":", 1) + 1)
CeldaInicialColumna = Mid(CeldaInicial, 1, 1)
CeldaInicialFila = Val(Mid(CeldaInicial, 2))
CeldaFinalColumna = Mid(CeldaFinal, 1, 1)
CeldaFinalFila = Val(Mid(CeldaFinal, 2))
For Fila = CeldaInicialFila To CeldaFinalFila
For Columna = Asc(CeldaInicialColumna) To Asc(CeldaFinalColumna)
Celda = Trim(Chr(Columna)) + Trim(Str(Fila))
If Range(Celda).Value = Dato Then
Resultado = Resultado + Celda + ", "
End If
Next
Next
If Resultado <> "" Then
ACNBuscaDato = "Celdas que contienen el valor " + Dato + " = " + Mid(Resultado, 1, Len(Resultado) - 2)
Else
ACNBuscaDato = "No hay celdas con el valor " + Dato
End If
End Function
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Macro()
MsgBox (ACNBuscaDato("B2:G7", 6))
End Sub
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function ACNBuscaDato(Rango As String, Dato As String)
Resultado = ""
Rango = Replace(Rango, "$", "")
CeldaInicial = Mid(Rango, 1, InStr(1, Rango, ":", 1) - 1)
CeldaFinal = Mid(Rango, InStr(1, Rango, ":", 1) + 1)
CeldaInicialColumna = Mid(CeldaInicial, 1, 1)
CeldaInicialFila = Val(Mid(CeldaInicial, 2))
CeldaFinalColumna = Mid(CeldaFinal, 1, 1)
CeldaFinalFila = Val(Mid(CeldaFinal, 2))
For Fila = CeldaInicialFila To CeldaFinalFila
For Columna = Asc(CeldaInicialColumna) To Asc(CeldaFinalColumna)
Celda = Trim(Chr(Columna)) + Trim(Str(Fila))
If Range(Celda).Value = Dato Then
Resultado = Resultado + Celda + ", "
End If
Next
Next
If Resultado <> "" Then
ACNBuscaDato = "Celdas que contienen el valor " + Dato + " = " + Mid(Resultado, 1, Len(Resultado) - 2)
Else
ACNBuscaDato = "No hay celdas con el valor " + Dato
End If
End Function
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Macro()
MsgBox (ACNBuscaDato("B2:G7", 6))
End Sub