Antoni

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

Prueba el adjunto. Meteo da Modificare 3.xlsm

Si no es esto, explícate con un ejemplo mas completo. prueba (1).xlsm

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")

Ya lo intuía.

Reláaaajate,....yo tampoco he entendido nada.

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

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

Revisa el contenido de la variable KName. Si no resulta, sube tu archivo con la macro completa.

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

El código parece correcto, pero sin ver los datos y el formulario, imposible decirte algo mas.

Por mi parte ya está OK.

¿Mas que el día del Ajax?

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

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

Con el permiso de Abraham. Application.MacroOptions Macro:="Aquíelnombredetumacro", ShortcutKey:= Sheets("PASS").Range("A1")

A ver que tal. Cajas 3D.xlsm

Mañana, si puedo, le echo un vistazo. A ver que podemos hacer.

Yo soy parco en mis explicaciones, pero tu me superas ampliamente. ¿Que se supone que quieres hacer?

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

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

Sube el archivo.

Prueba a ver. Visitas (1).xlsm

Ja,ja,ja, sin haber leído tu mensaje, ya me había tomado la libertad de hacerlo. Visitas.xlsm