Jump to content

isidrod

Members
  • Content Count

    243
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. 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
     
     
     
  2. 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
  3. 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
  4. Thanks
    isidrod got a reaction from Silvia in Como Cambiar Formatos de fechas   
    ahí esta de nuevo con formula
    EJEMPLO de fechas.xlsx
  5. Like
    isidrod reacted to Gerson Pineda in Como Cambiar Formatos de fechas   
    Pues algo no haces bien
    Mira como funciona

     
    Saludos 
  6. 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 
  7. 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
  8. 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
  9. 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
  10. Thanks
    isidrod reacted to Gerson Pineda in copiar de una carpeta a otra con las rutas en celda de origen y destino   
    Hola Isidro 
    Revisa el adjunto [elige 1 entre los 2 métodos] 
     
    Saludos 
    Copiar archivos entre carpetas_GP.zip
  11. Thanks
    isidrod reacted to Leopoldo Blancas in Abrir pagina web con CommandButton   
    Mi Aporte:
    Sub MiFace()
        ActiveWorkbook.FollowHyperlink "http://www.facebook.com"
    End Sub
     
    Saludos.
  12. Thanks
    isidrod reacted to Silvia in Coincidir texto/celda entre 2 hojas diferentes   
    Hola proletario (e Isidro)
    Proletario,  
    Tienes varios puntos en contra.....
    No puedes coincidir un texto que está incluido en otro.
    No puedes coincidir varios texto (tipo DR2000 - DR350 / DR2005),  y que cualquiera de ellos esté incluido dentro de otro texto.
    lo mismo para esto: 
    1 bobina para fax, reemplaza a PC202RF PC204RF 
     
    Pensé en que separando cada texto a buscar en diferentes columnas, se podría conseguir algo, pero tampoco...  como buscar DR230CL en DR-230 , por otro lado DR-230 en la hoja 2, hay varios, no solo uno.
    Pueda que alguien encuentre una forma, tal vez con macros ¿....?..., lo dudo..   , tal vez debas crear un código único por cada item o extraerlos en una columna a parte.. y en cada lista.. de esta forma no tendrás error en los resultados.... en una lista el código a buscar, en la otra lista el código buscado, deben ser iguales...
     
    saludos,
    Silvia
  13. Thanks
    isidrod got a reaction from Antoni in ERROR NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA   
    buenos días   a todos, mi me paso lo mismo con ese tipo de error, los ejecutan en 2013 y manda ese error, y luego lo ejecute en 2016 y ahí todo bien, la solución fue guardarlo en 2016 y así funciono en 2013 SERGIO MULERO RIVERA, Leopoldo Blancas, Antoni, Héctor Miguel
  14. Like
    isidrod reacted to Antoni in llenar listbox con valores distintos entre dos tablas   
    Había un error de sintaxis.
    No he podido probar porqué me dice que no encuentra la tabla de Access cajafinal.
    Dim Comprobante As Range Dim x As Long With ListBox1 For x = .ListCount - 1 To 0 Step -1 Set Comprobante = Sheets("Base de datos").Columns("C").Find(.List(x, 1), , , xlWhole) If Not Comprobante Is Nothing Then .RemoveItem (x) Next End With  
  15. Thanks
    isidrod got a reaction from Antoni in ERROR NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA   
    buenos días   a todos, mi me paso lo mismo con ese tipo de error, los ejecutan en 2013 y manda ese error, y luego lo ejecute en 2016 y ahí todo bien, la solución fue guardarlo en 2016 y así funciono en 2013 SERGIO MULERO RIVERA, Leopoldo Blancas, Antoni, Héctor Miguel
  16. Thanks
    isidrod got a reaction from Antoni in ERROR NO SE PUEDE ENCONTRAR EL PROYECTO O LA BIBLIOTECA   
    buenos días   a todos, mi me paso lo mismo con ese tipo de error, los ejecutan en 2013 y manda ese error, y luego lo ejecute en 2016 y ahí todo bien, la solución fue guardarlo en 2016 y así funciono en 2013 SERGIO MULERO RIVERA, Leopoldo Blancas, Antoni, Héctor Miguel
  17. Like
    isidrod reacted to Silvia in Mejorar la Función SI con Función SI y BuscarV   
    hola salaverrino
    =SI.ERROR(SI(G2="";"";SI(G2=AAA;BUSCARV(G2;BASE_AUXILIAR!$B$8:$B$47;1;FALSO);));E2)
    Explica que es lo que quieres hacer, porque no se entiende la formula.
    Ahí dice que si G2=a un rango  ¿como así?, en esta parte hay varios resultados.
    {VERDADERO;FALSO;FALSO;FALSO;FALSO;FALSO} >> ese es el resultado de esa parte de tu formula,  nunca revisará el resto, tu formula siempre tomará el primer resultado que encuentre. 
    Después, para que utilizas buscar?  buscas nuevamente G2 en un rango y traes el mismo resultado...  🙄
    Es mejor que expliques lo que necesitas , mas bien coloca el resultado que debe salir y explica el porqué del resultado.
     
    Ahora, sobre la otra formula,  buscas que G2 sea igual ciertas celdas del rango en la otra hoja?  aunque veo que intercalas unas cuantas y luego son todas. ¿?
    si no hay problema en buscar en toda la columna, puedes utilizar la función coincidir.
     
    saludos,
    Silvia
     
     
     
     
     
     
     
     
  18. Like
    isidrod reacted to digitalboy in El día de la marmota   
    Hola a todos!
    Seria bueno contar con algún tipo de botón que sirva para clasificar las preguntas en alguna de las categorías mencionadas por Antoni y así ni siquiera los demás colaboradores pierdan su tiempo en consultar dicha pregunta/duda.

    Yo hace años que me di cuenta de lo antes expuesto y sobre todos que hay dudas o preguntas que ya han sido respondidas o puede encontrarse respuesta en Google. Ahora solo contesto alguna que otra duda que despierte mi interés o tenga algún tiempo de sobra para responder.

    En este y otros foros se presenta la misma situación de personas que no no saben dar detalle explicito de lo que necesitan, quieren proyecto completo, etc...

    Saludos!
  19. Like
    isidrod reacted to Antoni in Extienda el día de la semana tomado de la columna (A) y devuélvalo a la columna (B)   
    Otra forma:
    Sub DíaSemana() Dim Día As Variant, x As Long Application.ScreenUpdating = False Día = Array("", "Lunedi", "Martedi", "Mercoledi", "Giovedi", "Venerdi", "Sabato", "Domenica") For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("B" & x) = Día(Weekday(Range("A" & x), vbMonday)) Next End Sub  
  20. Like
    isidrod got a reaction from lug barry in No funciona el complemento   
    subo esta función a ver si le sirve
    Function PesosMN(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, i As Variant 'Si esta como Option Explicit tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For i = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case i Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next i Select Case lnNumeroBloques Case 1 PesosMN = lcBloque Case 2 PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN Case 3 PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN End Select lnNumeroBloques = lnNumeroBloques + 1 Loop Until lyCantidad = 0 PesosMN = "(" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)" End Function  saludos isidro
  21. Like
    isidrod got a reaction from TREBUR in Duda con BuscarV   
    buscarVmodificado.rar
  22. Like
    isidrod got a reaction from TREBUR in Duda con BuscarV   
    buscarVmodificado.rar
  23. Like
    isidrod reacted to Gerson Pineda in Selecciona carpeta traer nombre y tamaño   
    Hola Yamid
    Recuerda que para traer el detalle de las subcarpetas, se debe recorrer por niveles, es decir el árbol de carpetas puede ser más o menos extendido, porque una carpeta, puede o no contener subcarpetas y esa subcarpeta puede tener más, así sucesivamente... 
    Entonces ese nivel debes ponerlo en VBA, mediante más bucles 
    Te adjunto mi opción con 2 niveles, Excel va incluir las primeras carpetas y luego las subcarpetas y el tamaño de cada una
    Agregue el total de carpetas y el tamaño total de todas 
     
    Saludos 
    Detallar carpetas y subcarpetas.zip
  24. Like
    isidrod reacted to Gerson Pineda in EXTRAER DATOS DE UNA CELDA DE UN LIBRO A OTRO   
    Hola
    Adjunto mi versión, ambos libros deben estar en la misma carpeta
     
    Saludos 
    Obtener datos de otro libro_GP.zip
  25. Like
    isidrod reacted to GabrielRaigosa in Duda con BuscarV   
    Para esa búsqueda invertida le recomiendo las funciones "Indice" y "Coincidir".
    Adjunto ejemplo
    Indice Coincidir.xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png