Jump to content

JoaoM

Members
  • Content Count

    789
  • Joined

  • Last visited

  • Days Won

    1

JoaoM last won the day on July 5 2015

JoaoM had the most liked content!

About JoaoM

  • Rank
    Advanced Member
  • Birthday 01/01/1920

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Solucionado ¿Como? creyendo que sería más difícil, facilismo pero (REPITO) mi sabiduría NULA en la materia me llevo a pensar que podría ser algo de que Excel, aun no tomara la hoja como Activa, aunque la línea Msgbox ActiveSheet.name me dice en que hoja me encuentro, efectivamente, en la hoja de trabajo seleccionada del desplegable, pareciera que no es Activa para trabajar, Editar o ingresar nuevo artículo. Quitando de Initialize y agregando esta línea al final del evento change del desplegable. Al final para que primero seleccione la hoja y me traslada a dicha hoja seleccionada y luego de estar en la hoja, llena el List. Así si me ha funcionado SIN error Quitada Private Sub UserForm_Initialize() With cboHojas .List = Array("PRODUCTOS", "CAT", "JOHN DEERE", "SILVERADO", "INTERNACIONAL") End With DTPicker1 = (Date) FiltrarPor.List = Array("COD PRODUCTO", "NOMBRE PRODUCTO", "UBICACION") '''Call BuscaCambio ESTA TRANSLADARLA DESDE AQUI HACIA End Sub Colocada
  2. Para terminar la polemica Antoni, Desgraciadamente, no la entendi y conozco algo de las normas sobre subir archivo. Ademas para empolvillar el asunto se metio cacho con garrocha encendida (a quien respecto y admiro por su trabajo y dedicacion a ayudar a ignorantes en este asunto (como yo) SIN interes alguno, ayuda altruista Lo que pasa es que creia yo que solo era algo de alguna linea o parecido. Perdona y disculpa
  3. Hola Cacho. De todo malo, queda lo bueno, mi cuñada gallega aqui al lado jajajaja El consultante no se está quitando nada, 01/01/1948 Se eso perfectamente pero no da pie a que venga a querer pasar por encima escondiendo la cara tras un monitor, es costumbre de los "fuertes". La mecánica fue y sigue siendo mi profesión, y lo será hasta la muerte, orgulloso por eso. A Sí es, no sé porque no me dedico a esto, tú y otros si, lo cual respecto. Para que no galantees tus odios te dejo documento de identificación el cual te dice que no miento, como estás haciendo creer, en el club se defienden entre todos, gracias por su gentileza. Parece que no te diste muy bien en Foros del WEB A pesar de todo me caes bien, te respecto y admiro [/IMG]
  4. ¿Sí?, ¿es una vergüenza?, pero tengo 70 años y no me avergüenzo y mi trabajo SIEMPRE ha sido mecánica pesada, estudie eso y para eso, no programación. Jamás pense en hacer vida o negocio de programación, informática u otra cosa del ramo pero si la mecánica pesada. No soy piloto de aviones, capitán de navío ni piloto F1. Tu estudiaste programación(creo) informática (talvez) y no te avergonzaste no te avergüenzas ni te arrepientes, yo estudie Mecánica pesada en maquinaria pesada no me avergüenzo ni me arrepiento. Antoni, ¿es que acaso es vergüenza no saber cierto oficio? ¿acaso conoces mecánica pesada tal como yo? no conozco NO SE programación tal como tú y no me avergüenzo con mis 70 primaveras. He aprendido lo básico, pero no llego a la estancia de formar línea de macro más compleja Estas demasiado grandecito para que salgas con esa frase a un usuario que jamás he sido irrespectuoso CON NADIE, muchos tienen mucho más tiempo acá y no saben lo que tu sabes y conoces. Hablar tras un monitor y decir cosas que jamás diría cara a cara, es fácil y no se ve la cara contraria. Dejando lo anterior paso a dejar el libro del cual el amigo Haplox tiene una macro en Un combo sobre seleccionar hojas Prueba2.part1.rar Prueba2.part2.rar
  5. Eso pense pero tambien te diré que; en el form tengo un combo que despues que abre el form, en el combo selecciono la hoja que quiero trabajar, después que seleccione la hoja, evento combo_Change() la hoja seleccionada se torna Activa. Tanto que el form auto-pasa hacia la hoja Activa (seleccionada en el combo) la hoja queda abierta por detras del form. ¿Akgna información mas? si necesitas, lo que necesites dime por favor
  6. · Buenas tardes a todos. Me surge un error el cual especifico en el titulo Esto sucede cuando inicio el form en la hoja inicial donde tengo todos botones para iniciar los forms, selecciono la hoja de un Combo, se llena el ListBox y selecciono(Click) el artículo que me interesa editar. Después de editado piso el botón para validar la edición y me salta esta imagen Por esta línea Set b = .Range("A2:A50000").Find(lista.Value, lookat:=xlWhole, LookIn:=xlValues) De esta macro Private Sub lista_Click() Dim v As Variant Dim txt As MSForms.TextBox Dim i% Set ws = ActiveSheet With ws 'Si en b (hoja) encuentra el dato seleccionado en ListBox, llena los TextBox Set b = .Range("A2:A50000").Find(lista.Value, lookat:=xlWhole, LookIn:=xlValues) EN ESTA LINEA ME SALTA If Not b Is Nothing Then v = Array(txtCod, txtProd, txtProve, txtFactu, DTPicker1, txtUbic, txtObser) For i = 0 To UBound(v) If i = 4 Then DTPicker1 = .Cells(b.Row, i + 1) Else Set txt = v(i) txt.Text = .Cells(b.Row, i + 1) Set txt = Nothing End If Next End If End With Buscar.SetFocus End Sub He buscado por la WEB en cualquier cantidad de paginas pero d ninguna he sacado conclusión, por falta de conocimiento Si abro el formulario directamente desde la hoja en que voy a trabajar, todo marcha bien, esto pasa cuando abro el form desde la hoja inicial
  7. Es por esta linea Private Sub UserForm_Initialize() Label24.Caption = ActiveSheet.Name cboHojas.List = Array("PRODUCTOS", "JOHN DEERE", "CAT", "SILVERADO", "INTERNACIONAL") 'cboHojas.Value = "SELECCIONE HOJA" 'ESTA TUVE QUE DESACTIVARLA, ¿COMO HACER?
  8. Olvida lo anterior mientras tanto porque me fuy, comi y regrese y ejecute el form y funciono, las hojas estaban todas ¿que habria pasado? no lo se. Lo que si noto es que activa la hoja seleccionada y quisiera que TODO funcionara desde la hoja Inicio, es decir; que el form no se muviera a la hoja seleccionada, se mantuviera en la hoja Inicio
  9. Haplox, buenos dias. Copie y pegue tal cual me dejas el codigo, en el evento Private Sub cboHojas_Change() no existia aun, Solo para darte conocimiento. Al proceder a ejecutar el formulario desde la hoja Inicio que solo sirve para pantalla de inicio donde abarca todos los butones. me manda esto. voy a ver que es error 9 por la WEB y si puedo, devido a mi incompetencia en estos vientos. Se te agradece imensamente el tiempo que estas usando en mis cosas Tengo Office 2016
  10. Hola Haplox, gracias por responder Si, asi es, que al seleccionar una hoja en el combo, cargue el list y pueda insertar en esa hoja (trabajar) Tambien editar si hay la necesidad. Ya para editar algun producto, despues que tenga la hoja cargada o seleccionada la linea en el List, esa linea se carga en las cajas y edito luego piso el buton para validar la edicion
  11. Creo haberme equivocado, es un combo que tengo en el medio superior del form frm Prod que dice SELECCIONAR HOJA
  12. Claro que con eso es que he llevado mi libro, teniendo butones 1 en cada hoja. Lo que pretendia es abrir el form solamente en hoja Inicio y luego seleccionar en TextBox "Seleccionar hoja" y segun la hoja seleccionada en el textbox, es que iba a insertar, buscar para editar. Ya vere como llegarle. Gracias gerson
  13. Hola gerson, mis mas cordiales saludos y gracias por darme tu tiempo Pues es eso mismo Mi interrogante (para mi escaso conocimiento), es en que parte integrar esa linea para que todo funcione desde la hoja INICIO porque coloque la linea al inicio de la macro y me inserto en hoja Inicio y habia seleccionado otra que no era esa, ademas de eso quisiera que al seleccionar la hoja en el Combo, me llenara el listbox con su contenido. La imagen del formulario. te das cuenta que el Combo ya tien las hojas abajo mencionadas. reitero que quiero trabajar con el form desde la hoja Inicio sin salirme y sobre la hoja que seleccione en el combo. Del combo tengo Private Sub cboHojas_Change() Label24.Caption = cboHojas.Value End Sub y para el combo Private Sub UserForm_Initialize() 'Label24.Caption = ActiveSheet.Name cboHojas.List = Array("PRODUCTOS", "JOHN DEERE", "CAT", "SILVERADO", "INTERNACIONAL") cboHojas.Value = "SELECCIONE HOJA" 'codigo 'codigo 'etc. End Sub y la macro para insertar nuevo esta 'Inserta y luego ordena alfabeticamente de B hasta G tomando columna B Sub ingresar_datos(fila As Integer, Optional OrdenarPor As String = "B") 'Ordena por la columna B Set ws = ActiveSheet With ws .Cells(fila, 1) = txtCod .Cells(fila, 2) = txtProd .Cells(fila, 3) = txtProve .Cells(fila, 4) = txtFactu .Cells(fila, 5) = Format(DTPicker1, "mm/dd/yyyy") 'DTPicker1 en ves de txtFFact ' .Cells(fila, 5) = NumberFormat = "dd/mm/yyyy" 'dar formato a la celda .Cells(fila, 6) = CDbl(txtUbic.Value) .Cells(fila, 7) = txtObser .Range("A2:G" & fila).Sort key1:=.Range(OrdenarPor & fila) 'Ordena por la columna B End With 'Limpiar controles Dim tbx As Control For Each tbx In Me.Controls If TypeName(tbx) = "TextBox" Then tbx = "" Next tbx 'carga ListBox Call BuscaCambio Call actualizar_lista txtCod.SetFocus End Sub Si necesitas las de los Call No se si hace falta pero esta es la directa del buton que inserta donde estan los Call Private Sub cbtNueClien_Click() Entrada_Salida = Clear On Error Resume Next Dim fila As Integer Set ws = cboHojas.Value 'ActiveSheet If cboHojas.Value = "SELECCIONE HOJA" Then MsgBox "NO HA SELECCIONADO HOJA" Exit Sub Else 'Sheets(cboHojas).Activate 'Viene de la Function valida(wtext As MSForms.Control, num). Obliga insertar minimo 12 caracteres If MINCaracter(txtCod, "Cod/Producto", 10) = False Then Exit Sub ''AQUI 10 DIGITOS MINIMO 'If MINCaracter(txtFFact, "Fecha Factura", 10) = False Then Exit Sub 'AQUI 10 DIGITOS MINIMO 'xxxxxxxxxxxx 'Evita nombre repetido, busca si ya existe en data Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole) If Not busco Is Nothing Then 'significa que lo encontró MsgBox ("Este nombre ya está registrado. Verifica ...."), vbInformation, "Existe" 'sale sin guardar Exit Sub End If 'xxxxxxxxx 'Inserta datos de nuevo cliente With ws fila = .Range("A2:A50000").Find(txtCod, lookat:=xlWhole).Row If Err.Number = 91 Then fila = .Range("b" & .Rows.Count).End(xlUp)(2).Row Call ingresar_datos(fila) Exit Sub End If Call ingresar_datos(fila) End With End If End Sub Formulario frmProd_Insventario y Edición Productos.part1.rar Formulario frmProd_Insventario y Edición Productos.part2.rar
  14. Voy nevamente Abren perfectamente aqui, en rar y ZIP Insventario y Edición Producto AyudaExcel.part1.rar Insventario y Edición Producto AyudaExcel.part2.rar Insventario y Edición Producto AyudaExcel.z01 Insventario y Edición Producto AyudaExcel.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png