Como puedo indicar en macro que el dato que me tiene que insertar lo haga como un hipervínculo

Tengo una macro con una base de datos y quiero que uno de los datos lo inserte en la hoja facturas2021 como un hipervínculo (Hoja3. Cells(fila, 6).Value = Hoja1. Range("D13"). Value). También me gustaría que si el vencimiento fuese en 2022, crease una nueva hoja (p.e: Facturas20222) con la misma cabecera que facturas 2021. ¿Alguien puede ayudarme? Muchas gracias de antemano. No he sabido mandar el adjunto, envío foto

Sub guardar()
Dim celda As Range
Dim fila As Long
'hoja donde va la base de datos(celda hace referencia a un índice de búsqueda

Set celda = Hoja3.Range("A:A").Find(what:=Hoja1.Range("D5").Value, _
After:=Hoja3.Range("a5"))

If celda Is Nothing Then
' si la celda esta vacía hace lo que sigue , si no lo es, manda el mensaje _
de que ya existe la factura

fila = Hoja3.Cells(1200, 1).End(xlUp).Row + 1

Hoja3.Cells(fila, 1).Value = Hoja1.Range("D5").Value
Hoja3.Cells(fila, 2).Value = Hoja1.Range("J11").Value
Hoja3.Cells(fila, 3).Value = Hoja1.Range("D7").Value
Hoja3.Cells(fila, 4).Value = Hoja1.Range("D9").Value
Hoja3.Cells(fila, 5).Value = Hoja1.Range("D11").Value
Hoja3.Cells(fila, 6).Value = Hoja1.Range("D13").Value  (Este es el dato)
Hoja3.Cells(fila, 7).Value = Hoja1.Range("O6").Value
Hoja3.Cells(fila, 8).Value = Hoja1.Range("O7").Value
Hoja3.Cells(fila, 9).Value = Hoja1.Range("O8").Value
Hoja3.Cells(fila, 10).Value = Hoja1.Range("O9").Value
Hoja3.Cells(fila, 11).Value = Hoja1.Range("O10").Value
Hoja3.Cells(fila, 12).Value = Hoja1.Range("O11").Value
Hoja3.Cells(fila, 13).Value = Hoja1.Range("O12").Value
Hoja3.Cells(fila, 14).Value = Hoja1.Range("O13").Value
'La misma operación para cada dato a insertar hay que ir aumentado (fila,+1)
Else
MsgBox " La factura ya existe en la base de datos."
End If

'para dejar las casillas vacías una vez insertados los datos

Hoja1.Range("D5").Value = ""
Hoja1.Range("D7").Value = ""
Hoja1.Range("D9").Value = ""
Hoja1.Range("D11").Value = ""
Hoja1.Range("D13").Value = ""

End Sub

1 Respuesta

Respuesta
1

Respondo a la consulta del título. Por el otro tema del año por favor inicia una nueva consulta luego de cerrar ésta y con algo más de aclaraciones.

Reemplazá esta línea:

Hoja3.Cells(fila, 6).Value = Hoja1.Range("D13").Value  (Este es el dato)

Por estas otras que además de enviar el dato lo guarda como un hipervínculo. El texto final es opcional.

With Hoja3
     .Cells(fila, 6).Value = Hoja1.Range("D13").Value
     .Hyperlinks.Add Anchor:=.Cells(fila, 6), Address:=.Cells(fila, 6)
End With

PD) podes ver más ejemplos con hipervínculos en video N° 32 de mi canal.

Sdos y no olvides valorar las respuestas.

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Que TextBox de un formulario tome el valor de una celda cuyo valor está constantemente cambiando.

Tengo el siguiente código: Private Sub TextBox5_Change() TextBox1.Value = Sheets("Tablero".Range("B4").Value End Sub Mi idea es que al inicializarse el Formulario FrmBalance, el TextBox1, tome el valor de la celda "B4" de la hoja "Tablero". El...
3 respuestas

¿Cómo puedo copiar Hipervínculos con VBA?

Les comento que estoy haciendo una Macro de la siguiente forma: Lo primero que hago es extraer de una carpeta los links (Con la dirección completa de la ubicación) de unas imágenes que tengo que tener en celdas. Como me pone toda la dirección reduzco...
1 respuesta

Macro para comparar datos de 2 libros de excel

Tengo una base la cual se alimenta con varios Excel... Llamemos les id (el num puede ser variable) yo tengo que comparar una columna de la base con una del id"el num es variable" y el dato de la casilla "a1" del id colocarlo en la columna "ah" de la...
1 respuesta

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

Macro excel que copie de hoja 1 a hoja 2*

* Este es el código que tengo, pero en la hoja 1 hay formulas y quiero que se mantengan activas, que al momento de ejecutar la macro, solo se copie el valor y me deje la formula activa en la hoja 1, espero me haya explicado bien, y agradecería de...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Buenas tardes como están... Tengo una macro que compara diferencias entre 2 hojas

La macro compara las diferencias entre las 2 hojas y copia las diferencia en una tercera. Y trabaja bien con 30 o 40 lineas pero necesito que compare unas 900 o 1000 lineas, Otra cosa esta macro tiene una hoja ( hoja 1 como master) y importa datos de...
1 respuesta

Excel copiar datos a otra hoja en fila vacia para Dam

Quiero copiar datos de una determinada columna (hoja1) a hoja 2 ya tengo echo el procedimiento lo único malo que al copiarlo me los copia en la misma fila, que instrucción me falta para que pase a la siguiente fila El código es este : Sub copiar()...
4 respuestas

Crear formularios a partir de una base de datos automáticamente

Mensualmente recibiré una planilla con unas 500 filas de datos de donde deberé crear un formulario por fila. El formulario lo tengo creado y necesito que por fila me ponga por ejemplo, el nombre, la dirección, el valor, entre otras. La base de datos...
1 respuesta

Filtrar datos según el dato de una celda

Agradezco me ayuden ya que tengo en una hoja de excel con la siguiente una base de datos A9= fecha B9 = nombre C9= cedula D9= of Y deseo realizar con una macro que al momento de yo ingresar un nombre en la celda D5 coloque un filtro en las celdas...
1 respuesta