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