Mostrar comentarios como si fuesen un buscarv

Buenas tardes;
Tengo una relación de profesionales en excel y algunos tienen algún dato en la celda de al lado, pues bien, desde otro libro necesito que cuando alguien introduce uno de esos profesionales en una tabla la máquina compruebe si tiene o no dato en la otra hoja y en caso afirmativo me lo muestre pero como si fuese un comentario, o sea, oculto pero con el triangulito rojo en la esquina, como si fuese un BUSCARV pero a nivel de comentario.
No se es me he explicado con claridad.
Agradecería vuestra respuesta.
Un saludo Juan Carlos.
{"Lat":37.3157637552232,"Lng":-6.84513688087463}

1 respuesta

Respuesta
1
Si tienes dominio de macros puedes hacer el lo siguiente:
En una celda oculta puedes agregar la Función Buscarv, para que busque el dato en la hoja o libro correspondiente supongamos que lo realizas en la celda C1 y quieres agregarlo como comentario en la celda A1 lo realizas de la siguiente manera:
Range("A1").NoteText Range("C1").Value
Ahora tendrías hacer que el código se dispare cada vez que el profesional cambie.
Suponiendo que los profesionales esta en la celda B3
tienes que agregar este código.
If Target.Address(False, False) = "B3" Then Call ver
End Sub
Sub ver()
Range("A1").NoteText Range("C1").Value
End Sub
Ok, me va de escándalo, ahora bien, si resulta que la relación de profesionales ocupa toda una columna, ¿cómo hago para poder ejecutar la macro según en que celda me encuentre de esa columna?
Muchas gracias por tu ayuda.
Un saludo Juan Carlos.
Tendrías que ejecutar un ciclo para la macro .
Supongamos que la columna es la "A" considerando que el código cells = cells( fila, columna)
hoja2 = donde se presentan los datos
hoja1= profecionales
Sub Macro()
ULT = Sheets("Hoja2").Range("a65536").End(xlUp).Row 'obtienes la cantidad de datos 'de la hoja de presentacion
Dim r, s As String
Dim r1 As Range
r = "A:B"
s = "Hoja1" ' hoja donde se buscan los datos
Set r1 = Worksheets(s).Range(r)
For x = 1 To ULT  'repites el ciclo desde 1 hasta la cantidad de datos que necesitas.
On Error GoTo errorhandling2: ' este es el control de error
dato = Hoja2.Cells(x, 1).Value ' este es el valor buscado
m = Application. WorksheetFunction. VLookup(dato, r1, 2, False) ' realizas el buscarv 'interno
Cells(x, 1).NoteText m
Next x
errorhandling2:
Select Case Err
Case 1004
m = Empty
Resume Next
End Select
End Sub
Una consideración para hacer que la funcion buscarv haga la busqueda dentro de otros libros, verifica esta pregunta
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/1878355/variable-para-matriz-en-vb
Ok. Otra vez de escándalo, muchas gracias, pero necesitaría un último empujón:
Ahora cada vez que ejecuto la macro me pone los comentarios en todos los profesionales, y solo quiero que lo haga en el que yo este señalando, es decir, si estoy en el profesional situado en la a176, que solo me ponga los datos de este y no de todos los demás, así ademas de no cargar todos los datos siempre que la ejecuto imagino que no me machacara el dato ya existente en las demás, lo que me ayudaría a poder en un momento dado revisar lo antiguo.
Gracias por tu ayuda y tu tiempo.
Creo que de esta forma funcionaría muy bien:
Sub Macro()
dato = ActiveCell.Value
x = ActiveCell.Row
z = ActiveCell.Column
Dim r, s As String
Dim r1 As Range
r = "A:B"
s = "Hoja1" ' hoja donde se buscan los datos
Set r1 = Worksheets(s).Range(r)
On Error GoTo errorhandling2: ' este es el control de error
m = Application.WorksheetFunction.VLookup(dato, r1, 2, False) ' realizas el buscarv 'interno
Cells(x, z).NoteText m
errorhandling2:
Select Case Err
Case 1004
m = Empty
End Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo aplicar una función SI anidada extensa en macro?

Al momento de utilizar la función SI anidada sólo soporta hasta 8 funciones anidadas. He intentado hacer con más pero 8 es el límite. ¿Habrá alguna forma de poder anidar más de 150 funciones SI? He indagado en otros foros y siempre recomiendan mejor...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

¿Cómo copiar filas que cumplan una condición de una hoja a otra?

Tengo una pequeña duda que creo que es fácil de resolver, pero en mi caso aún no controlo lo suficiente de macros para desarrollarla. Mi problema es el siguiente. Tengo una hoja (Llamada General) con un montón de datos que quiero filtrar en una...
4 respuestas

Copiar datos de una columna a otra hoja

Primero que todo felicidades por la pagina muy bonita. La pregunta es esta en mi hoja 1 capturo como 20 datos en la columna b1 hasta b20 y con un botón mandarlos a la hoja 2 que es mi base de datos solamente que en la fila 1 tengo los títulos y deseo...
2 respuestas

Ejecutar función buscarv dentro de una macro

¿Cómo puedo insertar la función buscarv para que se ejecute dentro de una macro?
1 respuesta

Como cear macro para copiar celdas en función del resultado de otra celda.

La cuestión es que tengo en una hoja tengo 10 filas y cuando en cualquier celda de la columna "J" me aparezca "si" quisiera copiar las celdas "A, ByC" en la primera fila vacía de otra hoja.
1 respuesta

Arrojar varios datos desde un criterio de búsqueda

Lo que necesito es: Yo tengo una columna (A1) con varios nombres de "Clientes", estos en algunos casos están repetidos y al frente en B1 tienen un # que es la factura de un producto "X", lo que quiero es buscar cualquier cliente en una celda de otra...
3 respuestas

Macro para modificar campo de un registro

Necesito que alguien me ayude con una macro. Tengo un formato o plantilla en Excel 2007, los datos que se diligencian en ésta se copian con una macro en otra hoja, registro por registro (desde la columna A hasta la Columna AY), creando una base de...
1 respuesta

Macro seleccionar columna aleatoria según fecha

Estoy trabado con algo que probablemente para uds sea muy sencillo. Estoy haciendo una macro que me seleccione columnas determinadas de una planilla. Una de esas columnas debe ser la que tenga como titulo la fecha que yo le indique en una celda. El...
1 respuesta