Dante Amor

Mejor te cambio la macro. En la macro reemplaza Image1 por el nombre de tu control donde quieres insertar la imagen. Private Sub CommandButtonImagen_Click() 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona...

Al inicio de tu macro tienes esto: Option explicit Significa que tienes que declarar todas las variables que utilizas en la macro. En VBA no es necesario declarar las variables, puedes optar por borrar esa línea de tu código, o bien, declarar cada...

Te anexo una macro. Cambia estos nombres "formulario", "hoja1", "hoja2", por los nombres de tus hojas que no quieras borrar o agrega más nombres, pero siembre en minúsculas. Sub Borrar_Hojas() 'Por.Dante Amor Application.DisplayAlerts = False For i =...

Te anexo la macro, cambia "Hoja1" por el nombre de la hoja que quieras respaldar, cambia "Libro2" por el nombre del nuevo archivo Sub Respaldo_Hoja() ' ' Por.Dante Amor ' ' Application.ScreenUpdating = False Application.DisplayAlerts = False...

Puedes poner un ejemplo de cómo están tus datos en la hoja "productos" y cómo quieres los datos en la hoja "consulta", es decir, pon en cuáles celdas está la información.

Para bloquear celdas, es necesario proteger la hoja. Entonces, primero selecciona toda la hoja y cambia en formato de celdas, Proteger y desactiva la casilla "Bloqueada", ahora selecciona las celdas o columnas que quieras proteger, por ejemplo la...

Ejecuta la siguiente macro Sub Buscar_Ruc() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row Set b = h2.Columns("B").Find(h1.Cells(i, "B"), lookat:=xlWhole) If Not b Is Nothing...

Prueba lo siguiente, en esta parte tienes un Exit Sub If OpcionIngreso.Value = True And TextBuscar.Text = Worksheets("BASE INGRESO").Range("A" & i).Value Then Me.ListBuscar.AddItem (Worksheets("BASE INGRESO").Range("C" & i).Value) TextBuscar.SetFocus...

Te anexo la macro actualizada Sub Copia() 'Por.Dante Amor ' Set b = Rows(19).Find("Importe", lookat:=xlWhole) If Not b Is Nothing Then col = b.Column + 26 i = 22 Do While Cells(i, "Z") <> "" For j = col To Cells(20,...

Envíame tu archivo con el userform, me explicas cómo funciona o qué datos debo poner en el userform Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Edwin Diaz Maldonado” y el título de esta pregunta.