Saltar al contenido

Antoni

Miembros
  • Contador de contenido

    9759
  • Unido

  • Última visita

  • Days Won

    479

Todo se publica por Antoni

  1. Dim Factura As String Dim Número As Long TextBox8 = "FACT-00001" Factura = Hoja2.Range("a" & Rows.Count).End(xlUp) If Left(Factura, 5) = "FACT-" Then Número = Split(Factura, "-")(1) + 1 TextBox8 = "FACT-" & Format(Número, "00000") End If
  2. Si no es esto, explícate con un ejemplo mas completo. prueba (1).xlsm
  3. Dim Factura As String Dim Número As Long Factura = Hoja2.Range("a" & Rows.Count).End(xlUp) Número = Split(Factura, "-")(1) + 1 TextBox8.Text = "FACT-" & Format(Número, "00000")
  4. Te dejo esta UDF: Function Corte(ByVal Fecha As Range) As Variant For x = 3 To Range("G" & Rows.Count).End(xlUp).Row If IsDate(Fecha) Then If Not Fecha < Range("G" & x) And Not Fecha > Range("H" & x) Then Corte = Range("I" & x) Exit Function End If End If Next Corte = "" End Function Revisa las fórmulas de la columna E. . RANGO DE FECHAS COLOCAR EL PERIODO DE CORTE.xlsm
  5. Que a estas alturas, después de la cantidad de consultas que has realizado, no entiendas que son y para que sirven los eventos de hoja y libro, es preocupante. Revisa el código VBA de la hoja PASS del adjunto. ejecutar macro opciones Ctrl mas letra en celdas.xls
  6. Revisa el contenido de la variable KName. Si no resulta, sube tu archivo con la macro completa.
  7. Pon esta macro en Thisworkbook. Private Sub Workbook_AfterSave(ByVal Success As Boolean) Dim Copia1, Copia2, Copia3 Copia1 = ThisWorkbook.Path & "\Backup\1 " & ThisWorkbook.Name Copia2 = ThisWorkbook.Path & "\Backup\2 " & ThisWorkbook.Name Copia3 = ThisWorkbook.Path & "\Backup\3 " & ThisWorkbook.Name Kill Copia3 Name Copia2 As Copia3 Name Copia1 As Copia2 ActiveWorkbook.SaveCopyAs Copia1 End Sub
  8. El código parece correcto, pero sin ver los datos y el formulario, imposible decirte algo mas.
  9. He detectado un error en el archivo que subí en este tema Ruego reabrir el tema, avisaré cuando se pueda cerrar. Gracias Cajas 3D.xlsm
  10. Selecciona cualquier fecha de la fila 2 y se seleccionará/copiará hasta el final. Luego, solo tienes que seleccionar la celda de destino y pegar. copiar y pegar.xlsm
  11. Con el permiso de Abraham. Application.MacroOptions Macro:="Aquíelnombredetumacro", ShortcutKey:= Sheets("PASS").Range("A1")
  12. Mañana, si puedo, le echo un vistazo. A ver que podemos hacer.
  13. Yo soy parco en mis explicaciones, pero tu me superas ampliamente. ¿Que se supone que quieres hacer?
  14. Abre el adjunto y pulsa sobre la flecha azul. La macro es algo lenta, pero no dispongo de más tiempo para pensar en una solución más eficiente. En la barra de estado de Excel, a la izquierda, irá apareciendo el avance del proceso. Para Automatizar.xlsm
  15. La selección con tilde es automática en función de si está informada la descripción o no, por tato basta añadir los conceptos y se dejarán seleccionar sin problemas. Ya he ampliado a 50 el apartado Temas tratados en la planilla. Nota: Acostúmbate a analizar en profundidad tus requerimientos antes de realizar la consulta, esto es un foro, no un consultorio a demanda. Visitas (1) (1).xlsm
  16. Ja,ja,ja, sin haber leído tu mensaje, ya me había tomado la libertad de hacerlo. Visitas.xlsm
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.