Un poco de ayuda...

aaaaaaaaaaaaaaaaaaagsss!!!!! Falta algo, como siempre...
Los codigos hacen referencia a los números de albarán, que coloco
correlativamente, en vertical, en la fila C de "Totales" con otra macro...,
por lo que además de todo este código, tambien habría que indicarle que
cuente las columnas ocupadas en C para que las coloque en su intersección, o
sea debajo de su número de albarán...
Siento la pesadez...

"Navibel" escribió en el mensaje
news:

¡¡¡¡ Funcionaaaaaaaaaaaaa !!!!
Magnífico. Muchas gracias Héctor
La segunda parte es entender lo que has hecho...

...y mantengo todo lo dicho anteriormente.

Yo creo que todo este foro, agradece cualquier tipo de ayuda, incluso
algunas erróneas, pero sin desmerecer a nadie, cuando tú o algún otro

(todo

el mundo sabe a quien me refiero) aparece contestando un mensaje te cambia
la cara...

"Héctor Miguel" escribió en el mensaje
news:e$
> hola, todavianosequeponer !
>
> > ... afinar ... pues ... un codigo 160010 y otro 6, considera que es el
mismo...
> => entonces... solo hay que 'indicarle' que busque el dato 'completo'
[LookAt:=xlWhole]
>
> > ... que antes de 'pegar' las unidades ... se desplace 5 ... a su

derecha

y ... el primer lugar vacio [...]
>
> con estos [nuevos] datos... haz una prueba con la siguiente lineas
[modificadas]
> Dim Fila As Integer, Col As Integer, Celda As Range
> For Fila = 5 To 10
> With Worksheets("Totales")
> Set Celda .Columns("a").Find(What:=Worksheets("Albaran").Range("a"
& Fila), LookAt:=xlWhole)
> If Celda Is Nothing Then
> Set Celda = .Range("a65536").End(xlUp).Offset(1)
> .Range(Celda.Address) = Worksheets("Albaran").Range("a" & Fila)
> End If
> If IsEmpty(.Range(Celda.Address).Offset(, 5)) Then Col = 6 _
> Else Col = .Range("iv" & Celda.Row).End(xlToLeft).Offset(,
1).Column
> .Cells(Celda.Row, Col) = Worksheets("Albaran").Range("c" & Fila)
> End With
> Next
> Set Celda = Nothing
>
> saludos,
> hector.
>
> p.d. por lo de los comentarios 'al margen' ...
> 1° ¡ agradecido !!! [es un privilegio tal consideracion] :))
> 2° [te aseguro que...] es suficiente con un 'simple'...
> ... ¡ funciona !!!
> o... ¡ NO funciona !!! ... :(( [porque... 'esto, eso y
aquello'] ;)
>

hola !

[debo 'confesarte' que...] me han 'desconcertado' tus comentarios siguientes...

1.- > ... los numeros de albaran, que coloco ... en vertical, en la fila C de "Totales" con otra macro [...]
2.- > ... que cuente las columnas ocupadas en C para que las coloque ... debajo de su numero de albaran [...]

¿podrias 'aclarar' que significa...
- en 'vertical' en la fila 'C' ???
- columnas ocupadas en 'C' ???

y... para 'poder' colocar 'debajo de'...
- ¿cual es.. de donde vino... y donde quedo 'ese' numero de albaran???

¿comentas?
saludos,
hector.

hola, Navibel !

..ya se que no procede, pero aqui se ve lo que quiero hacer...

[parece que] solo era un 'error de semantica' [entre 'vertical' en una fila y... ¿donde quedo la columna???] ;)
y ... no de buscar la columna 'libre' de cada fila sino la que 'ocupo' [recientemente] la 'otra macro' ;)
=> cambia las lineas de codigo 'propuestas' a...
Application.ScreenUpdating = False
NumeroBol
Dim Fila As Integer, Col As Integer, Celda As Range
With Worksheets("CADIZ")
Col = .Range("iv3").End(xlToLeft).Column
For Fila = 37 To 49
Set Celda = .Columns("a").Find(What:=Worksheets("Boletin").Range("c" & Fila), LookAt:=xlWhole)
If Celda Is Nothing Then
Set Celda = .Range("a65536").End(xlUp).Offset(1)
.Range(Celda.Address) = Worksheets("Boletin").Range("c" & Fila)
End If
.Cells(Celda.Row, Col) = Worksheets("Boletin").Range("r" & Fila)
Next
End With
Set Celda = Nothing

saludos,
hector.

ahora si. Perdona por lo palizas que soy...

Aui en España (en Cádiz, precisamente) hay un torero bastante famoso,
Jesulin de Ubrique, que, aparte de por torero, es conocido por su
conocimiento de la gramática.

Esta faena tuya la calificaría con tres palabras: "Im pre
zionante"...
Gracias, Héctor
"Héctor Miguel" escribió en el mensaje
news:

hola, Navibel !

> ..ya se que no procede, pero aqui se ve lo que quiero hacer...

[parece que] solo era un 'error de semantica' [entre 'vertical' en una

fila y... ¿donde quedo la columna???] ;)

y ... no de buscar la columna 'libre' de cada fila sino la que 'ocupo'

[recientemente] la 'otra macro' ;)

=> cambia las lineas de codigo 'propuestas' a...
Application.ScreenUpdating = False
NumeroBol
Dim Fila As Integer, Col As Integer, Celda As Range
With Worksheets("CADIZ")
Col = .Range("iv3").End(xlToLeft).Column
For Fila = 37 To 49
Set Celda = .Columns("a").Find(What:=Worksheets("Boletin").Range("c"

& Fila), LookAt:=xlWhole)

If Celda Is Nothing Then
Set Celda = .Range("a65536").End(xlUp).Offset(1)
.Range(Celda.Address) = Worksheets("Boletin").Range("c" & Fila)
End If
.Cells(Celda.Row, Col) = Worksheets("Boletin").Range("r" & Fila)
Next
End With
Set Celda = Nothing

saludos,
hector.

hola, de nuevo ;) !

'entre' lo de... 'palizas'... y la calificacion 'de tres palabras'... :))
gracias a ti [por el 'feed-back' ... y... ¡ el buen humor !!!... que NUNCA 'esta de mas'] ;)
me alegra haber podido contribuir a tu solucion :)

saludos,
hector.