Dante Amor

Para que se más práctico pon los libros en una carpeta diferente a donde tienes el libro con la macro y prueba con esta: Sub libros() 'Lee archivos del directorio y Copia la hoja 1 'Por.Dam Application.ScreenUpdating = False ruta = "C:\trabajo\"...

Envíame tu archivo y lo reviso. Correo [email protected]

Te anexo la macro. Cambiar "C:\trabajo\libros\" por el nombre de tu carpeta. Pon en esa carpeta los archivos que quieras convertir. Si tienes otras carpetas, te sugiero que cambies la carpeta y ejecutes nuevamente la macro. Sub Rename_Files() ' Dim...

Puedes poner una fórmula en P =si(A2<>"",1,"") Y copiar la fórmula hasta la fila con datos. O ejecuta la siguiente macro Sub Rellenar() Range("P2:P" & Range("A" & Rows.Count).End(xlUp).Row) = 1 End Sub [sal u dos

Va el código Dim hojas Dim cargando ' Private Sub CommandButton1_Click() 'Por.Dante Amor Dim Pdfhojas() Dim HojasOcultas() Application.ScreenUpdating = False Application.DisplayAlerts = False ' hojaactiva = ActiveSheet.Name n = -1 m = -1 For i = 0 To...

No pude descargar el archivo. Puedes explicar lo que necesitas con imágenes y ejemplos.

Es más complicado utilizar el ListView y no hay mucha documentación. Pero te pongo unos ejemplos. Tienes que poner las columnas que vas a utilizar, puede ser en el evento Activate: Private Sub UserForm_Activate() ListView1.ColumnHeaders.Clear...

Convierte el texto a valor: If Val(txt_cantidad_dev.Value) > Val(txt_cantidad_compra.Value) Then MsgBox "La cantidad a devolver es mayor que la cantidad comprada", vbCritical, "fjpg GAMES" txt_cantidad_dev.Value = "" txt_cantidad_dev.SetFocus End If

Pero el texto tiene que ir entre comillas: If Left(txt_ing_codigo, 2) = "vh" Or Left(txt_ing_codigo, 2) = "mc" Then

Puedes explicar de dónde a dónde quieres borrar o qué condiciones se deben seguir para saber hasta donde borrar.