Jump to content

JSDJSD

Members
  • Posts

    1,397
  • Joined

  • Last visited

  • Days Won

    105

Everything posted by JSDJSD

  1. Hola Caoru Aza ponte en contacto con Sergio (Administrador de foro) el te explicará que tienes que hacer para poder descargar archivos del foro y para cualquier consulta por aquí andamos.
  2. A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
  3. Para estos dos puntos pon un ejemplo de como debe quedar la factura con todos los datos aunque sea manualmente.
  4. Aquí te dejo el primer punto solicitado prueba y comenta. Facturación 26082021JSD.xlsm
  5. Los otros dos conceptos los tengo más o menos claros, pero este a que te refieres ? pon un ejemplo para que entienda lo que necesitas
  6. Abre un tema nuevo, sube tu archivo y pon un ejemplo de lo que necesitas
  7. Prueba otra vez porque a mi con el archivo que compartes funciona perfectamente, prueba y comenta
  8. Debe funcionar, mañana te subo el archivo, pero tienes que tener en cuenta que para que te elimine en las hojas seleccionadas estas deben tener el mismo tracking
  9. Prueba y comenta Private Sub bt_eliminar_Click() ' ELIMINA REGISTROS PALAU Application.ScreenUpdating = False Dim buscado As Variant Dim hojabuscada As String buscado = txt_tracking hojabuscada = txt_observaciones With ListPalau If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _ vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then For a = .ListCount - 1 To 0 Step -1 If .Selected(a) = True Then Set Celda = Sheets("PALAU").Columns("B").Find(.List(a, 1), , , xlWhole) Sheets("PALAU").Rows(Celda.Row).Delete If hojabuscada = "HANGAR" Or hojabuscada = "TERRASSA" Or hojabuscada = "LLIÇA" Or hojabuscada = "PARETS" Then For aa = 1 To Sheets(hojabuscada).Range("A" & Rows.Count).End(xlUp).Row If Sheets(hojabuscada).Cells(aa, 2) = buscado Then Sheets(hojabuscada).Range("A" & aa).EntireRow.Delete End If Next aa End If End If Next a End If End With Call cargadatos_Palau Me.txt_tracking.Value = Empty Me.txt_trasnportista.Value = Empty Me.txt_proveedor.Value = Empty Me.txt_bultos.Value = Empty Me.txt_contacto.Value = Empty Me.txt_departamento.Value = Empty Me.txt_observaciones.Value = Empty Me.txt_fechaentrega.Value = Empty Me.txt_recibe.Value = Empty Me.txt_bus1 = Empty Me.txt_bus2 = Empty Me.txt_bus3 = Empty Call cargadatos_Palau Me.txt_tracking.SetFocus Application.ScreenUpdating = True End Sub
  10. Sube tu archivo y pon un ejemplo visual de lo que necesitas
  11. Mañana te lo miro, el vídeo no no veo, dime qué ocurre tomando cualquier dato de tu base de datos donde duplica y que no modifica correctamente
  12. Según tus privilegios en el foro puedes hacer o no ciertas cosas en el mismo. El código es este y lo tienes metido en un modulo Sub recalcular() n1 = 0: n2 = 0 With UserForm1 If IsNumeric(.ComboBox1) Then n1 = CDbl(.ComboBox1) If IsNumeric(.TextBox1) Then n2 = CDbl(.TextBox1) .TextBox2 = FormatNumber(n1 * n2) End With End Sub
  13. Normalmente cuando solicitamos ayuda debemos facilitar las cosas los más posible, lo digo porque tienes tu VBAProject protegido cosa que normalmente no supones más de 3 segundos en saltarse pero no todo el mundo puede hacerlo, sube tu archivo desprotegido y pon un ejemplo real de lo que necesitas, por ejemplo si seleccionamos Alba Rocío Cabrera Carvajal que se supone que debe mostrar el formulario en todos sus apartados ?
×
×
  • Create New...

Important Information

Privacy Policy