Macro selector, si contiene texto a nueva hoja, si no buscar en siguiente columna hasta encontrar texto
Si tiene toda la info en una solo hoja de excel, las columnas,, c, d, e siempre van a contener texto, pero la columna A Y B es la que indica un nuevo "Corte o pedido" lo que se necesita es que cada corte se pase a una nueva hoja de excel, por lo que seria un macro con loop o if de búsqueda en la columna A Y B que pegue en una nueva hoja cuando encuentre un valor numérico y pegue ese corte hasta hallar otro texto numérico o mejor dicho otra order(solo copiar y pagar la info origan)
1 respuesta
Respuesta de James Bond
1
Prueba con esta macro, creara una hoja con cada corte que encuentre en la columna A
Sub copiar()
Set datos = Range("a3").CurrentRegion
With datos
c = .Columns.Count
For i = 2 To .Rows.Count
hoja = .Cells(i, 1)
If hoja = vbNullString Then GoTo salto
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = hoja
If Err.Number > 0 Then GoTo salto
On Error GoTo 0
Range("a2").Resize(1, c).Font.Bold = True
.Rows(1).Copy: Range("a2").PasteSpecial xlPasteValues
.Rows(i).Copy: Range("a3").PasteSpecial xlPasteValues
salto:
Next i
End With
End Sub
