Saltar al contenido

Antoni

Miembros
  • Contador de contenido

    8536
  • Unido

  • Última visita

  • Days Won

    367

Sobre Antoni

  • Rango
    Antoni

Información de perfil

  • Sexo Hombre
  • Localización: Galicia (UTC+1) Excel 2016

Configuraciones

  • Campo que utilizas como separador de argumentos ;
  1. Suma rangos variables

    Resuelto aquí: Sumar rangos variables Sub Sumar() Application.ScreenUpdating = False Columns("C").ClearContents [C1] = "Suma" For x = 2 To Range("A" & Rows.Count).End(xlUp).Row suma = suma + Range("A" & x) If Not (Trim(Range("B" & x))) = "" Then Range("C" & x) = suma suma = 0 End If Next End Sub
  2. problema con combobox

    Si no subes tu archivo y la macro/formulario, nadie te va a contestar. Cumple con las reglas del foro que has aprobado al hacerte miembro del foro. Intuyo cual es el problema, pero no voy a entrar en el juego respuesta/repregunta.
  3. Este tema debería ser cerrado, ya se ha contestado, el título de la consulta era: Como exportar una hoja de un libro a un libro nuevo
  4. Otra vía: Sub CrearLibroNuevoConHojaActiva() Application.DisplayAlerts = False ActiveSheet.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Mi libro.xls", FileFormat:=51 ActiveWorkbook.Close End Sub
  5. Aprovechándome de parte del trabajo de Riddle: Sub separar() Dim separador As Variant Dim strArray() As String '.. separador = Array(",", ";", "-") texto = "hola,hola1;hola2;hola3-hola4 " Range("A1").Select '-- Bucle: For t = 1 To Len(texto) For i = LBound(separador) To UBound(separador) If Mid(texto, t, 1) = separador(i) Then ActiveCell = Left(texto, t) texto = Mid(texto, t + 1) ActiveCell.Offset(1, 0).Select GoTo Bucle End If Next Next ActiveCell = texto End Sub Saludos a todos En cuanto a tu otro requerimiento, sube un archivo y señala que celdas son y donde quieres el resultado. .
  6. Consejo Office 2016 o 365

    365 se refiere al tiempo de duración de la licencia, 365 días, o sea, cada año vas a tener que renovar la licencia de tu Office, (49,90 € en El Corte Inglés), pero se trata del mismo software, es decir, Office 2016 solo hay uno dentro de cada categoría, Standard, Hogar y estudiantes, Profesional, Profesional Plus,.... Otra cosa distinta es que pases de 32 a 64 bits, en este caso, algunas macros pueden dejar de funcionar si contienen APIS, pero son muy sencillas de arreglar. Revisa este link. Microsoft Office .
  7. He descargado el archivo que subí y me funciona correctamente. Uso Excel 2016 para Windows. ¿Alguien podría probar el último archivo que subí?
  8. 'Ciclo para colocar cada palabra en un renglón diferente For i = 0 To n celda.Offset(i, 1) = palabras(i) & Separador '<------------ Next i
  9. Como veo que estás en buenas manos, doy por cerrada mi participación en esta consulta. Suerte y saludos a ambos.
  10. OK, intentaré echarle un vistazo este fin de semana.
  11. Tus archivos no se dejan descargar, dan error. Súbelos a un servidor de intercambio tipo Dropbox, Google drive, Sky line,.......
  12. Los temas los cierran la administración del foro.
  13. El procedimiento de eliminación que tienes solo es válido cuando seleccionas la totalidad de las filas, ya que esto permite establecer una relación directa entre el número de fila y el índice del listbox. Sin embargo cuando efectúas un filtro, este método no sirve, ya que esa relación se rompe. Para subsanar eso, es necesario guardar el número de fila con cada fila filtrada en una columna adicional del listbox.. Revisa el adjunto y fíjate en las modificaciones efectuadas Copia de principal_mayor 04092016 (1).xlsm
  14. listbox

    Varias cosas, el URGENTE no existe en el foro, para resolver un tema necesitamos saber cual es y para terminar, sin archivo con un ejemplo de lo que quieres, no va a haber respuesta.
  15. A ver si así entiendes mejor lo que he hecho: La hoja 1_Escandallo contiene todo el código VBA que yo he desarrollado, también hay 3 controles, un label, un textbox y un listbox. Estos controles están definidos con la propiedad Visible=False. Para verlos debes seleccionar la ficha Desarrollador o Programador y pulsar el botón Modo diseño. Si copias la hoja sobre otra, no basta con copiar los datos y el código VBA, también debes copiar los controles con su respectivo nombre, de lo contrario, no funcionará. Para ver el funcionamiento, selecciona la hoja 1_Escandallo, selecciona la celda B6 y escoge un GRUPO, por ejemplo ALIMENTACIÓN, aparecerán los controles y podrás buscar por aproximación o directamente en la lista, haz click en el ingrediente elegido, los controles desaparecerán y se actualizarán los datos tal como si los hubieras introducido manualmente. Ahora te colocas en B7 y escoges el GRUPO COMPUESTOS, en la lista aparecerán los nombres de los compuestos definidos en la hoja 0_GRUPOS, selecciona SOFRITO y aparecerán todos los ingredientes de ese compuesto. Las instrucciones Application.EnableEvents=False/True, desactivan y activan los eventos de hoja/libro. Normalmente, los eventos se desactivan para que al modificar el valor de una celda no se active el evento Worksheet_Change y una vez modifiacado, se vuelven a activar. Los compuestos los he he entendido como un conjunto de ingredientes, solo es necesarios crearlos una vez en la hoja 1_Compuestos y ya pueden usarse en cualquier escandallo. Una vez creado un escandallo, añadir una hoja nueva con el nombre del escandallo y copiar los datos de una hoja a otra. A continuación, ejecutar la macro BorrarEscandallo() para limpiar la hoja 1_Escandallo para proceder a introducir el siguiente. Escandallos II
×