Carlos Arrocha

[Hola Ramon. Esta macro te hace un recorrido en la columna A de la hoja 1 y si encuentra el texto ingresado en el imputbox, lo registra a su derecha en la columna B Sub BuscayCambia() 'By Carlos Arrocha Dim celda As Range Dim P As String...

[Hola Vicente. Prueba con esta Dim f, c Sub CopiarRango() ActiveCell.CurrentRegion.Select f = ActiveCell.Row c = ActiveCell.Column Selection. Copy Sheets("Hoja2"). Activate Cells(f, c). Activate ActiveSheet. Paste End Sub Pero tienes que seleccionar...

[Hola Carol. Aquí te dejo un ejemplo. 'INSERTA EN LA HOJA1, UNA FORMA CUADRADA DE COLOR ROJO 'Ajusta a tu gusto las medidas y el color Sub FormaCuadrada() Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 144, 144,...

[Hola. Estos vídeos rellenan una factura, pero si haces las modificaciones te puede servir para lo que tu quieres. https://youtu.be/n2vlvfyRZxU https://youtu.be/EwDj4mdc51w Salu2 Carlos Arrocha

[Hola. Prueba este código y me comentas. Tienes que ponerlo dentro de Thisworkbook. Si quieres ponerle contraseña lo haces dentro de las comillas Private Sub Workbook_Open() With Worksheets("Hoja1") .EnableOutlining = True .Protect Password:="", _...

[Hola. Dame tu correo y te envío un archivo

[Hola Aleida Salu2 Carlos Arrocha

[Hola. Si añades un TextBox para buscar, te hará un filtrado en el ListBox. Solo tienes que pegar el código en el evento change del TextBox. En el ejemplo estoy suponiendo que la tabla esta en la hoja3, si no es la cambias, y hace el filtrado...

[Hola. Prueba a ver si te vale esta macro. Sub Ejemplo1() For Each c In Worksheets("mes").Range("A1:A500") If c.Value = 0# Then c.EntireRow.Delete End If Next c End Sub Salu2 Carlos Arrocha

[Hola Ignacio. Aquí te dejo una muestra, como no das mucha información, debes modificar el rango del código a tu criterio. COPIA DE LA HOJA "Mes" Y LA PEGA EN LA "Anual" Sub CopiarHojas() Sheets("Mes").Range("A1:C10").Copy...