Carlos Arrocha

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

[Hola. La modifiqué un poco, la pruebas y comentas Sub DESBLOQUEARREGISTRODEFACTURAYPONERFILTRO() Application.ScreenUpdating = False Sheets("Registro factura").Unprotect Password:="XXXXXXXX" Range("A4").Select Application.Goto Reference:="R4C1:R4C15"...

[Hola Aleida Salu2 Carlos Arrocha

[Hola. Te dejo en código para el evento change del TextBox Private Sub TextBox1_Change() On Error Resume Next TextBox1.Text = Format(Val(TextBox1.Text), "#,###0.000") End Sub 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...

[Hola Erika. A ver si te sirve este código que te preparé. Private Sub CommandButton1_Click() Dim Last As Object Dim n1, n2 As Double n1 = "25" n2 = "12" Set Last = Hoja1.Range("a65536").End(xlUp) If Me.TextBox1.Value = n1 Or Me.TextBox1.Value = n2...

[Hola Paula. Mi propuesta es: y si pones en la Hoja "Mes" en cada celda de los días un botón y dentro del botón, en el evento click le pones lo siguiente: sheets(1). Select, sheets(2).select y así con todos los botones. ¿Cómo lo ves?

[Hola. Aquí tienes un ejemplo de como llenar unas cajas de texto desde un listbox Private Sub ListBox1_Click() Cargar = ListBox1.ListIndex ComboCodigo = ListBox1.List(Cargar, 0) TxtArticulo = ListBox1.List(Cargar, 1) TxtDescripcion =...