Jump to content

Pedro Maias

Members
  • Content Count

    12
  • Joined

  • Last visited

About Pedro Maias

  • Rank
    Member

Profile information

  • Gender
    Hombre
  • Localización:
    Badalona

Converted

  • Campos
    ;

Recent Profile Visitors

435 profile views
  1. Os aporto esta clasificación de equipos de la cual se puede adaptar, esta casi echa en vba para evitar el borrado, si alguien la quiere modificar, mejorar, u otra cosa que lo haga Resultados y Clasificacion.xlsm
  2. Seria conveniente que la clasificación se actualizara el primero que mas partidos ha ganado y en caso de empate el que mas puntos a favor tiene, pero que se haga de forma automatica
  3. Muchas gracias a todos he conseguido hacer algo entre vb y excel, aqui os lo envio para que sirva de ayuda a otros y asi poder sacar uno mas bueno Libro6.xlsm
  4. Perdón por la tardanza, pues por problemas familiares he estado un mes si salir por aquí, podéis dar este tema por cerrado ya lo tengo solucionado, una vez mas gracias a todos
  5. 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
  6. 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
  7. Esta función ya la echo y no funciona, os envío un ejemple del error Libro1.xlsm
  8. 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
  9. Vale así es como lo tengo y es como funciona, pero como desconozco mucho el vba, pensaba que se podía hacer, pues nada lo dejaremos como esta, daros las gracias por atenderme y si no hay novedad se puede cerrar este tema
  10. 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
  11. No me funciona , me sale #¿nombre?
  12. 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