Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited


Reputation Activity

  1. Thanks
    lphant reacted to Antoni in Poner formula en un label o textbox directamente   
    Ejemplo:
    Label1="=A1+A2+A3"
    Resultado = Evaluate(Label1)
  2. Thanks
    lphant reacted to Haplox in Poner formula en un label o textbox directamente   
    Te dejouna solución @lphant . El problema es que las fórmulas R1C1 son propiedades del objeto Range, por lo que no puedes asignarlas a una variable.
    En el ejemplo, se cálcula mediante una hoja oculta, en la que está la fórmula que muestra el label. Tienes que establecer el valor CS, CT, etc. en la página viswible. Si quieres que no se vea ese valor también  hay soluciones
    Nos comentas
    Copia de Formula en label.xlsm
  3. Thanks
    lphant reacted to Gerson Pineda in Contar fechas contenidas según nº semana   
    Pues enhorabuena!
     
    Saludos 
  4. Like
    lphant reacted to Gerson Pineda in Contar fechas contenidas según nº semana   
    Ahora el archivo lleva 2 opciones, con formula y macro
    Revisa, prueba y nos comentas
     
    Saludos 
    Contar fechas - numero de semana_GP.rar
  5. Like
    lphant reacted to Gerson Pineda in Contar fechas contenidas según nº semana   
    Al inicio no fuiste muy explicito, mencionaste "suma", ahora entiendo que solo deseas contar las mismas fechas, que coinciden con el numero de semana 
    La formula quedaría así
    =SUMAPRODUCTO(--(NUM.DE.SEMANA(FECHA(AÑO(A2:A107),MES(A2:A107),DIA(A2:A107)),2)=E1)) Elimina la columna B
     
    Saludos 
  6. Like
    lphant reacted to Haplox in Ventana emergente con acceso a macros.   
    Te dejo un ejemplo @lphant . Pulsa sobre el botón "Menu"
    Copia de Ventana_emergente.xlsm
  7. Upvote
    lphant reacted to Haplox in Añadir macro de búsqueda a un textbox   
    Qué tal @lphant
    Con el permiso de @Antoni te dejo una solución. Debes introducir el número en el textbox y dar "Enter". Sigues teniendo las dos opciones
     
     
     
    Copia de Libro170726-1.xlsm
  8. Upvote
    lphant reacted to waltermendez99 in Buscar dato y cambiar de color con macro   
    Hola amigo, mi comentario está demás, pero con esto imagino que es suficiente:
    Private Sub Nombre_Change() Dim i As Long, UF As Long UF = Worksheets("Base").Range("E3").End(xlDown).Row Menor = UF + 1 Range("E3:E" & UF).Font.ColorIndex = 25 For i = UF To 1 Step -1 If Not IsEmpty(Trim(Nombre)) Then If LCase(Range("E" & i)) Like LCase(Nombre) & "*" Then If Trim(Nombre) <> "" Then Range("E" & i).Font.ColorIndex = 3 If i < Menor Then Menor = i Else End If End If Else End If Next i If Menor <> UF + 1 Then End If End Sub a meno que se reduzca más el ciclo for.
    slds.
  9. Upvote
    lphant reacted to Haplox in Buscar dato y cambiar de color con macro   
    No sé, si lo único que quieres es encontrar un valor y cambiarle el color de fuente, con esto te sirve más que de sobra
    Private Sub CommandButton1_Click() Dim numero As MSForms.TextBox Dim fila As Long Dim dato As Range Set numero = TextBox1 With ActiveSheet fila = .Range("E3:E" & Rows.Count).End(xlDown).Row Set dato = Range("E3:E" & fila).Find(TextBox1.Value) If dato Is Nothing Then MsgBox "El dato " & numero & " no existe" Else dato.Font.ColorIndex = 26 End If End With End Sub  
  10. Upvote
    lphant reacted to Antoni in Buscar dato y cambiar de color con macro   
    Lo mismo que Haplox , pero sin textbox y automático.
    Informa el código a buscar en F1 y pulsar enter.
    AyudaExcel.xlsm
  11. Upvote
    lphant reacted to vladief in Pasar formulas a codigo vba para macro   
    Hola a todos.
    Pues yo lo hago nombrando las formulas y despues con la grabadora de macros.
    Como tu ejemplo no arroja un resultado especifico con esta formula a modo de prueba que encontre por ahi.
    Revisa el adjunto, talves te sea util.
    Saludos
    formula extensa con macro.xlsm
  12. Upvote
    lphant reacted to bigpetroman in Pasar formulas a codigo vba para macro   
    @lphant, o puedes intentar hacerla por parte (con la grabadora como tu indicas) y luego las unes en el codigo, o la otra mas facil, pudieras indicar que intentas hacer con esa formula para ver si se puede obtener una formula optimizada (menos corta).
    otra cosa, cuando yo tengo hojas con muchas filas y muchas formulas, por lo general dejo siempre las formulas en la primera fila y creo una macro que copie las formuas al resto de las filas y luego copie y pegue como valores, asi siempre queda la formula solo en la primera fila
    suerte
  13. Upvote
    lphant reacted to Gerson Pineda in Autorellenar datos con lista despegable   
    Revisa el adjunto, va con macro de evento y la puedes encontrar, presionando Alt + F11, te enviara al entorno de "proyecto de visual basic por application" o sea VBA, ahí podrás ver el código que te elabore
     
    Saludos
    Evento_VBA.xlsm
  14. Upvote
    lphant reacted to Antoni in Cambiar color celdas ( fila ) segun condición   
    Sube el archivo en el que te pasa lo que describes, porqué a mi no me ocurre.
  15. Upvote
    lphant reacted to Antoni in Cambiar color celdas ( fila ) segun condición   
    Sub Formato() Dim Celda As Range, Kolor As Long Application.ScreenUpdating = False For Each Celda In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row) Range(Celda.Offset(0, -2), Celda).Interior.ColorIndex = xlNone If LCase(Celda.Value) Like "*gato*" Then Kolor = vbGreen If LCase(Celda.Value) Like "*perro*" Then Kolor = vbRed If LCase(Celda.Value) Like "*casa*" Then Kolor = vbYellow If Kolor > 0 Then Range(Celda.Offset(0, -2), Celda).Interior.Color = Kolor Kolor = 0 Next Celda End Sub  
  16. Upvote
    lphant reacted to Antoni in Cambiar color celdas ( fila ) segun condición   
    Yo creo que esto es lo que estás buscando:
    Sub Formato() Dim Celda As Range, Kolor As Long Application.ScreenUpdating = False For Each Celda In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row) Range(Celda.Offset(0, -2), Celda).Interior.ColorIndex = xlNone Select Case LCase(Celda.Value) Case "gato": Kolor = vbGreen Case "perro": Kolor = vbRed Case "casa": Kolor = vbYellow End Select If Kolor > 0 Then Range(Celda.Offset(0, -2), Celda).Interior.Color = Kolor Kolor = 0 Next Celda End Sub  
  17. Upvote
    lphant reacted to Antoni in Unir 2 celdas en una con diferente color   
    Private Sub JuntarConColores(): On Error Resume Next Application.EnableEvents = False If Range("A" & Rows.Count).End(xlUp).Row > _ Range("B" & Rows.Count).End(xlUp).Row Then uf = Range("A" & Rows.Count).End(xlUp).Row Else uf = Range("B" & Rows.Count).End(xlUp).Row End If For x = 1 To uf Range("C" & x) = Range("A" & x) & " " & Range("B" & x) Range("C" & x).Characters(1, Len(Range("A" & x))).Font.Color = vbBlue Range("C" & x).Characters(Len(Range("A" & x)) + 2, Len(Range("B" & x))).Font.Color = vbRed Next Application.EnableEvents = True End Sub  
  18. Upvote
    lphant reacted to Mauricio_ODN in Unir 2 celdas en una con diferente color   
    Haber mi Estimado dejo el archivo como pides, hechando mano del codigo de Maestro @Macro Antonio(Saludos Maestro).
    Particularmente a mi me gustaba más le diseño inicial, Saludos!!
    Libro1 (4).xlsm
  19. Upvote
    lphant reacted to Antoni in Unir 2 celdas en una con diferente color   
    Con esta macro en la hoja, cada vez que modifiques alguna celda del rango A:B, se realizará la acción requerida en la consulta.
    Private Sub Worksheet_Change(ByVal Target As Range): 'On Error Resume Next Application.EnableEvents = False If Not Intersect(Range("A:B"), Target) Is Nothing Then Range("C" & Target.Row) = Range("A" & Target.Row) & " " & Range("B" & Target.Row) Range("C" & Target.Row).Characters(1, Len(Range("A" & Target.Row))).Font.Color = vbBlue Range("C" & Target.Row).Characters(Len(Range("A" & Target.Row)) + 2, Len(Range("B" & Target.Row))).Font.Color = vbRed End If Application.EnableEvents = True End Sub  
    Libro1 (4).xlsm
  20. Upvote
    lphant reacted to johnmpl in Anidar o concatenar formula de busqueda   
    Hola @lphant
    Te recomiendo la solución que está en el adjunto, debido que quizá puedes tener más de dos coincidencias.  La función INDIRECTO no te la recomiendo cuando uses muchas celdas, puesto que es volátil.
    ¡Bendiciones!
    Hoja2 (1).xlsx
  21. Upvote
    lphant reacted to ikanni in Buscar datos y juntarlos en una celda   
    Hola Iphant,
    El problema de cambiar tanto la pregunta con lleva que lo que te he hecho es apañartelo. Si en un principio lo habrías planteado como al final, lo habría hecho de otra manera. Si tengo tiempo el fin de semana .....
    SAludos
     
    Ejemplo_IK.xlsm
  22. Upvote
    lphant reacted to YoelMonsalve in Buscar y rellenar datos   
    Gracias a ti, y siempre a la orden. Mira también el código VBA, está bien ordenado y debidamente comentariado, para que si algún día prentendes estudiarlo puedas hacerlo, y aquí estaremos por cualquier duda.
    Saludos.
  23. Upvote
    lphant reacted to ikanni in Buscar datos y juntarlos en una celda   
    A ver sí este es el último cambio
    <Chekea>
    Libro5 corregido_IK.xlsm
  24. Upvote
    lphant reacted to johnmpl in Anidar o concatenar formula de busqueda   
    Hola @lphant
    Lo que precisas se puede hacer de varias formas.  Entre ellas:
    1. Con ayuda de macros, haciendo una UDF (Función Definida por el Usuario)
    2. Si tienes Excel 2016 (por la captura de pantalla no parece), puede usarse funciones en una misma celda.
    3. Con ayuda de celdas auxiliares y formulación.
    ¿Cuál prefieres? ¡Bendiciones!
  25. Upvote
    lphant reacted to Dr Hyde in Buscar datos y juntarlos en una celda   
    prueba esta macro
    libroejemplo.xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png