Saltar al contenido

JasallBcn

Exceler C
  • Contador de contenido

    276
  • Unido

  • Última visita

  • Días con premio

    23
  • País

    España

Respuestas de la comunidad

  1. JasallBcn's post in Validar registro duplicado formulario was marked as the answer   
    Buenas, te paso una forma, saludos
     
    Base_ de_Datos_1.xlsm
  2. JasallBcn's post in copiando otro dato desde un archivo cerrado, pero ajustando macro ya creada was marked as the answer   
    Buenas, por lo que veo sería:
    en la función: 
    Function GetDepthFromCSV(csvData As Variant, holeID As String) As Variant cambia la línea done crea el array lineData , el delimitador de esta mal:
    lineData = Split(csvData(i), ";") ' cambia "," por ";" y la captura del campo, cambia el número de columnas
    GetDepthFromCSV = lineData(3) ' Asume que la columna 1 es PROF_REC ' cambio por 3 de esta manera parece que funciona como lo quieres.
    saludos
    survey_test2_v1.xlsm
  3. JasallBcn's post in Ayuda! Buscador dinámico funciona a veces was marked as the answer   
    Buenas, te paso otra solución con código, 
    lo que hace es recorrer la tabla y guarda en una lista los resultados para luego filtrarlos.
    Saludos
     
    Ayuda buscador hoja4_ver2.xlsm
  4. JasallBcn's post in Insertar datos en una fila al final de una tabla con datos con una macro was marked as the answer   
    Buenas, te paso el archivo modificado, también te arreglé la rutina modificación
     
    saludos
     
    Base de datos de alumnos2.xlsm
  5. JasallBcn's post in Búsqueda de un patrón en una tabla, siendo el detonante la columna B was marked as the answer   
    Buenas, prueba
     
    saludos
    Archivo consulta_023516_V2.xlsm
  6. JasallBcn's post in de un rango de columnas ocultar todas y dejar una visible was marked as the answer   
    Buenas, prueba 
     
    saludos
    Ocultar columnas de un rango y dejar uno.xlsm
  7. JasallBcn's post in TPV me da error was marked as the answer   
    Buenas,  para pasar los datos a las cajas de texto
    Private Sub Botón_Click() ID = Mid(Botón.Name, 2, Len(Botón.Name)) With TpvListado .xId = Hoja1.Range(ID) .xDescripción = Hoja1.Range(ID).Offset(0, 1) .xReferencia = Hoja1.Range(ID).Offset(0, 2) .xPrecio = Hoja1.Range(ID).Offset(0, 6) .xCantidad = 1 End With End Sub lo otro , no lo entiendo
     
    saludos
     
  8. JasallBcn's post in Generador de Códigos was marked as the answer   
    Buenas, prueba
    saludos
    PRUEBA_v1.xlsm
  9. JasallBcn's post in Macro para copiar datos y macros was marked as the answer   
    Buenas, te paso una forma.
    Para poder aprovechar los macros los modifiqué  capturando el nombre del shape que hace la llamada a la rutina mediante "Application.Caller" , que previamente al copiar Shapes = botones le di como nombre la altura de la hoja donde está y así poder aplicar los cambios a los rangos de la tabla que está a su altura.
    Saludos.
     
    Materiales2024_v3.xlsm
×
×
  • Crear nuevo...

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.