Jump to content

isidrod

Members
  • Content Count

    254
  • Joined

  • Last visited

  • Days Won

    4

Reputation Activity

  1. 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
  2. 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  
  3. 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
  4. 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
  5. 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
     
     
     
     
     
     
     
     
  6. 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!
  7. 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  
  8. 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
  9. Like
    isidrod got a reaction from TREBUR in Duda con BuscarV   
    buscarVmodificado.rar
  10. Like
    isidrod got a reaction from TREBUR in Duda con BuscarV   
    buscarVmodificado.rar
  11. 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
  12. 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
  13. 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
  14. Like
    isidrod reacted to Gerson Pineda in Duda con BuscarV   
    Hola
    Se puede usar Buscarv, con un truco
    =buscarv(f4, elegir({1,2}, c2:c7, a2:a7),2,0)
     
    Saludos a ambos
  15. Thanks
    isidrod reacted to Gerson Pineda in Insertar comentarios a celdas desde otras   
    Gracias por el reconocimiento, lo tomo para mi y otros maestros en el foro
    Ademas recién me doy cuenta, que tu libro tenia hojas ocultas, con información confidencial, las he eliminado y quedo solo la hoja necesaria para realizar las pruebas, siempre pero siempre, crea un libro nuevo, solo copia lo necesario y lo subes al foro, así evitas cualquier fuga inconsciente, de tus datos 
     
    Saludos
  16. Like
    isidrod reacted to Gerson Pineda in Insertar comentarios a celdas desde otras   
    Si lees de nuevo arriba, mencione que los elimine
    Gracias!
     
    Saludos
  17. Thanks
    isidrod got a reaction from Gerson Pineda in Insertar comentarios a celdas desde otras   
    gracia @Gerson Pineda eres un ángel aquí en este foro voy achecarlo y te comento, no cierres el tema por favor yo te aviso gracias por tu ayuda
    saludos isidrod
  18. Thanks
    isidrod reacted to Gerson Pineda in Insertar comentarios a celdas desde otras   
    Hola @isidrod
    Siendo así, entonces es mejor asegurarnos, que se busque primero el concepto abajo, si existe, pues comience a agrupar los comentarios según el año y los inserte en la celda correspondiente
    Hice unas leves modificaciones, revisa el adjunto y nos comentas
     
    Saludos
     
    Insertar multiples comentarios en una celda_GP.zip
  19. Like
    isidrod reacted to Gerson Pineda in Insertar comentarios a celdas desde otras   
    Hola @isidrod
    Revisa el adjunto, ya va incluido, la suma, como ademas los comentarios, según el año
     
    Saludos 
     
    Llenar celdas con multiples comentarios Vba_GP.zip
  20. Like
    isidrod got a reaction from Gerson Pineda in Recopilar datos para responder preguntas con formulas   
    así es @Gerson Pineda cuando nos dejan tarea es para aprender un poquito, pero si se trata de excel 
    es mucho mas porque no sabemos si ese excel nos va a dar comer y lo digo yo que llevo 20 años usándolo todos los días aun apenas empiezo a gatear
    saludos isidro
  21. Like
    isidrod reacted to JSDJSD in Evitar Duplicados   
    Hola Adrián Escalante G., tierra_pampa te dejo otra opción
    Registro de Series PRUEBA(1).xlsm
  22. Like
    isidrod reacted to tierra_pampa in Evitar Duplicados   
    Hola @Adrian Escalante G
    Te dejo para que pruebes una posible opción.
    Suerte!
    ae20190322_Registro de Series PRUEBA.xlsm
  23. Like
    isidrod reacted to GabrielRaigosa in Crear graficas con funciones x.....   
    x desde:
    x=-3  ;  x=10  ; incremento 0.025
    columna A serie de valores - Columna B ecuación
    Ecuación: =A2*A2-6*A2-16
     

  24. Like
    isidrod got a reaction from Gerson Pineda in Encontrar y Reemplazar datos   
    gracias Gerson por tu comentario
  25. Like
    isidrod got a reaction from Darkcanibal in Obtener la fecha mas antigua   
    que bueno que funciono caso cerrado
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png