Apilar celdas con espacio

No sé si ya has encontrado la respuesta.

Te podría responder per no sé como lo quieres poner.

Los datos de las filas E15 a L15 los quieres poner en las filas de la D2 y E2 o como lo quieres poner.

Hola compañero, lo que pasa es que quiero sacar solo los valores de una fila que llevan diferentes conceptos, y apilarlos en columnas los dos conceptos.

El problema es el siguiente: tengo un camión que reparte agua, pero aveces trabaja y avece no. normalmente cuando se llena su tanque de combustible, registro su kilometraje y la cantidad con que se lleno su tanque. pero hay días que no carga combustible o sea (celdas en blanco).

entonces, la idea es que en una tabla que esta fechada por los 31 días.

se registra la cantidad cargada de combustible y su kilometraje, pero como aveces no carga por que no trabaja,por lógica ese dia el camión no gasta combustible, no se registra ningún valor.

quiero que valla apilando solo los valores en 2 columnas la carga de combustible y en otra el kilometraje , pero si encuentra una celda en blanco, que continué asta que encuentre valor, ya que para poder sacar rendimiento de combustible tiene que estar continuo los valores.

Ejemplo:

1 dia 2 dia 3 dia 4 dia....................................sucesivamente.

km lts km lts km lts km lts
a1 b1 c1 d1 e1 f1 g1 h1
1,703 108 1,845 97 1,945 116

quedando asi ...

a5 b5

1,703 108

1,845 97

1,945 116

.... .......sucesivamente

Espero me puedan ayudar, a encontrar una instrucción.

un saludo....!!

He visto el ejemplo que has puesto y me he liado un poco porque no se si cada día se hace el kilometraje 2 veces o solo 1.

Si lo haces 2 veces al dia es esta sub

Public Sub Camiones()
Dim i As Integer
Dim fila_colocacion As Integer
fila_colocacion = 4
i = 1
For i = 1 To (31 * 4) Step 2
If (Cells(1, i) <> "") Then
fila_colocacion = fila_colocacion + 1
Hoja2.Range("A" + CStr(fila_colocacion)) = Cells(1, i)
Hoja2.Range("B" + CStr(fila_colocacion)) = Cells(1, i + 1)
End If
Next i
End Sub

----------------------------------------------------------------------------

Si haces el kilometraje 1 vez al dia es esta sub. Solo es cambiar 1 numero

Public Sub Camiones()
Dim i As Integer
Dim fila_colocacion As Integer
fila_colocacion = 4
i = 1
For i = 1 To (31 * 2) Step 2
If (Cells(1, i) <> "") Then
fila_colocacion = fila_colocacion + 1
Hoja2.Range("A" + CStr(fila_colocacion)) = Cells(1, i)
Hoja2.Range("B" + CStr(fila_colocacion)) = Cells(1, i + 1)
End If
Next i
End Sub

Hola compañero.

Creo que no es la opción adecuada, me podrías proporcionar tu correo y te doy el mi para mandarte el problema en archivo para estar en la misma sintonía, y entender mejor mi problema ya que todavía no encuentro la solución.

Esperando de tu apoyo y gran conocimiento. Saludos.

Hola compañero.

Me podrías proporcionar tu correo o te proporciono el mio, para que me puedas apoyar con mi problema de excel.

Si se pudiera te lo agradecería. Saludos