Jump to content

Antoni

Members
  • Content Count

    10,947
  • Joined

  • Last visited

  • Days Won

    711

Antoni last won the day on June 17

Antoni had the most liked content!

About Antoni

  • Rank
    Antoni
  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1)

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

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

  1. Prueba así: ActiveSheet.ListObjects("Tabla3").Resize Range("A1:R" & Range("A" & Rows.Count).End(xlUp).Row) Así te valdría para cualquier tabla de cualquier hoja que empezara en A1: Range("A1").ListObject.Resize Range("A1:R" & Range("A" & Rows.Count).End(xlUp).Row)
  2. A ver así: ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[" & last_row & "]C)"
  3. Private Sub ListView1_Click() ActiveCell = ListView1.SelectedItem.SubItems(1) End Sub Tienes un San Google de mala calidad, en el mío, con poner Listview click vba, solución en la primera entrada.
  4. Sheets("Sheet1").Range("$A$4:$Z$5000 ").Sort key1:=Range("Z4"), order1:=xlAscending, header:=xlyes
  5. Revisa el adjunto. Entradas y salidas de material_5 (1).xlsm
  6. Prueba con esta macro. Sub Alinear() For Each check In ActiveSheet.Shapes If check.Name Like "Check*" Then check.Height = 15 check.Width = 15 check.Left = check.TopLeftCell.Left + 6 check.Top = check.TopLeftCell.Top + 3 End If Next End Sub
  7. El código VBA está en la hoja, Alt+F11 y doble click en la hoja.
  8. Teclea un código en F1, por ejemplo 16. Si no es eso, pon un ejemplo del resultado a obtener. PRUEBA.xlsm
  9. Abre el adjunto y pulsa el botón RESULTADOS. Infomacion M1.xlsm
  10. Prueba así, si lo que pretendes es que no se pueda continuar si no se rellena la celda, habrá que recurrir a un userform. Private Sub Worksheet_Change(ByVal Target As Range) Set celda = Range("B1") If Not Intersect(Target, celda) Is Nothing Then If Not IsEmpty(celda) And Len(celda) <> 12 Then MsgBox ("Revisar Código. 12 caracteres obligatorios"), vbInformation celda.Select End If End If End Sub
  11. Ni idea José BN, lo he sacado todo consultando por Internet. Nunca he tenido que usarlo en la vida real. Saludos🙂
  12. En el ejemplo, la línea de tendencia es una sucesión de puntos de color azul. Si lo que pretendes es que los puntos a partir de que superen un determinado valor cambien de color, no creo que sea posible. Lo que si se puede intentar, es cambiar el color de la totalidad de la línea de tendencia si se supera un valor, también se puede intentar cambiar el color del trazo de las líneas del grafico en la que se supera un valor concreto. Ya comentarás
×
×
  • Create New...

Important Information

Privacy Policy