Juan Carlos González Chavarría

a), lo primero que tienes que hacer es revisar que no tengas un virus. Si no lo tienes, debes buscar tu disco de Office, pero no escojas Reinstalar, presiona en Reparar para que busque los errores posibles. [email protected]

Esto lo tienes que hacer en el evento de la hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1").Value = 1 Then UserForm1.Show End Sub [email protected]

a), en VBA se tienen que poner las fórmulas en inglés, por lo que tu fórmula debería quedar así: ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1]C[-6]:R[6]C[-6],R[-1]C[-1])" [email protected]

Prueba este código: Sub ProcesaLote() Dim FS As FileSearch Dim FilePath As String, FileSpec As String Dim i As Integer FilePath = ThisWorkbook.Path & "\" Set FS = Application.FileSearch With FS .LookIn = FilePath .FileName = FileSpec .Execute ' Salir...

A mí también me sale la barrita. No sé si ya le preguntaste si está usando una portátil y tal vez no sepa como utilizar las teclas Fn para activar el teclado numérico. Si es una PC normal debería saber el idioma que está utilizando, revisar que todas...

Contestada.

a), envíalo. [email protected]

Eso lo resuelves fácilmente con un Filtro Avanzado (Datos - Filtro - Filtro Avanzado). Tienes que dejar por lo menos unas 5 filas entre los títulos de la base y copiar esos mismos títulos en la primera fila, por ejemplo, si tienes los títulos de A1...

Para que puedas asociarlo a tu UserForm, tienes que primero insertar un ListBox en el UserForm. Una vez insertado, te recomiendo que nombres la base de datos con un Nombre de Rango (seleccionas el rango, por ejemplo A2:H2000, presionas Ctrol-F3 y le...

Aquí está con las modificaciones. Sub MultiReemplazo() Dim ColOne() As String, ColTwo() As String Dim rngRange1 As Range, rngRange2 As Range Dim intResponse As Integer Dim intLookAt As Integer Dim iCols As Long Dim iRows As Long Dim i As Long On...