Adriel Ortiz Mangia

[Buen día a todos Necesito distribuir varias cantidades totales como ejemplo en la imagen, 15 es el total y necesito distribuir en 4 rangos con cantidades de 1 y 2

[Hola Explica con más detalles la macro que necesitas

Macro Private Sub ComboBox2_Change() Set h = Sheets(ComboBox1.Value) Set b = h.Range("A:A").Find(ComboBox2.Text, lookat:=xlWhole) If Not b Is Nothing Then fila = b.Row ' TextBox1 = h.Cells(fila, "B") TextBox2 = h.Cells(fila, "C") ' 'vas agregando el...

Macro para cargar el segundo combobox Private Sub ComboBox1_Change() ComboBox2.Clear Set h = Sheets(ComboBox1.Value) For i = 2 To h.Range("A" & Rows.Count).End(3).Row ComboBox2.AddItem h.Cells(i, 1) Next i End Sub crea una nueva petición para mostrar...

Pon la macro aquí

Prueba esto Private Sub ComboBox1_Change() If ComboBox1.ListIndex + 1 > 0 Then TextBox1.Text = "" End Sub

Prueba de esta manera Private Sub cmd_salirMenu_Click() Application.DisplayAlerts = False Application.EnableEvents = False ' Application.Visible = True 'Habilita los libros de Excel ThisWorkbook.Save 'Guarda los cambios del Excel Automaticamente...

Prueba la macro Sub macro() For i = 11 To 27 If WorksheetFunction.IsText(Cells(i, "A")) Then Cells(i, "H").FormulaR1C1 = _ "=IFERROR(VLOOKUP(R[14]C[-5],Hoja2!C[-5]:C,6,FALSE),"""")" End If Next i MsgBox "Terminado" End Sub

[Hola prueba así Private Sub TBMuestraSocio_Change() ' fila = 2 'la uno tiene los rótulos ' uf = Sheets("Base de datos").Range("N" & Rows.Count).End(xlUp).Row ' CB_ProductoPpal.Clear ' d1 = Me.TBMuestraSocio d2 = Me.CB_ProductoPpal.Text ' While...

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Estado") ' For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") < 51 Then u2 = h2.Range("A" &...