Francisco Ocampo

Hola buen día, mi duda es que estoy armando una base de datos grande, pero luego se presionan teclas por error y se cambian los datos, como puedo proteger la fila en especifico, si una celda esta ocupada, en este caso E1, pero que me deje trabajar en...

Tengo una carpeta con 484 imágenes, deseo asignarle la imagen a la celda que tiene el mismo nombre, ejemplo: si la celda A1, tiene BOTARGA DEL MUNDIAL, me traiga en B1 la imagen que tiene ese nombre y asi sucesivamente con las demás y si se puede que...

Encontré este código para catálogo de imágenes y lo adapte para mis necesidades, explico en una carpeta tengo el archivo y otra subcarpeta las imágenes, de modo que cuando coincida el nombre de la celda, que esta en el rango H4:H701, con el nombre de...

Hola, buen día, en el foro me aportaron este excelente código: Sub ejemplo2() 'Por.DAM For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If img.Top >= Cells(i, "A").Top And img.Top < Cells(i + 1, "A").Top...

Hola buen día, tengo este código y me funciona bien, pero tengo una duda, me servirá para un catalogo que tiene 600 imágenes o me marcara algún limite?, por favor su ayuda con esto, anexo código: Private Sub Worksheet_SelectionChange(ByVal Target As...

Hola buen día, lo que deseo hacer es guardar 612 imágenes y que cada imagen se guarde con el nombre que esta en una celda, encontré este código en el foro adaptándolo a mis necesidades: Sub ejemplo() With Selection .CopyPicture End With...

Hola bue día, ahora me he topado con este error, tengo este catalogo de imágenes con formula, en este es donde esta el valor con el nombre LISTA =DESREF(IMÁGENES!$A$1,0,0,5,1) Y con este rango llamado IMAGE, es donde extrae la imagen...

Hola tengo problemas con este código, que me arroja este mensaje" Error 1004 en tiempo de ejecución, Error en el método Paste Special de la clase Range, mi código es este: Sub Botón1_Haga_clic_en() Application.ScreenUpdating = False Range("J7").Value...

Hola estoy aprendiendo y me atore con este dato, el código que tengo me funciona a la perfección, mi duda es que cuando no coincide el usuario, me arroja tres Msgbox de Usuario Incorrecto, se que es por el método IF, pero como puedo hacer para que...

Hola tengo el siguiente código, gracias a la experta ElsaMatilde, le hice unas adaptaciones según mis necesidades:: Private Sub CommandButton1_Click() contá = Range("F1") Sheets("REGISTROS").Range("A" & 1 + contá).Value = clave1 = InputBox("Ingrese...