JSDJSD

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.

A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm

Mañana te lo miro

Ahora mismo no, pero se puede adaptar

Para estos dos puntos pon un ejemplo de como debe quedar la factura con todos los datos aunque sea manualmente.

Aquí te dejo el primer punto solicitado prueba y comenta. Facturación 26082021JSD.xlsm

En cuanto pueda te preparo algo

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

Prueba y comenta prueba1.xlsm

Sube tu archivo y pon un ejemplo

Ludwig Bronstein sube tu archivo.

Abre un tema nuevo, sube tu archivo y pon un ejemplo de lo que necesitas

Prueba otra vez porque a mi con el archivo que compartes funciona perfectamente, prueba y comenta

Prueba ahora a ver que tal ExcelPaq.xlsm

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

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

Sube tu archivo y pon un ejemplo visual de lo que necesitas

Si

La verdad que sí, es muy raro

Puedes compartir ese mismo archivo para verlo ?

Prueba ahora y comenta ExcelPaq (2).xlsm

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

Mañana te lo miro

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

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 ?