stevend perez

Dante Amor respondió: H o l a: Te anexo la macro Sub IgualarCeldas() 'Por.Dante Amor Set h1 = Sheets("Datos") Set h2 = Sheets("Hoja2") j = 5 For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row h2.Cells(j, "E") = h1.Cells(i, "A") j = j + 56 Next MsgBox "Fin" End Sub 'S...

Dante Amor respondió: H o l a: Te anexo la macro. Antes deberás ordenar la información por la columna A Sub PonerNombres() 'Por.Dante Amor ini = 1 ant = Cells(ini, "A") For i = ini To Range("A" & Rows.Count).End(xlUp).Row + 1 If Cells(i, "A") <> ant Then nombre =...

Dante Amor respondió: H o l a: Te anexo la macro Sub CrearNombres() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row nombre = Cells(i, "A") ActiveWorkbook.Names.Add Name:=nombre, _ RefersTo:="='" & ActiveSheet.Name & "'!" & Range("B" & i & ":D" &...

Dante Amor respondió: H o l a: Entendiendo que tienes vendedores repetidos, te propongo poner en la columna "D" los vendedores únicos y en las columnas E, F, G y H los valores de cada vendedor, por ejemplo: Ejecuta la siguiente macro. Los datos deberán empezar en la fila...