Respuesta
en
Microsoft Excel
a
Colocar serie de números en columnas diferentes
Aquí tienes la macro: Sub aleatorios() Range("a1").Select For v = 1 To 10 inicio = ActiveCell.Address For x = 1 To 100 ActiveCell.Value = Application.WorksheetFunction.RandBetween(1, 900) ActiveCell.Offset(1, 0).Select Next Range(inicio).Select...
Respuesta
en
Microsoft Excel
a
Exportar hoja de calculo sin botones y con macro incrustada... Pregunta para experto Luis Mondelo
Lo primero que necesitas es utilizar botones activex y no botones de formulario, ya que con botones activex podemos tener una macro dentro del objeto hoja y no en un módulo Esta sería ma macro que copiaría la hoja eliminando un botón y dejando el...
Respuesta
en
Microsoft Excel
a
Ubicar un gráfico en la ubicación de una celda EXCEL VBA - Pregunta para Luis Mondelo
Te mando esta macro que crea un gráfico y lo ajusta a un rango determinado, concretamente en este ejemplo en el rango C5:F20 Sub ajustagrafico() ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered Set zona = Range("C5:f20")...
Respuesta
en
Microsoft Excel
a
¿Cómo saber cuantos elementos están contenidos dentro de un autofiltro en una columna?
Está sería la solución: posiciónate encima del primer dato de la columna y ejecuta esta macro. Si la columna tuviera encabezado posiciónate en el primer dato despreciando el encabezado. Sub unicos() Do While ActiveCell.Value <> "" If InStr(valor,...
Respuesta
en
Microsoft Excel
a
Macro pasar a PDF desde Exel 2003
Aquí tienes la solución. En mi ejemplo el nombre del archivo está guardado en la celda A1. La dirección donde lo guarda está escrita en la macro así: "C:\Users\Luis\Documents\", en tu caso tendrás que cambiar el interior de las comillas. Sub...
Respuesta
en
Microsoft Excel
a
¿Cómo hacer para que el criterio de la formula contar.si. Conjunto, sea >=a una celda?
Pon la fórmula así: (me he inventado las celdas F1 y F2 =CONTAR.SI.CONJUNTO($A$3:$D$7;">="&F1;$A$3:$D$7;"<"&F2") Recuerda finalizar y puntuar
Respuesta
en
Microsoft Excel
a
Macro para contar y sumar valores
Te adjunto la macro que hace lo que solicitas: Sub ejemplo() Range("cp65000").End(xlUp).Offset(1, 0).Value = "final" Range("cp1").Select Do While ActiveCell.Value <> "final" If ActiveCell.Value = "" Then contar1 = contar1 + 1 End If...
Respuesta
en
Microsoft Excel
a
Macro para copiar de una hoja a otra de Excel las filas cuyo campo fecha le queden menos de 10 días
Esta sería la macro que necesitas para tu problema. Para que lo veas mejor, en este link te dejo el archivo: http://es.tbox.ws/28sdR8 Sub copiadofilas() Sheets("findings").Select Range("a2").Select fila =...
Respuesta
en
Microsoft Excel
a
Insertar fila después del ultimo dato
Aquí tienes la macro: Sub ultima() Range("a65000").End(xlUp).EntireRow.Insert End Sub recuerda finalizar y puntuar
Respuesta
en
Microsoft Excel
a
Formula que extraiga Números de una cadena alfanumérica
Esta es la solución. Ponte en la celda B1 y ejecuta esta macro: Sub solonumeros() tope = Len(ActiveCell.Offset(0, -1)) For x = 1 To tope extrae = Mid(ActiveCell.Offset(0, -1), x, 1) If IsNumeric(extrae) Then valor = valor & extrae End If Next...