calvuch

Esto te presenta en pantalla el ancho y alto de una celda Sub tamaño_celda() MsgBox Selection.ColumnWidth MsgBox Selection.RowHeight End Sub Puedes adaptarlo a tu proyecto

Eso se puede hacer directo con el mouse... Pero si te gustan las macros, esta te puede servir Sub seriar() Range("a1").Select Selection.AutoFill Destination:=Range("a1:a30"), Type:=xlFillSeries Range("a1").Select End Sub Llena el rango a1:a30...

¿Y la "formula"?

Esto suma 1 al valor de la celda A1 Private Sub CommandButton1_Click() [a1].Value = [a1].Value + 1 End Sub

Si lo insertas directo a la hoja, lo puedes manipular desde la hoja o desde un modulo En este ultimo caso Sub combo() Hoja2.ComboBox1.AddItem "hola" End Sub En este sub insertado en un modulo le agregas un item al combo1 que "reside" en la hoja 2

Prueba esto: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Target.Row >= 10 And Target.Row <= 100 Then Sheets("hoja2").Select If CDate(Target.Value) > CDate(Hoja2.Range("B5").Value) Then Tu macro End If...

Prueba Sub copiarpegar_AlHacerClic() Application.ScreenUpdating = False ActiveCell.Copy Sheets("HOJA1").Select [a65536].Formula = "=COUNTIF(R[-65535]C:R[-1]C,""_"")" If [a65536].Value = 0 Then MsgBox "NO hay celdas con el criterio ( _ )",...

Ok Mira para eso hay que hacer una pequeña modificación en fila 1 están los meses ( supongo que desde la columna C hacia la derecha) Entonces Meses (rótulos) desde C1 hacia la derecha fila 2 números del 1 al 12, es decir meses en números enero...

"¿Lista desplegable simple"? Es un control insertable o utilizas la opion "Validación de datos " "Cuando selecciono uno de sus campos", ¿te refieres a los item de lista? ¿O campo le denominas a una columna dentro de la lista?. ¿La macro que tienes se...

En el evento BeforeDoubleClick de la hoja pones esto Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cd As String cd = Replace(Target.Address, "$", "") cd = Replace(cd, "1", "") cd = Replace(cd, "2", "") cd =...