Jump to content

isidrod

Members
  • Content Count

    229
  • Joined

  • Last visited

  • Days Won

    3

Reputation Activity

  1. Like
    isidrod reacted to Antoni in Descomponer fechas con Macro   
    Se toma como base el año de la celda A2.
    Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub  
  2. Like
    isidrod reacted to Vladimir in Descomponer fechas con Macro   
    Hola a todos.
    Prueba el adjunto.
    Aclaro que la UDF no es mía. Solo la adapte a tu requerimiento.
    V-descomponer_fech.rar
  3. Like
    isidrod reacted to Héctor Miguel in Macro une varias columnas en una sola   
    cambia esta línea:
    por esto:
    Cells(k, col + UBound(rango, 2) + 2).Value = rango(i, j)  
  4. Haha
    isidrod got a reaction from Antoni in Importar información de un archivo texto sin formato   
    eres  un genio Antoni 
    saludos isidro
  5. Like
    isidrod reacted to Antoni in Sin insertar Celdas-Datos de Formulario a Hoja   
    sumar1.xlsm
  6. Like
    isidrod reacted to Antoni in Importar información de un archivo texto sin formato   
    Abre el adjunto y pulsa sobre el icono.
    Las pruebas las he hecho con el archivo: texto a ser importado.txt
    ImportatTXT.xlsm
  7. Like
    isidrod reacted to Gerson Pineda in Formula para recorrer celda con condicional   
    Holas!
    Aquí mi versión con Vba, no importa como se llame la tienda, es decir si comienza o no, con "t" 
     
    Saludos 
    Relleno de columna Vba_GP.zip
  8. Like
    isidrod got a reaction from Silvia in Formula para recorrer celda con condicional   
    listo para ejecutar macros
    tiendas dias.xlsm
  9. Thanks
    isidrod got a reaction from Silvia in Formula para recorrer celda con condicional   
    si hay solo grabando esa formula y insertas un modulo y pegas este código
    Sub Macro1() With Worksheets("Hoja1").Range("A2:A" & Range("B65536").End(xlUp).Row) .FormulaR1C1 = "=IF(LEFT(RC[1],1)=""T"",RC[1],R[-1]C)" .Value = .Value End With End Sub ahí esta a ver si te funciona
    saludos isidro
  10. Thanks
    isidrod got a reaction from Silvia in Formula para recorrer celda con condicional   
    copiar pega esa formula Luis Antonio  a ver si te funciona
    =SI(IZQUIERDA(B2,1)="T",B2,A1)
    saludos isidrod
  11. Thanks
    isidrod got a reaction from Silvia in Como Cambiar Formatos de fechas   
    buen día @ROVER1965  buscar y reemplazar ctrl b buscar por punto reemplazar por guion o diagonal

    es pero que te funcione
    https://support.office.com/es-es/article/buscar-o-reemplazar-texto-y-n%C3%BAmeros-en-una-hoja-de-c%C3%A1lculo-0e304ca5-ecef-4808-b90f-fdb42f892e90
    saludos isidro
  12. Thanks
    isidrod reacted to Gerson Pineda in Crear macro de una formula (contar diferentes )   
    Hola @lphant
    Hay distintas formas, te adjunto 2 con Vba y 1 con Power Query 
     
    Saludos 
    Contar Distintos VBA - Power Query_GP.zip
  13. Thanks
    isidrod reacted to JSDJSD in TRASPASAR FILAS DE UNA HOJA A OTRA CON DOS CONDICIONES   
    Mejor prueba este, lo mismo pero con menos código
    MODELO_FACTURACION_REVISION_PROYECTOS -PRUEBA5.xlsm
  14. Thanks
    isidrod got a reaction from Silvia in Contar celdas diferentes según otra columna   
    buen día @Iphant  te dejo un ejemplo a ver si es lo que quieres
    ejemplo.xlsx
  15. Thanks
    isidrod got a reaction from Silvia in Contar celdas diferentes según otra columna   
    buen día @Iphant  te dejo un ejemplo a ver si es lo que quieres
    ejemplo.xlsx
  16. Like
    isidrod reacted to Gerson Pineda in Encontrar y reemplazar textos   
    Tanto la f como la x son contadores, la "f" es la fila del código que se esta evaluando para reemplazar, la x es para contar cuantos registros se van reemplazando
    Pero la f realmente no es necesario, se puede prescindir de ella
    Tal que la línea quedaría asi:
    If Not vcn Is Nothing Then x = x + 1: Cells(c.Row, "A") = Hoja1.Cells(vcn.Row, "B")  
    Saludos
  17. Like
    isidrod reacted to Silvia in buscar en intervalo de fechas   
    hola underkar
    Puedes utilizar
    =SI.ERROR(BUSCARV(G4,$B$4:$E$6,4,1),0) **Mi separador de argumentos es la coma, si el tuyo es otro, corriges.
    ** la primera da error porque el año es  2008...  no hay dato de búsqueda, coloqué cero.
    si fuera error tuyo, y siempre va a estar dentro de los rangos.. entonces puede quedar así:
    =BUSCARV(G4,$B$4:$E$6,4,1) saludos,
    silvia
     
     
     
  18. Like
    isidrod reacted to GabrielRaigosa in desaparecer "falso" de una celda   
    =SI(Y(datos!C12="si",datos!B12="si"),datos!D12," ") Evite los espacios despues del "si " en la hoja "datos" y repare la fórmula.
    Copia de consulta falso.xlsx
  19. Haha
    isidrod got a reaction from Silvia in Como Cambiar Formatos de fechas   
    ahí mira ya con formato personalizado

    https://sheepotaku.wordpress.com/2011/01/29/convertir-fecha-de-formato-sap-a-excel/
    saludos isidro
  20. Thanks
    isidrod got a reaction from Silvia in Como Cambiar Formatos de fechas   
    ahí esta de nuevo con formula
    EJEMPLO de fechas.xlsx
  21. Like
    isidrod reacted to Gerson Pineda in Como Cambiar Formatos de fechas   
    Pues algo no haces bien
    Mira como funciona

     
    Saludos 
  22. Thanks
    isidrod reacted to Gerson Pineda in Como Cambiar Formatos de fechas   
    Hola
    Si funciona y es efectivo, pero debes seleccionar la columna o el rango completo, de lo contrario sube una muestra del archivo
     
    Saludos 
  23. Thanks
    isidrod got a reaction from Silvia in Como Cambiar Formatos de fechas   
    buen día @ROVER1965  buscar y reemplazar ctrl b buscar por punto reemplazar por guion o diagonal

    es pero que te funcione
    https://support.office.com/es-es/article/buscar-o-reemplazar-texto-y-n%C3%BAmeros-en-una-hoja-de-c%C3%A1lculo-0e304ca5-ecef-4808-b90f-fdb42f892e90
    saludos isidro
  24. Thanks
    isidrod got a reaction from Gerson Pineda in copiar de una carpeta a otra con las rutas en celda de origen y destino   
    @Gerson Pineda  gracias por esta ayuda que me has proporcionado, y a todos los que apoyan en esta foro 
    tema solucionado
     @Gerson Pineda  dios derrame bendiciones a ti a tu familia y tu pueblo entero
    saludos isidro
  25. Thanks
    isidrod reacted to JSDJSD in Macro para unir hojas de un libro en una sola   
    Hola a todos, CSI1981 te dejo una posible solución a tu consulta, pulsa el boton agrupar y te creará una hoja nueva donde te agrupara todas las hojas que tengas en el archivo con la misma estructura, ten en cuenta que si tienes hojas diferentes tendrás que excluirlas en la macro para que todo funcione bién.
    Unificar hojas de igual estrutura.xlsb
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5