Carlos Gonzales

Dante Amor respondió: H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False If TextBox1 = "" Then Exit Sub Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set r = h2.Columns("A") Set b = r.Find(TextBox1,...

Dante Amor respondió: H o l a: Te anexo la macro para copiar Sub Copiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h1.Range("B" & Rows.Count).End(xlUp).Row If u < 6 Then MsgBox "No hay datos a copiar" Exit...

Dante Amor respondió: H o l a: Te anexo la macro para que la pongas en un módulo. La macro supone que en la columna A tienes la descripción, B - Cantidad, C - envío1, D - envío2, E - envío 3 y que en la columna F va la fórmula. También supone que los datos empiezan en la...

Dante Amor respondió: H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If TextBox1 = "" Then Exit Sub Application.ScreenUpdating = False For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "B") = TextBox1 Then Rows(i).Delete...