Jump to content

Esto "salta" con cada nuevo click dentro del foro.


Recommended Posts

Rubén, te pasa solo en el foro? Te lo pregunto porque ese tipo de problemas se suele dar cuando tienes malware en tu equipo...

Yo navego correctamente. Si alguien más puede confirmarlo, se lo agradecería...

Link to comment
Share on other sites

Rubén, te ocurre en todos los enlaces? O solo en algunos?

 Me puedes pegar la url ‘buena’ a la que intentas acceder? (haz clic con el botón derecho en el enlace y selecciona ‘copiar enlace)

 Sigo insistiendo en que es de tu equipo (a mí me pasó hace tiempo). Me gustaría hacer algunas pruebas en la web.

 Por favor, mientras lo reviso haz una revisión de malware con Ccleaner o Spybot y así asegurarte de que tu equipo está limpio.

 

Link to comment
Share on other sites

  • 3 weeks later...
  • Crear macros Excel

  • Posts

    • =ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva  
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar,hace mucho que me suscribi a esta pagina y simpre pude subir mi archivo de ejemplo,pero ahora me doy cuenta que si no pago una tarifa de membresia no podre subir ejemplos para que puedan prestar su ayuda 
    • ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar
    • Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos   Sub concatena()     Set DATOS = Worksheets("Verificar Matriz")     Sheets("principal").Select     Range("E15:E5000").ClearContents     rt = 5     RD = 6     RS = 15     Do While DATOS.Cells(RD, 4) <> ""         pasa = 0         For C = 5 To 22             If DATOS.Cells(RD, C) <> "0" Then                 pasa = pasa + 1             End If         Next         If pasa > 0 Then             CADENA = ""             For C = 5 To 22                 If DATOS.Cells(RD, C) > 0 Then                     If Len(CADENA) > 0 Then                         CADENA = CADENA & ","                     End If                     CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34)                 End If             Next             Cells(RS, "E") = CADENA             RS = RS + 1         End If         RD = RD + 1     Loop End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy