Excel - Error al escribir los resultados

 
Vista:
sin imagen de perfil

Error al escribir los resultados

Publicado por Alejandro (2 intervenciones) el 06/05/2024 04:24:25
Buenas tarde.

tengo un problema con este código para Excel, el código es para buscar un valor en una tabla y que me escriba en una ventana los valores de la fila con el titulo pero cuando lo ejecuto el código encuentra el valor buscado pero el valor fila queda en 0 por lo tanto cuando comienza a escribir los datos de la fila todos quedan en blanco.

Sub BuscarYMostrarDatos()
Dim ValorBuscado As Variant
Dim RangoBuscar As Range
Dim CeldaEncontrada As Range
Dim FilaEncontrada As Range
Dim Titulos As Range
Dim Resultado As String
Dim i As Integer

' Solicita el valor a buscar
ValorBuscado = InputBox("Introduce el valor a buscar:")

' Define el rango donde buscar (J1:P18) en la hoja "Hoja1"
Set RangoBuscar = Sheets("Hoja1").Range("J1:P18")

' Busca el valor en el rango
Set CeldaEncontrada = RangoBuscar.Find(What:=ValorBuscado, LookIn:=xlValues, LookAt:=xlWhole)

If Not CeldaEncontrada Is Nothing Then
' Si se encuentra el valor, obtiene la fila completa
Set FilaEncontrada = CeldaEncontrada.EntireRow
' Obtiene los títulos de las columnas (J1:P1)
Set Titulos = Sheets("Hoja1").Range("J1:P1")

' Construye el resultado con los datos del registro encontrado
For i = 1 To Titulos.Columns.Count
Resultado = Resultado & Titulos.Cells(1, i).Value & ": " & FilaEncontrada.Cells(1, i).Value & vbNewLine
Next i

' Muestra el resultado en un cuadro de mensaje
MsgBox Resultado, vbInformation, "Datos del registro encontrado"
Else
' Si no se encuentra el valor, muestra un mensaje
MsgBox "El valor no se encontró en el rango.", vbExclamation, "Búsqueda"
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Error al escribir los resultados

Publicado por Antoni Masana (2499 intervenciones) el 06/05/2024 09:37:19
Es necesario que subas el libro para ver el problema.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Error al escribir los resultados

Publicado por Alejandro (2 intervenciones) el 07/05/2024 16:19:09
Sin-titulo1


Buenas tarde este es el libro y el problema que tengo es que pasa como en la imagen en los datos saliente que me muestra todos quedan en blanco como si fuera encontrado coincidencia para no determinara en que fila fue.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar