Buscar celdas no vacias en un rango y copiar datos en otra hoja

Ivan, Juan y resto del foro,

Como ya os he comentado por mail, he dado con una solución que se
aproxima mucho a lo que estaba buscando. Os la he enviado por mail
junto con los agradecimientos por la ayuda prestada.

A todos los que hayan seguido este post y estén interesados en recibir
el archivo o alguna explicación, que me escriban a y
por supuesto que intentaré echar un cable.

Gracias de nuevo a todos.

Un saludo,

David.

hola David

viendo tu archivo me da la impresion de que no has probado la ultima
macro que te puse.

en realidad creo que hace exactamente lo que quieres pero solo en la
hoja total, como planteabas

este nuevo codigo es el mismo pero ademas le añade a la hoja de cada
vendedor sus visitas, referencia y dia(en la columna c, que tienes
oculta)

si quieres probarlo te comento los requisitos, mezcla de los dos
archivos ->

1º.-el formato seria el mismo que el de este ultimo archivo excepto
para la hoja total, que seria el del anterior (incluido el boton que
cubre la celda a8 <por eso los datos en esta hoja empiezan a partir de
la fila 9>y que tenia asignada la macro )

2º.-para las pruebas debes desproteger todas las celdas y hojas y
mostrar las columnas ocultas de las hojas de cada vendedor, borrando lo
que tengas excepto los encabezados y las fechas. Si te convence el
archivo y quieres mantener protegidas las hojas, existen opciones de
proteccion que permiten las macros.

3º.-los nombres de los vendedores deben ir tal cual los tienes, tanto
en los encabezados de columna como en los nombres de las hojas
('Visitas Marivi', con el espacio incluido), la fecha de cada dia en A1
como lo tienes

4º las hojas de los vendedores tienen que llevar en a1 (o a2, o a3, o
a...), un encabezado, o cualquier cosa escrita. Lo importante es que
haya al menos una celda de la columna a con algo, a partir de ella se
cargaran los datos

5º,- pon el codigo en un modulo normal (por cierto, no es necesario
que uses un modulo para cada macro, puedes ponerlas todas en el mismo)

creo que con esto valdria.

si quieres introduce visitas en diferentes hojas, a diferentes
vendedores y dejando filas vacias, pulsa F5 (o asignale la macro a un
boton),y mira a ver que tal

y OJO a los saltos de linea

un saludo
Ivan

Sub copiar5()
Dim hj As Worksheet, x As Long, col As Byte, tt As Long
Dim celda As Range, ltCol As String, ltColTT As String
Dim Vendedor As String
For Each hj In ThisWorkbook.Worksheets
With hj
If .Name <> "TOTAL" And Left(.Name, 6) <> "Visita" Then
For col = 2 To .UsedRange.Columns.Count Step 2
ltCol = Chr(64 + col): ltColTT = Chr(64 + col - 1)
Vendedor = .Range(ltCol & 1)
For Each celda In .Range(ltCol & "5:" & ltCol & 29)
If celda <> 0 And celda <> "" Then
With Worksheets("TOTAL")
x = .Range(ltColTT & 65536).End(xlUp).Row + 1
If x < 9 Then x = 9
.Cells(x, col - 1) = celda
.Cells(x, col) = celda.Offset(0, 1)
End With
With Worksheets("Visitas " & Vendedor).[a65536] _
.End(xlUp).Offset(1, 0)
.Value = celda
.Offset(0, 1) = celda.Offset(0, 1)
.Offset(0, 2) = hj.[a1]
End With
x = x + 1
End If
Next
With Worksheets("TOTAL")
tt = .Range(ltColTT & 65536).End(xlUp).Row
If tt < 8 Then tt = 8
.Range(ltColTT & 5) = tt - 8
End With

Next
End If
End With
Next
End Sub