Jump to content

renato13

Members
  • Posts

    126
  • Joined

  • Last visited

Everything posted by renato13

  1. Buenas noches Mauricio me funcionó de maravilla las dos opciones, ahora si puedo cancelar el proceso de envio del correo. Muchas gracias doy por terminado la ayuda de este proyecto Gracias Mauricio
  2. Buenas noches Mauricio gracias por tu tiempo traté pero no consigo hacer que al dar click en el botón cancelar se suspenda la macro y vuelva al libro donde estoy trabajando; lo que pasa que a veces le falta algun dato a la hoja pero ya activaste la macro y se habre el inputbox ahí es donde quiero parar la macro poniendo "Cancelar" pero esta opción no funciona y al dar cancelar sugue la macro. No se como arreglar ese pequeño gran detalle. Gracias por tu tiempo
  3. Buenas noches amigos de AyudaExcel me conseguí código de la Web para enviar la hoja activa de excel pero hay un problema o error al abrirse el inputbox para tipear el nombre de la hoja y querer cancelar la acción con el botón "Cancelar" el envío la macro no se sale y continúa quisiera que al dar cancelar se salga de la macro; en este código no se diferencia la acción de de cada uno de los botones ya que da lo mismo aceptar o cancelar. Gracias por su ayuda Option Explicit ' Sub EviarHojaEmail() ' Dim NombreArchivo As String Dim RutaTemporal As String Dim Mensaje As String ' On Error Resume Next ' Mensaje = "Estás a punto de enviar la hoja activa por email. Ingresa el nombre con que se enviará el archivo o deja en blanco para que el archivo tenga el nombre de la hoja." NombreArchivo = InputBox(Mensaje, "Enviar Mail") ' If NombreArchivo = "" Then NombreArchivo = ActiveSheet.Name ' RutaTemporal = Environ("temp") & "\" NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx" ActiveWorkbook.ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs NombreArchivo Application.DisplayAlerts = True CommandBars.ExecuteMso ("FileSendAsAttachment") ActiveWorkbook.Close False Kill NombreArchivo ' On Error GoTo 0 ' End Sub
  4. Hola Antoni buenas noches justo como quería muchisimas gracias, ahora solo debo acoplarle a mi proyecto completo que tiene un filtro avanzado y estará listo espero no tener problemas. Reitero mis agradecimientos y doy por terminado este proyecto Muchas gracias
  5. Buenas noches Antoni gracias por tu tiempo, el código funciona como necesitaba pero quiero llevarlo a mi proyecto y no logro acoplarlo para que funcione como en el ejemplo individual, me salta unos herrores ya que hay más código con otras funciones que alguna vez me ayudaste pero quiero aumentar unos dos campos más y que se graben en BBDD ingresandolo desde el formulario, te explico por medio de mi formulario quiero ampliar la funcion del combobox "cboProducto" quiero que al escoger un código aparezca en el "txtProducto" el nombre eso ya hace, pero en el nuevo "txt"Presentacion" aparezca la presentacion del producto que lo extraigo del la hoja fuente donde en la columna A esta "Código", en la columna B "Producto" y en la columna C "Presentacion" esto deberá grabarce en BBDD segun el encabezado. Seria como el ejemplo digitar el codigo aparece el pais en un textbox y en otro la capital; acá quiero digitar el código y que aparezca en un textbox el producto y en el otro textbox la presentacion. Y por último escoger de cboAlmacenamiento y cargar en BBDD en la columna que corresponda. Muchas gracias por tu valioso tiempo espero no sea mucha molestia Adjunto el archivo Enlazar datos de dosTexbox a combobox.zip
  6. Buenas noches amigos de AyudaExcel a ver si me dan una ayuda por favor tengo un comboBox países y dos textbox quiero que al digitar el código del país cargue en el primer textbox el país y en el segundo textbox la capital automaticamente extrayendo los datos de la hoja2. Muchas gracias por su valioso tiempo Adjunto el archivo para que tenga la idea Comboboxligado a dos textbox.xlsm
  7. Hola Alfonso lo probé y no me hice enterder el combobox código se hizo un buscador función que ya hacia el botón que tiene una lupa que busca el lote ya introducido y se visualiza en el formulario. Disculpame por tomar tu tiempo pero algo he aprendido, creo debo comenzar desde cero porque esto de reacomodar el código y aumentar funciones creo se hace más difícil para hacerme enterder lo que necesito. Gracias Alfonso
  8. Hola lo voy a probar, el proyecto lo he ido desarrollando poco a poco gracias a la ayuda de ustedes el formulario lo he creado segun mi necesidad les he molestado con código para aumentar otras cositas másy hacerlo funcionar, gracias Alfonso voy a probar y te cuento.
  9. Hola Alfonso voy a tratar de explicarme mejor; yo ingreso datos desde este formulario al tipear datos en los textbox y elegir de los combobox y grabar daba bien. Pero me hace falta aumentar dos datos más "Presentación" y "Amacenamiento" (que los tomo de la hoja "Fuente"),por otro lado; desde el comboBox "Código" eligo un código y se carga en el textbox "Producto" eso ya funciona pero quiero aumentar que se cargue tambien "Presentación" por ejemplo si en "código" elijo 00892 en "Producto" debe aparecer "Producto2" y en "Presentacion" deberá aparecer "Liquido1" y esto automaticamente y asi con otros codigos para al dar en el boton "Grabar" debera cargarce en la hoja BBDD, asi: el valor de Código en la columna C el valor de Producto en al columna D y el valor de Presentación en la columna K y por otro lo que elija del combobox "Almacenamiento" debería cargarse en la columna "L" Ojalá me haya hecho entender un poco más. En conclusión quiero cargar esos dos datos mas desde mi formulario al la BBDD y que esto funcione con todos los botones que hay en la interfaz, no se si estoy pidiendo mucho. Gracias por tu tiempo Afonson Enlazar datos de Texbox a combobox1.zip
  10. Buenas noches Alfonso no me funciona guarda los datos en otra columna y al digitar el código solo muestra el producto pero la presentacion que es el objetivo y lo que elijo en almacenamiento tambien deberia grabarse en la BBDD disculpa si no me hago entender lo que necesito.
  11. Buenas noches amigo de AyudaExcel estoy que me rompo la cabez de tanto código la verdad me perdí en mi proyecto que vengo realizando. Tengo un formulario que ingreso datos desde combobox, textbox a una hoja que me sirbe como base de datos BBDD lo que pasa esque al final me doy cuenta que necesito insertar dos columnas más una columna que cargue datos de un combobox "almacenamiento", y la otra que se me hiso difícil que al elegir el código del producto aparezca en un textbox el "producto" y en el otro textbox la "presentación" el un textbox ya esta enlazado pero el otro no, estos valores no se cargan en columnas continuas sino por ejemplo "codigo y producto" estan cargadas en las columnas C y D pero "Presentación" se deberá cargar en la columna K, y el valor del combobox de "almacenamiento" se cargará en la columna L. Los datos de los combobox se cargan de la hoja fuente. Espero que fui claro con mi pedido de ayuda, desde ya le agradezco amigos de AyudaExcel Adjunto mi archovo Enlazar datos de Texbox a combobox.zip
  12. Muchas gracias por la ayuda voy a tratar de hacer funcionar con mis necesidades el programa.
  13. Buenas noches amigos necesito una ayudita para los que les gusta comparatir su conociemtiento en VBA, estoy tratando de desarollar un formulario que carga o enliste en una hoja de excel archivos pdf con sus caractieristicas generales y a su vez luego poder visualizar en un Web Browser. Este formulario cuenta con un textbox donde se visualiza la ruta del archivo a cargarce en la lista de la hoja1, el boton examinar buscará el archivo a enlistar, una vez que tengo mis archivo estos se visualizar en un combobox y al escoger puedo visualizar, no se si el boton Cargar PDF esta demás para visualizar porque simplemente se elegiria del combobox. Me intereza también poder extraer estos datos: Nombre, Ruta, Extención, Tamaño, y mecha de modificación. Por favor si alguien me puede ayudar con busqueda en la web e logrado hacer que mas o menos funcione pero faltan unos detalles. Gracias adjunto el archivo Enlistar archivos PDF.xlsm
  14. Buenas tardes amigos de "AyudaExcel" me podrian ayudar introduciendo un código para que aparezca un MsgBox que diga "No se encontro el dato" a no haber el dato en un código de busqueda que tengo no se donde colocarlo e probado unas opciones pero no mismo ya se que para ustedes será algo fácil pero para los que estamos iniciando se nos hace un poco dificil. Gracias por su ayuda amigos y una buena tarde Adjunto el código que tengo de busqueda en el cual quiero insertar el MsgBox Private Sub Buscar_Click() If cboLote.ListIndex > -1 Then Lote = cboLote Set celda = Base_Datos.Columns("A").Find(What:=Lote, LookAt:=xlWhole) If Not celda Is Nothing Then txtFecha = Base_Datos.Range("B" & celda.Row) cboProducto = Base_Datos.Range("C" & celda.Row) BorrarCuerpo x = celda.Row Do Until Not CStr(Base_Datos.Range("A" & x)) = Lote For y = 1 To 13 If UCase(Controls("CheckBox" & y).Caption) = UCase(Base_Datos.Range("H" & x)) Then Controls("CheckBox" & y) = True Controls("txtDatoa" & y) = Base_Datos.Range("E" & x) Controls("combobox" & y) = Base_Datos.Range("F" & x) Controls("cboDatoa" & y) = Base_Datos.Range("G" & x) Controls("TextBox" & y) = Base_Datos.Range("H" & x) Controls("TextBox" & y) = Base_Datos.Range("I" & x) Controls("TextBox" & y + 14) = x Controls("TextBox" & y + 14).BackColor = Base_Datos.Range("J" & x).Interior.Color End If Next x = x + 1 Loop End If End If End Sub
  15. Muchas gracias por la ayuda doy por terminado este tema.
  16. Buenas noches Antoni primeramente déjame agradecerte por el tiempo que te has tomando en ayudarme con mi proyecto; el dódigo hace lo que esperaba, pero quiciera que al buscar un determinado lote poder teclear el lote primero y al aplastar en el botón donde está la lupa ahí recien se cargue el lote buscado en el formulario; ahorita lo que hace es si tecleo el número 1 del lote "14-0162" y si quiero teclear otro lote que comience con el 1 me sale el mismo no me deja escribir un nuevo lote y se salta a casillero del código. Al aumentar muchos lotes unos 5000 por ejemplo es demoroso estar buscando en el combobox en el desplegable el lote que necesito seria mejor que quede como antes que tecleaba el lote en el textbox de "Lote" y al dar click en botón de la lupa(Buscar item) recien aparezca o se carge en los casillero. Por favor es el único inconveniente que se me presentó por lo demás está muy bien. Gracias nuevamente por tu tiempo y espero contar con tu ayuda. Copia de ModificarPintandoFila-1.xlsb
  17. Buenas noche amigos de Excel Ayuda quisiera que me ayuden completando mi amplicación con la ayuda de ustedes e creado una aplicación que ingresa datos para analizar en varios perìodos, los datos estan en un hoja BBDD, mi objetivo es que al analizar los productos cada periodo y culminarlos quiero pintarlos de acuerdo a dos criteros "suspendido" o "culminado" utilizando el buscador yo digito el "Lote" y doy clik en la lupa y busca el producto pero quiero que al ubicar el "Producto1, Produco2 etc" al selecionar uno de los dos botones de opción "verde o rojo" se pinten automaticamente en la base de datos BBDD todas las filas que buscó. Les agradezco por darme un tiempo en terminar mi proyecto. ModificarPintandoFila.xlsb
×
×
  • Create New...

Important Information

Privacy Policy