Dante Amor

Revisa el código aquí: Desproteger hoja de Excel porque olvide la contraseña

Cambia estas líneas: uFila = .Range("A" & Rows.Count).End(xlUp).Row ' determina la ultima fila con datos Call insertacolumna 'llama a una insercion de columna B 'temporal.Range("B2:B" & uFila).Formula=...

Prueba así: Private Sub SpinButton1_Change() 'hoja actual Dim n%, valor As String ' <= variable agregada ' Dim i As Long Application.ScreenUpdating = False With Sheets("actual") .Range("A1").Value = Sheets("Hoja2").Range("H1").Value If .[A1] = "0000"...

Prueba lo siguiente: Pon todo el código dentro de tu userform Option Explicit ' Dim nombres As New Collection Dim sh As Worksheet ' Private Sub CommandButton1_Click() Dim f As Range Dim lr As Long, i As Long 'VALIDACIONES If NewCargo = "" Then MsgBox...

Debes explicar con ejemplos qué necesitas. Debes poner un ejemplo para cada caso de la función. Es decir, qué datos le pasas a la función y qué esperas de resultado. En un vistazo rápido, al final del último Case, te falta la instrucción End Select

Así: Sub macro1() Sheets("Hoja1").Range("A1").Value = Sheets("Hoja2").Range("H1").Value End Sub

Desafortunadamente en tu imagen no se ven los datos. Podrías explicar con datos genéricos, qué tienes y qué esperas de resultado.

Revisa el rango de celdas, en la primer condición tienes: BO57:BO58,">35%" En la segunda condición tienes otras celdas: AQ58:AQ59,">5" Prueba con esto: With Workbooks("Libro1.xlsx").Sheets("Hoja1").Range("BP25") .Formula =...

Puedes dar el detalle. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada sobre cómo están en el libro de trabajo y absolutamente nada sobre cómo...

El código funciona. Solamente considera que en el evento change del textbox, por cada caracter que vas ingresando se va a ejecutar el código. Podrías validar si el archivo existe, solamente si el archivo existe, cargará la imagen. Private Sub...