Jump to content

xafel

Members
  • Content Count

    40
  • Joined

  • Last visited

About xafel

  • Rank
    Member

Profile information

  • Gender
    Hombre
  • Localización:
    CHIO Tenerife

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Gracias de todos modos, he conseguido saber que era lo que fallaba, he encontrado una respuesta a un error parecido al mio y le decía que hiciera F8 y fuera depurando, asi he visto cual era la línea erronea Gracias
  2. Buenas tardes, tengo una aplicación que he intentado descargar de cosas para poderla subir en otra pregunta (no pude por ser demasiado grande) se me ha ocurrido intentar pasarla por el zip, pero ahora al abrir el archivo me da el error 13 no coinciden los tipos al clicar en "depurar" me marca en amarillo "Usf_Gastos.Show" vaya que no lo puede abrir, y lo que no se es como puedo hacer una búsqueda de donde esta el error, seguro que he borrado algo que era necesario y ahora no lo encuentra pero no se como verlo. El zip pesa 480 Kb asi que no lo puedo subir, lo siento Gracias de antemano por vuestro tiempo
  3. prueba con esta macro, es de elsamatilde de todoexpertos, yo la tengo en un botón de la hoja que quiero que imprima, espero te funcione Private Sub CommandButton1_Click() Application.ScreenUpdating = False 'limpio el area ActiveSheet.PageSetup.PrintArea = "" 'doy formato a la pagina With ActiveSheet.PageSetup .Orientation = xlPortrait .LeftMargin = Application.InchesToPoints(0.45) .TopMargin = Application.InchesToPoints(0.36) .BottomMargin = Application.InchesToPoints(0.04) .PrintTitleRows = "$1:$3" .LeftFooter = "Ejemplar para el cliente" .RightFooter = "&P de &N" End With 'Selecciono A1 rango1 = Range("A1").Select rango1 = Selection.Address 'selecciono l'ultima Fila = Range("a65536").End(xlUp).Row + 20 'se agrega la col siguiente paralas tablas dinamicas rango2 = Range(Selection, Cells(Fila, 6)).Select rango2 = Selection.Address ' lleno l'area d'impresion i mostro el missatge Ans = MsgBox("Se va a imprimir el rango" & " " & rango2, vbYesNo) ' pregunto si o no 'si es "si" imprimeixo If Ans = vbYes Then ActiveSheet.PageSetup.PrintArea = rango2 'VISTA PRELIMINAR ActiveWindow.SelectedSheets.PrintPreview 'imprimeixo directament 'PrintOut 'torno a demanr l'informe i canvio la linea de leftfooter With ActiveSheet.PageSetup .Orientation = xlPortrait .LeftMargin = Application.InchesToPoints(0.45) .TopMargin = Application.InchesToPoints(0.36) .BottomMargin = Application.InchesToPoints(0.04) .PrintTitleRows = "$1:$3" .LeftFooter = "Ejemplar para la arquitecto" .RightFooter = "&P de &N" End With 'Selecciono A1 rango1 = Range("A1").Select rango1 = Selection.Address 'selecciono l'ultima Fila = Range("a65536").End(xlUp).Row + 20 'se agrega la col siguiente paralas tablas dinamicas rango2 = Range(Selection, Cells(Fila, 6)).Select rango2 = Selection.Address PrintOut 'si es "no" borro l'area Else ActiveSheet.PageSetup.PrintArea = "" ActiveSheet.PageSetup.Orientation = xlPortrait Range("j1").Select End If End Sub
  4. Hola de nuevo, he vaciado todos los datos del archivo para que si podéis echarle un ojo Mil gracias de nuevo Nada que no se puede cargar pesa demasiado..... a alguien se le ocurre como cargarlo?
  5. Buenas tardes, te adjunto un archivo donde tienes un Form con contraseña, lo puedes adaptar para que te abra lo que quieras según la contraseña que ponga. A ver si te sirve Saludos Formulario con contraseña.xlsm
  6. Buenas tardes, después de haber aplicado en mi aplicación la respuesta (perfecta por cierto) que me ha dado Antoni, me pasa que en el archivo que adjunte funciona bien, pero en el mio no me deja cambiar el año, siempre busca el año actual, lo se por que he cambiado la fecha del ordenador y entonces me busca los datos del 18 o del 17 etc que es lo que he probado y no se por que pasa adjunto el código como ha quedado en la aplicación por si alguien ve donde esta el fallo Gracias de antemano Sub Resumen() Dim D As Worksheet, R As Worksheet, CIF As Range, Fila As Long Dim NUEVO As Object Dim i As Integer Dim Final As Integer Dim datamenor As Date Dim datamayor As Date Application.ScreenUpdating = False Set D = Sheets("ENTRADAS") Set R = Sheets("415")'-- '---------------------------------------------------------------------------- R.Visible = xlSheetVisible datamenor = CDate(Usf_Gastos.TextBox99) 'Data inferior datamayor = CDate(Usf_Gastos.TextBox100) 'data superior 'busco los datos '----------------------------------------------------------------------------- 'Aportación de Antoni de Ayudaexcel.com Fila = 1 R.Range("A4:E" & R.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents For x = 5 To D.Range("A" & Rows.Count).End(xlUp).Row If D.Range("S" & x) >= CDate(datamenor) And D.Range("S" & x) <= CDate(datamayor) Then Set CIF = R.Columns("B").Find(D.Range("C" & x), , , xlWhole) If Not CIF Is Nothing Then R.Range("C" & CIF.Row) = R.Range("C" & CIF.Row) + D.Range("K" & x) R.Range("D" & CIF.Row) = R.Range("D" & CIF.Row) + D.Range("P" & x) R.Range("E" & CIF.Row) = R.Range("E" & CIF.Row) + D.Range("R" & x) Else Fila = Fila + 1 R.Range("A" & Fila) = D.Range("B" & x) R.Range("B" & Fila) = D.Range("C" & x) R.Range("C" & Fila) = D.Range("K" & x) R.Range("D" & Fila) = D.Range("P" & x) R.Range("E" & Fila) = D.Range("R" & x) End If End If Next R.Activate R.Range("h1") = datamenor: R.Range("i1") = datamayor R.UsedRange.Sort Key1:=R.Columns("C"), Header:=xlYes 'Ordena por Honorarios 'R.UsedRange.Sort Key1:=R.Columns("B"), Header:=xlYes 'Ordena por CIF Unload Usf_Gastos End Sub PD: No puedo adjuntar la aplicación por que tiene todos los datos de clientes, factura, ventas etc, gracias por vuestra comprensión
  7. GRACIAS..... es justo eso...ahora mismo voy a ver donde lo hacia mal ..a ver si aprendo ....
  8. el primer error resuelto, una tontería llamaba mal la hoja pero no me pone los datos en su lugar Lo dicho Gracias de antemano sumar por cif y año.xls
  9. buenos días, he intentado mejorar el archivo "sumar por cif" que me arreglo Antoni, pudiendo seleccionar el año que te interesa, pero me da el error 424 dice que le falta un objeto pero no veo que es lo que he hecho mal, si le podéis dar un vistazo , os lo agradezco. Mil gracias de antemano sumar por cif y año.xls
  10. Gracias Silvia, ya funciona era justo lo que tu dices....algún día aprenderé
  11. Buenos días no se que estoy haciendo mal, pero no me funciona el sumar.si.conjunto, adunto un archivo por si le podeis echar un ojo, imagino que será algo de sintaxis. Gracias de antemano sumar por cif.xls
  12. Gracias es justo lo que necesitaba ahora mismo me pongo a insertarlo en la aplicación Repito mil GRACIAS
  13. Perdona que abuse de tu paciencia, pero es que no me funciona el sumar.si.conjunto y no veo donde meto la pata, te lo he añadido al mismo archivo por si le puedes echar un ojo Gracias de antemano sumar por cif.xls
  14. Buenos días Antoni, ante todo gracias por tu tiempo, te adjunto de nuevo un archivo pero esta vez con datos para ver si soy capaz de hacerme entender, gracias sumar por cif.xls
  15. Buenos días, tengo una aplicación donde se van acumulando los datos de las facturas a clientes, aquí en Canarias tenemos que presentar a hacienda un modelo (415) informativo donde se les dice la suma por cliente de todo lo facturado por año. Estoy intentando hacerlo pero no me sale, lo que quiero es que me haga la suma de los importes ( Honorarios - IGIC- Total) por el cif del cliente y me lo ponga en otra hoja. Os adjunto lo que he hecho hasta el momento por si a alguien se le ocurre la forma correcta de hacerlo Mil gracias de antemano sumar por cif.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png