Jump to content

lsmaniahotmail.com

Members
  • Posts

    54
  • Joined

  • Last visited

Recent Profile Visitors

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

lsmaniahotmail.com's Achievements

  1. gracias antoni algo mas que suma a mis conocimientos
  2. Buena a todo el el equipo tengo una pregunta de concepto si puede llamarse asi , el tema es tengo en yoja 1 una tabla de clientes y en hoja 2 una tabla de pedidos y a traves de un formulario que se llenan con los datos de hoja2 tengo un combo que debe llenarse con el correo del cliente que estan en la base de datos 1. mi pregunta para no cpmplicarme con el codigo que no domino muy bien pueda completar el la propiedad de combo en rowsource con : =hoja1!"F:F" o esta mal expresdo por que no consigo que se llene. probe tambien con codigo (el que muestro) , pero me error Sud indice fuera de intevalo Private Sub UserForm_Initialize() Dim rango As Range Dim celda As Range Set rango = Sheets("Clientes").Range("F:F") For Each celda In rango cmbCorreo.AddItem celda.Value Next End Sub
  3. Gracias de todas formas , no estoy autorizado para subir el archivo por mi nivel actual de menbresia,
  4. muy buenas tardes a todo el equipo y colegas en excel , se me planteo la siguiende duda, como arrmo dentro de mi codigo guardar ( en hoja1)de un formulario VBA que 2 o 3 txt entre tantos que existen en dicho formulario me los guarde tanbien en las tablas de hoja2, hoja 3 , Hoja4 y por supuesto que no se pisen si ya hay datos . bueno espero se comprenda
  5. perdon en lugar de txt1 y txt2 debe leer txtA y txtB
  6. HOLA ANTONI: No tuve el resultado esperado, por ej al digitar txtA y txtB deseo que en txtC aparesca el resultado de la division entre txt1 y txt2 y ademas los tres txt expresados con dos decimales sin ejecutar ningun comando . Bueno espero que se entienda dado que con la instruccion que me aconsejaste no aparece el resultado en txt3
  7. gracias antoni por tu aporte,sigo adelante con mi proyecto a ver si resulta.gracias gracias
  8. buenas a todos , pido disculpas por preguntar ta lves cosas elementales , ya con la practica ire aprendiendo . la cuestion que me toca hoy es saber cual seria la instruccion para que en un txt del formulario (todod datos numericos) se llene como resultado de la division de otros 2 txt , intente con: Private Sub txtValorPresupUsd_Change() Dim Valor1 As Double Dim Valor2 As Double Dim valor3 As Double Valor1 = Val(txtValorPresup.Text) valor3 = Val(txtCotiz1.Text If txtValorPresup.Value <> "" Then txtValorPresupUsd.Value = Valor1 / valor3 End If txtValorPresupUsd.Value = Format(txtValorPresupUsd, "#,##0.00") End Sub
  9. si entiendo que es asi perp a la hora de hacer el adjunto no vi la opcion para realizarlo, de todas maneras solucione el tema muchs gracias
  10. MUY BUENAS A TODO EL EQUIPO DE AYUDA EXCEL. Tengo el siguiente pedido de auxilio que no logro solucionar ya que estoy aprendiendo y leo todo lo que encuentro pero en esta ocasion no he encontrado info. el tema es el siguiente: En el formulario tengo 10 chechbox que cargan segun su condicion las correspondientes casillas txt y necesito cagar el txt Total presupuesto con la suma de todos aquellos txt con los que tenga sus valores cagados por el checkbox,cuando hago click en boton CargarDatos, he probado verios codigos para esta macro pero no obtengo resultado , Podran ayudarme con este codigo
  11. me surge la siguiente cuention que no logro resolver , al querer dar nombre a un Textbox del formulario se surge de que es ambiguo por ej: quiero poner txtFecha revisando c/u de los Text del folmulario no existe el txtFecha pero si voy a la pestaña orden de tabulacion si aparece, como asi tambien muchos otros que no estan , como borro estos nombres o cual seria la solucion.Desde ya mucha s gracias
  12. Hola etimados miembros del foro , tengo el siguiente problema , parece **maravilloso** pero no logro darme cuenta del error, cuando quiero registra un nuevo cliente a traves del fomulario este lo hace pero fila por medio , no lo hace como deberia uno debajo del ultimo el cod es : Option Explicit Dim CelEncontrada As Range Dim CodigoAux As Variant Private Sub Bot_Limpiar_Click() Call ModClientes.LimpiarFormulario End Sub Private Sub Bot_Registrar_Click() With frmClientes If .TxtIdCliente.Value = "" Then MsgBox "Digite el n° de documento del cliente" .TxtIdCliente.SetFocus Exit Sub End If If .TxtNombre.Value = "" Then MsgBox "Digite el Nombre del cliente" .TxtApellido.SetFocus Exit Sub End If If .TxtApellido.Value = "" Then MsgBox "Digite el Apellido del cliente" .TxtApellido.SetFocus Exit Sub End If If .TxtCel1.Value = "" Then MsgBox "Digite el n° celular del cliente" .TxtCel1.SetFocus Exit Sub End If If .TxtDireccion.Value = "" Then MsgBox "Digite la direccion del cliente" .TxtDireccion.SetFocus Exit Sub End If If .TxtLocalidad.Value = "" Then MsgBox "Digite la localidad o ciudad del cliente" .TxtLocalidad.SetFocus Exit Sub End If If .TxtProvincia.Value = "" Then MsgBox "Digite la provincia del cliente" .TxtProvincia.SetFocus Exit Sub End If If .TxtPuntoContac.Value = "" Then MsgBox "Digite un punto de contacto" .TxtPuntoContac.SetFocus Exit Sub End If If .TxtRelacion.Value = "" Then MsgBox "Digite que relacion tiene con el cliente" .TxtRelacion.SetFocus Exit Sub End If If .TxtCel2.Value = "" Then MsgBox "Digite el n° de celular del punto de contacto" .TxtCel2.SetFocus Exit Sub End If End With Dim Codigo As Variant Dim ColCodigo As Range Codigo = frmClientes.TxtIdCliente.Value Set ColCodigo = Hoja3.ListObjects("Tab_Clientes").ListColumns(1).Range Set CelEncontrada = ColCodigo.Find(what:=Codigo, After:=ColCodigo.Cells(1), LookAt:=xlPart) If Not CelEncontrada Is Nothing Then If MsgBox(" EL documento ya existe,¿quiere crearlo nuevamente?", vbYesNo) = vbNo Then frmClientes.TxtIdCliente.SetFocus Exit Sub End If End If Set CelEncontrada = Hoja3.ListObjects("Tab_Clientes").ListRows.Add.Range.Cells(1) Set CelEncontrada = Hoja3.ListObjects("Tab_Clientes").ListRows.Add.Range.Cells(1) With frmClientes CelEncontrada.Offset(0, 0).Value = .TxtIdCliente CelEncontrada.Offset(0, 1).Value = .TxtNombre CelEncontrada.Offset(0, 2).Value = .TxtApellido CelEncontrada.Offset(0, 3).Value = .TxtCel1 CelEncontrada.Offset(0, 4).Value = .TxtTelFijo1 CelEncontrada.Offset(0, 5).Value = .TxtDireccion CelEncontrada.Offset(0, 6).Value = .TxtLocalidad CelEncontrada.Offset(0, 7).Value = .TxtProvincia CelEncontrada.Offset(0, 8).Value = .TxtPuntoContac CelEncontrada.Offset(0, 9).Value = .TxtRelacion CelEncontrada.Offset(0, 10).Value = .TxtCel2 CelEncontrada.Offset(0, 11).Value = .TxtTelFijo2 End With Set CelEncontrada = Nothing Call ModClientes.LimpiarFormulario MsgBox "CLIENTE REGISTRADO" End Sub
  13. hola amigo felicitaciones por tu ayuda , te comento viste que daba un error en la ultima coreccion que hiciste , te comento anda ok siempre y cuando la hoja fotos este visible , pero dado que se oculta por una macro para que no sea modificado este metodo no funciona dando error como te comentaba error 1004 , te pregunto se podra solucionar esto?

    1. pegones1

      pegones1

      No presto ayuda individual.

      Te contestaré si haces esta misma pregunta en el hilo del tema, para que todos puedan verlo...

×
×
  • Create New...

Important Information

Privacy Policy