jferg

=Contar.si(A:Z,MiValor) 'suponiendo que tus datos esten entre las columnas A y Z Tambén puedes reemplazar MiValor por la direccion de la celda donde este el valor =Contar.si(A:Z,AA1)

Utiliza un filtro avanzado. Graba una macro para extraer el código. La idea es usar filtro avanzado para que te saque en otro rango las celdas no vacías de tu columna. Luego en tu(s) columna(s) usar Range("A:B"). Clearcontents y luego copias el ranfo...

En Refernecias cuales vínculos a dll y ocx tiene tu libro. Estas librerías deben estar en los equipos de destino. El error que te aparece es porque en el equipo estas libreiras no aparecen o no están registradas.

Creo que tiene que ver con la configuración regional de tu equipo. Verifica cual es tu separador de listas. Esto siempre da problemas. Tiuenes dos opciones: Usra las Apis GetLocalInfo y SetLocalInfo (hay informacion de sobra en internet) para ajustar...

Ya lo tienes ! Después de guardar el libro, vuelve a abrirlo y protege los objetos que quieras application.screenupdating=false doevents Set milibro =workbooks.open(ruta) Milibro. Worksheets("UnaHoja"). Protect "UnaContraseña" Milibro. Save Milibro....

Dim Fila as Long Private Sub CommandButton1_Click() Fila=Fila+1 TextBox1.Text=Cells(Fila,"A") TextBox2.Text=Cells(Fila,"B") TextBox3.Text=Cells(Fila,"C") TextBox4.Text=Cells(Fila,"D") End Sub

Dim MiArr() as String Redim MiArr(0 to N) For Fila=0 to N MiArr(Fila)="MiCadena Next Fila Si usas Redim Preserve se agregaráuna nueva fila al arreglo y se conservara su contenido

Private Sub CommandButton1_Click() MsgBox "Suma= " & WorksheetFunction.Sum(Range("A1:A10")), vbInformation, "Suma" End Sub

With Range("A1") .Formula="=Now()" . Copy . PasteSpecial xlValues End With

=Contar.Si("A:A","Enero") Cuenta cuantas veces aparece enero en la columna A

Ya lo tienes solo debes incrementar i antes del next i=i+2 next i

Private Sub CommandButton1_Click() Me. Hide Hoja1. PrintPreview Me.Show End Sub

Abre el editor de visual basic Inserta un modulo En el modulo crea la función: Public Function ExtraerComentario(rango As Range) As String ExtraerComentario = rango.Comment.Text End Function LLama la función desde tu hoja como te muestra el siguiente...

En tu fórmula escribe algo así. Te pongo el ejemplo com la fórmula suma por que no se que función estés usando pero todo es cuestión de que lo adaptes: =Si(EsError(Suma(A1:A10)),0,Suma(A1:A10))

Supongo que cuando abres el libro con las fórmulas excel te pregunta si quieres actualizar los vínculos que tiene con otros libro. Selecciona no actualizar. Si esto no funciona puedes probar ajustando la opción de calcular a manual (Herramientas...