Jump to content

xafel

Members
  • Content Count

    45
  • Joined

  • Last visited

  • Country

    Spain

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. Buenas tardes, si alguien llega a esta pregunta por tener el mismo problema a mi me lo ha resuelto Elsa Matilde Meyer, os dejo su dirección para que le preguntéis a ella, aparte de resolverte tu duda te enseña como aplicarlo en otras ocasiones, en serio GENIAL. http://aplicaexcel.galeon.com
  2. os adjunto el fichero por si no me he explicado bien Gracias Relacion Facturas Autonomos nuevo pasword .rar
  3. buenos días foreros, en la misma aplicación del otro día estoy intentando poner un botón en la hoja información que una vez el usuario nuevo ya haya modificado los datos apague un botón del useform de acceso y active el que se queda definitivo, el primero activa la pagina información y el segundo activa la de registro que es la que se usa pero no soy capaz de que funcione, encambio me activa y desactiva las hojas sin problema, no me da ningún error por lo que no se por que no lo hace Sub DesactivarInformación() Worksheets("relación").Visible = True UserForm2.CommandButton2.Visible = False UserForm2.CommandButton2.Enabled = False UserForm2.CommandButton1.Visible = -True UserForm2.CommandButton1.Enabled = True Worksheets("hoja2").Visible = False Worksheets("información").Visible = False Worksheets("entrada").Visible = False End Sub Mil gracias de antemano
  4. Mil Gracias, ya funciona y mira que le he dado vueltas, voy a ver si aprendo que estaba haciendo mal, Saludos
  5. Buenas tardes foreros, he creado una aplicación para unos amigos autónomos que hace las facturas y las guarda y controla lo facturado , el problema lo tengo al abrir el archivo me da erro 91, os lo adjunto para que lo podáis ver para entrar usuario "Ana" passwor " 1" Gracias de antemano por vuestra ayuda Relacion Facturas Autonomos nuevo pasword.rar
  6. 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
  7. 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
  8. 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
  9. 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?
  10. 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
  11. 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
  12. GRACIAS..... es justo eso...ahora mismo voy a ver donde lo hacia mal ..a ver si aprendo ....
  13. 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
  14. 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
  15. Gracias Silvia, ya funciona era justo lo que tu dices....algún día aprenderé
×
×
  • Create New...

Important Information

Privacy Policy