Ayuda con un planing de transportes de Microsoft Excel
Buenas tardes Ángel
Ante todo gracias por atenderme, referente a tus preguntas, te contesto
A) No necesito guardarlos en el mismo libro, a la hoja "propuesta" le tengo una macro para que la exporte a otro libro, que es el que almaceno semanalmente.
b) Es verdad que el fichero que te mandé no tiene fórmulas, pero en el original si las tengo, son fórmulas de búsqueda con la clausula SI.
Para que te sitúes un poco el fichero es un planing de transportes, en una pestaña tengo las tiendas, en otra el tipo de camión, en otra (la principal) donde calculo los viajes según ventas y bultos servidos a tiendas, en otra las ventas, en otra la camionización de las tiendas, en otra el planing, que es una recopilación de varias. Ésta última es la que debe ejecutar la macro.
Espero haberme explicado y perdona por cerrar la pregunta anterior, no tengo mucha experiencia en esto.
Un saludo.
Ante todo gracias por atenderme, referente a tus preguntas, te contesto
A) No necesito guardarlos en el mismo libro, a la hoja "propuesta" le tengo una macro para que la exporte a otro libro, que es el que almaceno semanalmente.
b) Es verdad que el fichero que te mandé no tiene fórmulas, pero en el original si las tengo, son fórmulas de búsqueda con la clausula SI.
Para que te sitúes un poco el fichero es un planing de transportes, en una pestaña tengo las tiendas, en otra el tipo de camión, en otra (la principal) donde calculo los viajes según ventas y bultos servidos a tiendas, en otra las ventas, en otra la camionización de las tiendas, en otra el planing, que es una recopilación de varias. Ésta última es la que debe ejecutar la macro.
Espero haberme explicado y perdona por cerrar la pregunta anterior, no tengo mucha experiencia en esto.
Un saludo.
1 Respuesta
Respuesta de angelcrisnor
1
Juan Pablo.
Según el ejemplo que te he enviado por correo, te copio más abajo las dos macros generadas, siendo la principal la que está en negrita.
Recuerda finalizar la pregunta cuando termines de probarla.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiarPropuesta()
'
HojaDestino = "Propuesta"
'
'Guardo nombre de la hoja original...
HojaOriginal = ActiveSheet.Name
'
'Copio el contenido al portapapeles...
Cells.Select
Selection. Copy
'
'Selecciono hoja destino y hago pegado especial de valores...
Sheets(HojaDestino).Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
'Selecciono hoja original...
Sheets(HojaOriginal).Select
'
'Copio la fila 1 al portapapeles...
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
'
'Selecciono hoja destino y pego formato en la fila 1...
Sheets(HojaDestino).Select
Rows("1:1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
'
'Selecciono hoja destino y elimino filas vacías y reordeno...
Sheets(HojaDestino).Select
EliminaFilasyOrdena
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++
Sub EliminaFilasyOrdena()
Dim Fila, Columna As Integer
Dim EliminarFila As Boolean
Dim ValorCelda
Fila = 1
'Recorro todas las filas con contenido en columna A...
Do While Range("A" + Trim(Str(Fila))).Value <> ""
'Analizo si tengo que eliminar la fila en curso...
EliminarFila = True
For Columna = Asc("D") To Asc("J")
ValorCelda = Range(Trim(Chr(Columna)) + Trim(Str(Fila))).Value
If ValorCelda <> "" And ValorCelda <> 0 Then
EliminarFila = False
End If
Next
'Si procede, la elimino y no incremento fila...
If EliminarFila Then
Rows(Fila).Select
Selection.Delete Shift:=xlUp
Else
Fila = Fila + 1
End If
Loop
RangoaOrdenar = "A2..J" + Trim(Str(Fila - 1))
Range(RangoaOrdenar).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Según el ejemplo que te he enviado por correo, te copio más abajo las dos macros generadas, siendo la principal la que está en negrita.
Recuerda finalizar la pregunta cuando termines de probarla.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CopiarPropuesta()
'
HojaDestino = "Propuesta"
'
'Guardo nombre de la hoja original...
HojaOriginal = ActiveSheet.Name
'
'Copio el contenido al portapapeles...
Cells.Select
Selection. Copy
'
'Selecciono hoja destino y hago pegado especial de valores...
Sheets(HojaDestino).Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
'Selecciono hoja original...
Sheets(HojaOriginal).Select
'
'Copio la fila 1 al portapapeles...
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
'
'Selecciono hoja destino y pego formato en la fila 1...
Sheets(HojaDestino).Select
Rows("1:1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
'
'Selecciono hoja destino y elimino filas vacías y reordeno...
Sheets(HojaDestino).Select
EliminaFilasyOrdena
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++
Sub EliminaFilasyOrdena()
Dim Fila, Columna As Integer
Dim EliminarFila As Boolean
Dim ValorCelda
Fila = 1
'Recorro todas las filas con contenido en columna A...
Do While Range("A" + Trim(Str(Fila))).Value <> ""
'Analizo si tengo que eliminar la fila en curso...
EliminarFila = True
For Columna = Asc("D") To Asc("J")
ValorCelda = Range(Trim(Chr(Columna)) + Trim(Str(Fila))).Value
If ValorCelda <> "" And ValorCelda <> 0 Then
EliminarFila = False
End If
Next
'Si procede, la elimino y no incremento fila...
If EliminarFila Then
Rows(Fila).Select
Selection.Delete Shift:=xlUp
Else
Fila = Fila + 1
End If
Loop
RangoaOrdenar = "A2..J" + Trim(Str(Fila - 1))
Range(RangoaOrdenar).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Hace unos días respondí a tu pregunta dedicándole un tiempo a lo que pedías. Espero que te sirviera de ayuda.
En cualquier caso, te ruego finalices la pregunta para poder atender mejor a otras personas.
En cualquier caso, te ruego finalices la pregunta para poder atender mejor a otras personas.
