Saltar al contenido

Pirtrafilla

Miembros
  • Contador de contenido

    252
  • Unido

  • Última visita

  • Days Won

    1

Sobre Pirtrafilla

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

282 visitas de perfil
  1. Pirtrafilla

    Seleccionar carpeta predeterminada

    Hace tiempo que no entraba, el trabajo veces quita casi todo el tiempo. Voy a mirar de entrar más a menudo. Es muy agradable seguir el foro y desde luego se aprende mucho. Gracias!!!
  2. Pirtrafilla

    Seleccionar carpeta predeterminada

    Muchas gracias @Leopoldo Blancas, perfecto. Lo he adaptado y ya está. Tema solucionado!! Private Sub CommandButton1_Click() Dim Secfolder As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Get folder" .ButtonName = "Aceptar" .InitialFileName = ActiveWorkbook.Path & "\" If .Show = -1 Then RutaB = .SelectedItems(1) LblRutaN.Caption = RutaB Else End If End With End Sub
  3. Pirtrafilla

    Seleccionar carpeta predeterminada

    Hola a todos de nuevo. Tengo un problema y os pido de nuevo ayuda, si es posible. Tengo este código para seleccionar un archivo Excel. Private Sub CommandButton1_Click() RutaB = Application.GetOpenFilename("Archivos Excel (*.xlsm*), *.xlsm*") LblRutaN.Caption = RutaB End Sub Lo que quiero es seleccionar una carpeta, no un fichero. Es decir, que en el cuadro de diálogo me pida SOLO LA CARPETA donde elegir para guardarlo en una variable que utilizaré a posteriori. Como siempre, gracias por adelantado. Moisés.
  4. Entiendo que la clave de la velocidad, además de usar una matriz para guardar los valores "virtualmente", está en esta línea. Cells(2 + vf, c).Offset(t - 1, 2 * (c - 1)).Resize(vlf) = Application.Transpose(Matriz) Otra cosa para aprender. Application.Transpose(Matriz) Muchas gracias! Moisés.
  5. Muchas gracias. Moisés.
  6. @digitalboy, entonces no es difícil, es acostumbrarse a usarlo. Muchas gracias. Moisés.
  7. Prueba esto. En Opciones avanzadas..., desmarca "Consultar al actualizar vínculos automáticamente" A ver si te es de ayuda! Saludos, Moisés.
  8. Otra opción pero con formula R1C1. Con este tipo de fórmulas no estoy acostumbrado y me cuesta entenderla..., pero es un opción más y rápida. Gracias, @digitalboy
  9. Hola @Gerson Pineda, ahora lo he entendido casi todo. He añadido una linea para que termine de poner datos en cuanto la variable fil alcance el objetivo en [x1] For f = 1 To vlf vf = vlf * (t - 1): fil = fil + 1 Cells(f + 1 + vf, c).Offset(t - 1, 2 * (c - 1)) = fil If fil = [x1] Then Exit Sub 'he añadido esta línea Nex Lo que no entiendo es esto: SpecialCells(2) He leído que se refiere a esto, xlCellTypeConstants 2 Celdas que contienen constantes. Pero no se que quiere decir que contienen constantes. ¿es posible aclarármelo? Gracias de antemano. Moisés.
  10. Hola @Gerson Pineda, si que estoy interesado. Ojalá aprenda más y pueda colaborar. Gracias por tus comentarios y por contestarme! Voy a probar el ejemplo que envías. Moisés.
  11. Ahora me acabo de dar cuenta que todas las columnas contenían datos, no me había fijado que las columnas D:E no estaban vacías. Las estaba añadiendo sin poner datos. Moisés.
  12. @Antoni, ¡que bien! Muchas gracias, un placer aprender de ti. Moisés.
  13. Me refería a esto. SpecialCells(xlCellTypeBlanks).Areas
  14. Estimado @Gerson Pineda, a ver si entiendo... Con el primer código buscamos la primera celda en blanco de la columna A, sin llegar al final de la hoja. Por ejemplo una fila en blanco en medio de otras filas con datos. Y el numero de la fila y la columna se la asignamos a una Rango. Podría ser "A36". ¿podría haberse puesto esto también? En esta otra parte.... Re-dimensionamos la variable cel que es un rango a 21 columnas más. El rango sería A36:U36. Y entonces le copiamos los valores de la primera fila del archivo que contenían los títulos, A1:U1 Con el For Each hacemos lo mismo tantas veces encontremos la primera celda en blanco, siempre y cuando la fila en blanco este en medio de otras filas con datos. por ejemplo, la ultima fila con datos, la siguiente fila no la rellena porque ya no hay mas filas con datos más abajo. cel.Resize(, 21) Creo que re-dimensiona después de la coma que son las columnas y mantiene la misma fila de la variable/rango (cel). ¿cierto? Saludos. Moisés.
  15. Gracias. Voy a interpretar el código para aprender!! Moisés.
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.