Jose Justiniano

Abraham Valencia respondió: [Hola Suponiendo que las fechas están bien ingresadas, intenta con algo así: Dim Fecha1 As Date, Fecha2 As Date Dim totaldias As Integer, totalmeses As Integer Fecha1 = TextBox1: Fecha2 = TextBox2 TextBox3 = VBA.DateDiff("D", Fecha1, Fecha2) & "...

Abraham Valencia respondió: Una forma es la siguiente: Option Explicit Private Sub UserForm_Activate() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As String Set cnn = New ADODB.Connection With cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString =...

Elsa Matilde respondió: ¿El mensaje te está diciendo que la carpeta está en uso... seguramente tenés también el libro en uso allí? Si por 'borrar la carpeta' se entiende eliminarla (RmDir), ésta debe estar vacía. Por lo que primero tendrás que eliminar los archivos de allí...

Dante Amor respondió: Te anexo el código para tu userform Private Sub TextBox1_Change() 'Por.Dante Amor carpeta = ThisWorkbook.Path & "\" ListBox1.Clear If TextBox1.Value = "" Then Exit Sub arch = Dir(carpeta & TextBox1.Value & "*.pdf") Do While arch <> ""...

Adriel Ortiz Mangia respondió: H o l a ¿Qué elimine el código o la fila? ¿Desde qué fila se empezará a buscar? ¿En qué columna está el código?