jferg

jferg

Aficionado a Excel y VBA
 11,6K puntos  Colombia @jferg desde - visto

Respuestas en Microsoft Excel

Respuesta en a

Fórmula para contar datos en excel

=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)
Respuesta en a

Borrar filas Post Autofiltro

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...
Respuesta en a

Editor de vb en excel

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.
Respuesta en a

Crear macro que guarde el formato en otro CSV

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...
Respuesta en a

Proteger archivo después de guardado

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....
Respuesta en a

Recorres celdas

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
Respuesta en a

Crear un Array en Excel

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
Respuesta en a

Sumar datos

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

Guardar fecha en excel

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

¿Excel cómo contar celdas del mismo mes?

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

Suscríbete RSS