Dante Amor

Pon el siguiente código en un módulo Sub Imagen1() ActiveSheet.DrawingObjects("imagen1").Visible = False ActiveSheet.DrawingObjects("imagen2").Visible = True End Sub ' Sub Imagen2() ActiveSheet.DrawingObjects("imagen2").Visible = False...

En lugar de la barra de progreso, te propongo una más simple. En la barra de estado de excel (esquina inferior izquierda), va a aparecer un contador, indicando el número de fila procesada y el número de filas totales a procesar. De esa forma pueden...

Primero, debes cambiar esta variable Busquedaparaimpresión ' Por esta otra PalabraBusqueda ' Ahora, revisando tus If's anidados, ¿Más bien qué necesitas? Quieres buscar la palabraBusqueda; ¿Y si aparece en cualquiera de las columnas de la A a la J...

Puedes poner una imagen con ejemplos de lo que tienes y de lo que esperas de resultado. Tu respuesta Para subir una foto o una imagen, tienes que guardar la imagen con formato jpg Ya que tienes tu imagen en un archivo, presiona el icono de añadir...

Vamos por Pasos. PASO 1. Seleccionar un dato en el combobox1 - Pon una imagen donde muestres cómo están tus datos que se cargan en el combobox1 - Un ejemplo explicando: cuando seleccionas un dato en el combobox1, qué dato quieres que aparezca en el...

Tienes que poner un Else Debe ser así: For i=1 to 10 Línea 1 'Código Línea 2 'Código If ... Then 'Condicional 'Que debo poner aquí para que de esta línea pase directamente al 'Siguiente "i" sin pasar por el resto del código, es decir sin 'Ejecutar...

Según tus ejemplos, considero lo siguiente: Los datos empiezan en la fila 1Los datos están separados por pipe "|"El artículo siempre está en el tercer dato Si es correcto lo anterior, ejecuta la siguiente macro: Sub Agregar_Texto() 'Por Dante Amor...

La macro te copia los datos visibles, es decir, si la hoja origen tiene un filtro, entonces solamente copia los datos filtrados y los pega en la hoja "resumen". [Sal u dos

Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor 'filtrar Set h1 = Sheets("BASE DE DATOS FACTURACION") Set h2 = Sheets("Temporal") Set h3 = Sheets("libro") col = "F" 'columna de Fechas fila = 5 'fila de encabezados uc =...

Te presento otra forma de agregar registros Cambia todo tu código por el siguiente: Private Sub Guardar_Click() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If txtCédula = "" Then MsgBox "Ingresa la cédula" txtCédula.SetFocus...