Jump to content

Pedro Maias

Members
  • Content Count

    12
  • Joined

  • Last visited

Posts posted by Pedro Maias


  1. Hola buenos días a todos, haber si me pueden echar una manita,  les estoy intentando hacer una tabla de resultados y clasificación para un equipo pequeño de fútbol americano de mi barrio de la cual os remito y es que tengo un pequeño problema en cuanto a los partidos perdidos, ahora os cuento,  les he puesto el nombre de equipo local y visitante para no ofender a nadie, de momento solo funciona con el equipo local una vez funcione ya lo pasare a los otros equipos.

    El orden de partidos jugados funciona bien pues al poner el resultado ya suma el partido jugado, ahora bien en cuanto a partidos ganados o perdidos no se como hacerlo

    Por ejemplo en la jornada 3 pierden pe tendría que poner Partidos jugados 3 ganados 2 perdidos 1 y es aquí donde me pierdo ya que no me sale como hacerlo

    Haber si me pueden echar una manita

    Muchas gracias a todos

    Resultados y Clasificacion.xlsm


  2. Mira aquí te envío una copia de un libro que funciona y lo que quiero es que esta linea

           Range("B62:R62").Copy Sheets("Resumen Impagos").Range("b1048576").End(xlUp)(2)
    que no se repita tanto, de ay que lo que intento hacer es esto

    If Range("o62") >= "1" Then

    zz=B62:xx=R62             ' que tome esta Variable

    Call Prueba

    end if

    Sub Prueba()

         'que el range tome la variable

    Range("zz:xx").Copy Sheets("Resumen Impagos").Range("b1048576").End(xlUp)(2)

    end sub

    espero haberme explicado bien

    Libro2.xlsm


  3. Buenos días, os hago una pregunta

    estoy limpiando unas macros y quisiera saber sin el Range se puede ejecutar con variable, aquí va una explicación

        If Range("s50") >= 1 Then

         Range("U50") = ("=U47+S50")

        zz=b2 :  xx=s2  ' Variables que después toma el range en la sub

        Call Datos

        Else: Range("u50") = C:End IF


         If Range("S2") >= 1 Then 

         'Range("U2") = ("=U50+S51")

         xz=63 : zy=76 ' Variables que después toma el range en la sub

        Call Datos

         Else: Range("u51") = C: End IF

     

    Sub Datos()

    Worksheets("Hoja2").Unprotect Password:=PR
      Range("zz:xx") .Copy Sheets("Hoja2").Range("b1048576").End(xlUp)(2) 'aqui es donde el range tomaria el valor
    Worksheets("Hoja2").Protect Password:=PR
    End Sub

     

    esto es posible si es asi NO me sale y si se puede hacer os pido si me podéis ayudar

    Muchas gracias


  4. Lo que hay echo pero se repite muchísimo y es por eso que lo quiero hacer publica, es lo siguiente que al insertar por ejemplo en la casilla A1  un dato pues que en la casilla G8 me ponga la fecha de la introducción de A1

     

    esto mas o menos

    Public Const A = "50"
    Public Const B = 0
    Public Const C = "NO Funciona"
    Public Const DS = ("=Format(Date, ""mm-dd-yyyy"")")

     

    Private Sub CheckBox1_Click()
    Range("f4").Value = CheckBox1.Value
    If CheckBox1.Value = True Then Range("f4").Value = A Else Range("f4") = B

        If Range("f4") > 1 Then
            Range("f1") = DS ' (Aqui la fecha)
        Else
            Range("f1") = C '(esta pone la celda en vacio)
    End If

    End Sub

     


  5. Hola buenas tardes, me podrían ayudar con las variable, les explico tengo estas variables que me funcionan bien en varias hojas

           Public Const LO = "Está Cerrado"
           Public Const GA = "78"
           Public Const c = ""
           Public Const P = "Pagado "
           Public Const DV = "Devuelto":
           Public Const PR = "Este mes esta mal"

          Public Const IVA = "+ 21% de IVA"
          Public Const CR = "47"
          Public Const TG = "Total + Gastos"

          Public Const TS = ("=(R26-S39-S40-S41-S42-S43-S44-S45-S46)")

     

    Pero esta NO

    Public Const DS = ("=Format(Date, "mm-dd-yyyy")"), me da, error de compilación se esperaba:)

    y la verdad es que uso esa funcion como unas 70 veces y quisiera ponerla una sola vez en el modulo como tengo las de arriba

    me podéis echar una mano en donde me equivoco

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png