Dante Amor

Puedes explicarlo con ejemplos. Pon aquí imágenes con ejemplos, reemplaza tus datos confidenciales con datos genéricos. Lo que debe contener cada imagen:

Prueba lo siguiente: Sub test_1() Dim i As Long For i = 6 To Range("E" & Rows.Count).End(3).Row If Range("F" & i) & Range("G" & i) & Range("H" & i) = "" Then Select Case Range("E" & i).Value Case 1: Range("F" & i).Resize(1, 3).Value = Array(3, 2, 1)...

Revisa si lo siguiente es lo que necesitas: Private Sub TextBox1_Change() If TextBox1.Text <> "" Then If IsNumeric(Sheets("Filtro").TextBox1.Text) Then criteriofiltro = Sheets("Filtro").TextBox1.Value Else criteriofiltro = "*" &...

No olvides el poner el código con el icono para insertar código. Prueba si la siguiente solución te ayuda. Copia el siguiente código en tu formulario. Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox5.Value = "" Then Exit...

¿Los ID en la hoja "formulado" son únicos? ¿Los ID en la hoja "Comprado" son únicos?

Si quieres que funcione cuando capturas el dato "Facturado" en la columna M, entonces pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M3:M" & Rows.Count)) Is...

Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range ' Set rng = Intersect(Target, Range("E8:E" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng If c.Value <>...

Puedes poner otra imagen para ver las columnas de excel, revisa el siguiente ejemplo:

Revisa la siguiente propuesta: En el textbox del producto, capturas el producto y presionas un botón para agregar el producto a un listbox: Este es el código para agregar el Producto al listbox y el código para guardar todos los datos en la hoja:...

Prueba la siguiente: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long ' Set sh1 = Sheets("Hoja1") Set sh2 = Sheets("Hoja2") Select Case sh2.Range("A5").Value Case 0 MsgBox "no se realiza ninguna copia: Valor 0" Exit Sub Case "ARS"...