blooddragon

Este código te debe servir Sub copia_valores() On Error GoTo EH Dim NHoja As String Dim Val As Variant Dim i, j As Integer ActiveWorkbook.Sheets("Hoja1").Activate ActiveSheet.Cells(1, 1).Activate i = 1 While ActiveCell.Value <> "" i = i + 1 If...

Ok pega este código en el VB de Excel (alt + F11) y busca la función en las definidas por el usuario Function Extra_As(ByVal Vcelda As String, ByVal Sim As String) As String Dim i As Integer Dim vFac As String Dim VAdj As Boolean Dim LNum As Variant...

Ya probaste hacer una tabla dinámica

Puedes utilizar este formato ##-##-####

Dale Alt + F11 y pega este código, buscas la función en funciones definidas por el usuario Function Extrae_valor(r As range, Dia As String, fila As String) As String Dim Ren As Integer Dim col, n As Integer For n = 1 To r.Rows.Count If r.Cells(n,...

Tabla dinámica puedes ordenar por día por empresa y te dará un total y sub total

La forma más rápida es mediante una tabla dinámica

Te envio unos links sobre el uso de esta funcion http://support.microsoft.com/kb/285866/es http://www.todoexpertos.com/categorias/tecnologia-e-internet/bases-de-datos/microsoft-access/respuestas/444292/error-en-dbusq-con-valor-nulo

Enviame pégame una filas de ejemplo para hacer la función o en su caso tendrías que utilizar un si anidado

Una disculpa pero tengo una carga de trabajo pesada por lo que hasta el día de hoy pude ver tu código