Jump to content

CarlosKurt

Members
  • Content Count

    167
  • Joined

  • Last visited

About CarlosKurt

  • Rank
    Advanced Member
  • Birthday 10/22/1986

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola @bigpetroman, muchas gracias por tu tiempo, funciona a la perfección 😀. Llegué a pensar que ya no era posible resolver mi solicitud 😬. Doy por terminado el tema. Saludos 😷
  2. Hola @avalencia, muchas gracias por su aporte. No sabia que "w" también representaría una "hoja". Doy por terminado el tema. Saludos
  3. Hola a tod@s, nuevamente solicitando su tiempo y aporte para ese nuevo tema. El siguiente codigo lo encontre en la Web. #If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long _ ) As Long #End If Sub CrearQRMasivo() Dim n&, I& LimpiarImagenes With wGenerador n = .Range("H" & Rows.Count).End(xlUp).Row For I = 2 To n CrearQRIndividual .Range("H" & I) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "http://chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" & Valor.Value & "&chld=H|0" Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("I" & Valor.Row).Top lado = .Range("I" & Valor.Row).Width izqui = .Range("I" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("I" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarTodo() LimpiarImagenes wGenerador.Range("H2", "H" & Rows.Count) = Empty End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("H2", "H" & Rows.Count).RowHeight = wGenerador.Range("H2").RowHeight End Sub Este código genera Imágenes QR; sin embargo cuando se copia la hoja completa para generar nuevas imagenes QR de otros productos; solo genera los mismo codigos de la hoja principal; se necesita que se genere imagenes QR para la nueva hoja . Espero haberme hecho entender Saludos pruebaQr.xlsm
  4. Hola @AlexanderS , muchas gracias por su tiempo y aporte; esta perfecto. Doy por terminado el tema. Saludos
  5. Hola a tod@s. Como siempre agradecido por su tiempo y aporte para este nuevo tema. Tengo la siguiente macro Sub CopyPaste() Dim xRng As Range On Error Resume Next Set xRng = Application.InputBox("Selecciones el rango:", "MS Excel", , , , , , 8).Select ' If xRng Is Nothing Then Exit Sub Selection.SpecialCells(xlCellTypeBlanks).Select Range("A1").End(xlDown).Offset(1, 0) = "=R[-1]C" Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Copy ' Range("A1").End(xlDown).Copy ActiveSheet.Paste End Sub El cual funciona bien cuando se ingresa el rango en el InputBox. El detalle esta cuando decido "Cancelar" el InputBox; la macro continua ejecutandose 😧. Cuando activo activo el "bloque sin comentarios" de la siguiente linea If xRng Is Nothing Then Exit Sub la macro no se ejecuta 😕 Saludos PruebaCopyPaste.xlsm
  6. Hola a tod@s, de antemano agradecer su tiempo para el siguiente caso. La planilla original tiene 900 filas, cada fila es un producto que tiene ingresos diarios por fechas. Se necesita visualizar el comportamiento de los ingresos a través de "flechas"; como los de la herramienta "Formato Condicional". Por ejemplo, según la imagen, el producto pan se observa que tiene insertada las "flechas verdes hacia arriba" por que es mayor al día anterior, se insertan "flechas rojas hacia abajo" cuando son números menores al día anterior y "flechas amarillas hacia la derecha" cuando los números son iguales al día anterior. Si el planteamiento que expongo fuese posible, entonces puede hacerse de manera masiva a las 900 productos? PD: La imagen que inserte fue realizada en Paint Saludos
  7. Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo. Doy por terminado el tema Saludos.
  8. Hola a tod@s. Agradezco de antemano su tiempo y respuesta a los siguiente. En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto. Saludos PRUEBA.xlsx
  9. Es mi caso, mis colegas tienen nivel en negativo, no quieren aprender 😅 Saludos
  10. Hola @Gerson Pineda, gracias por comentario. Realmente si utilizo la TD y Power Pivot. Pero son esas "raras" ocasiones que es necesario usar solo formula para que otros usuarios con menos conocimiento en excel tengan la informacion a la vista. Saludos.
  11. Hola @tierra_pampa, gracias por tu aporte. Sin embargo ya encontre la solucion a este caso. ={SUMA(SUMAR.SI.CONJUNTO(INDIRECTO(Bancos&"!C:C"),INDIRECTO(Bancos&"!A:A"),">="&CONCATENAR($B$2,"/",$B$1),INDIRECTO(Bancos&"!A:A"),"<="&FIN.MES(CONCATENAR($B$2,"/",$B$1),0),INDIRECTO(Bancos&"!B:B"),A4))} Saludos PRUEBA.xlsx
  12. Hola @DiegoLG, la formula que enviastes me sirvio de mucho. Lo adapte para se utilize atraves de una matriz. 😆 ={SUMA(SUMAR.SI.CONJUNTO(INDIRECTO(Bancos&"!C:C"),INDIRECTO(Bancos&"!A:A"),">="&CONCATENAR($B$2,"/",$B$1),INDIRECTO(Bancos&"!A:A"),"<="&FIN.MES(CONCATENAR($B$2,"/",$B$1),0),INDIRECTO(Bancos&"!B:B"),A4))} Doy por terminado el tema!!😉 Saludos
  13. Gracias por su tiempo @GabrielRaigosa. Si, tambien lo he utilizado la herramienta de consolidacion de datos. Pero me es necesario que el resumen muestre en la columna "C" de manera automatizada; solo con las formulas. Ya que como mencione anteriormente la planilla real es mas compleja. Saludos
  14. Hola @DiegoLG, gracias por su tiempo. Así es, la tabla dinámica ayuda mucho; sin embargo la planilla real es mucho mas compleja que prefiero hacerlo mediante formula. Saludos.
  15. Hola a tod@s. De antemano agradecer a todos por su tiempo en colaborar por esta causa. 😄 Lo que se necesita es, como bien dice el titulo, sumar la misma columna de varias hojas según la condición de "código", "año" y "mes". Usando la función sumar.si.conjunto y creando nombre al conjunto de hojas he logrado sumar por "código" y me faltaría la suma según "año" y "mes". Si hubiera otra función seria genial 🤗 Saludos. PRUEBA.xlsx
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png