Jump to content

Macro usando variables permanentes

Benito Bartolomé
 Share

Recommended Posts

Benito Bartolomé Collaborator

Benito Bartolomé

Posted
Posted

Hola a todos;

-Hoy no vengo a preguntar nada pero si a compartir un video donde muestro tres ejemplos usando variables permanentes.

Bueno pedir primero permiso si se  puede publicar en caso contrario borráis el post.

Enlace del video:

https://youtu.be/i5LBBzYeUY4

Con vuestro permiso también adjunto la macro.

Espero que os guste y si veis que tiene algún error me lo comunicáis.

Saludos

 

Mvp.xlsm

Link to comment
Share on other sites
 Share
Go to topic listing

  • Crear macros Excel

  • Posts

    • Janlui
      Consulta SI.conjunto para horas trabajadas

      By Janlui · Posted

      =ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva  
    • nickmartinez
      Macro para segmentar datos en tablas dinamicas

      By nickmartinez · Posted

      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 
    • nickmartinez
      Macro para segmentar datos en tablas dinamicas

      By nickmartinez · Posted

      ya te di acceso,me parecio raro que no pudieras entrar pero ya deberias entrar
    • jeaa
      Ayuda para concatenar celdas obviando los ceros

      By jeaa · Posted

      Janlui, genial eso lo lo que buscaba
    • Janlui
      Ayuda para concatenar celdas obviando los ceros

      By Janlui · Posted

      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

  I accept