Jump to content

exceloy

Members
  • Content Count

    78
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by exceloy

  1. Saludos Creo que el archivo que le adjunto completa la funcionalidad que le faltaba. BDconFormulario.zip
  2. Saludos otra vez Creo que combinando estas tres fórmulas también podrás extraer la provincia de entre los paréntesis y si quieres puedes eliminar la nación con el sustituir de antes Te mando libro adjunto. Te faltaría aislar la dirección, pero combinando estas fórmulas creo que en un rato podrás conseguirlo. Libro1_Bis_ExtraeProvincia.zip
  3. Saludos Con la macro que va en el libro adjunto podrás poner tus datos en tres columnas. Para ello MUY IMPORTANTE 1-Elimina todas las filas vacías de la columna A (Ir a.... Especial....Celdas vacías y luego Eliminar toda la fila) Esto te deja un archivo limpio, con tus datos en la columna A, uno detrás de otro, cada tres cambia el registro) 2-Ejecuta la macro MatTrans y te dejará los datos en columnas. La columna del directorio parece que no te sirve, la puedes eliminar. 3-Intercalando una columna y con la fórmula sustituir podrás eliminar las subcadenas CLíNICA y DIRECCION =SUSTITUIR(H10;"CLíNICA";"")... 4-Te queda un trabajo más laborioso de extraer el código y la provincia. 5-El código lo puedes extraer combinando primero ENCONTRAR("CP",..) con MED, y 8 caracteres de extracción. En la hoja 2 te he puesto un ejemplo que puedes copiar. 6-La provincia ya es más complicado. Como los compañeros de antes. Lo miro y te digo algo. Libro1_Bis.zip
  4. Saludos Respecto al punto 1, corresponde al código que se activa al pulsar el botón CommandButton1 Carga la variable cod de una caja de texto Si Cod no es un número o si es cero, sale del bloque de código Si Cod es un número ejecuta el resto Carga la variable fil con un valor que busca en Sheets("BASE DE DATOS"), columna E, donde coincida con Cod, valor exacto Si fil resulta ser "" (vacío) sale del bloque de código Si fil tiene algún valor no vacío ejecuta el resto Rellena los objetos del UserForm3 Fecha (No sabemos que tipo de objeto es) con el valor que encuentre en la columna B, fila fil de la hoja BASE DE DATOS TextBox14 con la columna E fila fil TextBox15 con la columna F fila fil Ocilta UserForm1 Muestra UserForm3 Descarga Userform1 Falta sentencia de fin de código End Sub Punto 2 Sobra el End If El evento change del textbox puede acarrear confusiones. La sintaxis de la suma está algo deficiente. Le pongo aquí mi versión de ese código, pero no entiendo que el evento que lo active sea el propio chage del textbox que vamos a cambiar. Sería más lógico que quisiéramos mostrar en textbox37 la suma de los otros cuatro cuando se active otro evento, como un posible botón. Tendría que ver el conjunto para diagnosticar acertadamente. Private Sub TextBox37_Change() TextBox37.Text = Val(TextBox33.Text) + Val(TextBox34.Text) + Val(TextBox35.Text) + Val(TextBox36.Text) 'End If Sobra End Sub Exceloy
  5. Re: filtro y suma Saludos Te adjunto un archivo con las fórmulas que necesitas ya implementadas sobre unos rangos dinámicos, que te quitarán preocupaciones si la lista de registros crece. Exceloy Copia de INV. RECEPCION DE MUESTRAS.xls.zip
×
×
  • Create New...

Important Information

Privacy Policy