Jump to content

Opinión personal


JSDJSD

Recommended Posts

Hola a todos, actualmente en el foro encontramos tres categorías de miembros:

.- Miembro VIE

.- Miembro

.- Administrador

Personalmente creo que habría que añadir otra categoría más

.- Miembro Abanderado (o el nombre que se considere oportuno) y por lo menos con una estrella aunque sea de plata.

Entre los que habría que incluir por su entrega, dedicación y aportes  a:

Antoni,   bigpetroman, Hector Miguel ........, se que me dejo muchos en el tintero pero esto es solo una muestra de los miembros a tener en cuenta.   

Me gustaría que lo considerasen los Administradores de este fantástico foro.

Un saludo a todos.

Antoni.jpg

bigpetroman.gif

Héctor Miguel.jpg

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 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