Un poco de ayuda...

01/05/2004 - 11:53 por todavianosequeponer | Informe spam

voy haciendo poco a poco mi aplicación, pero esto no me sale. Seguro que
alguno de vosotros no tiene inconveniente en ayudarme...

Lo que deseo hacer es una macro que mire los rangos de la hoja "Albaran",
A:5 A:10 (codigos) y C5:C10 (unidades) y que los lleve a la hoja "Totales"
de esta forma:
-Los "códigos" a la columna "A", evaluando si en esa columna ya existe ese
código. Si ya existe, la macro debe ir 6 celdas a su derecha y pegar ahi las
"unidades" de ese código. Si no existe, pegarlo en la primera celda en
blanco de esa columna y las unidades lo mismo, en la celda 6ª de su derecha.

La macro se ejecutáría con un botón, no automáticamente al introducir el
código...

Gracia por vuestra ayuda..

Siga el debate

10 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Héctor Miguel

01/05/2004 - 13:01 | Informe spam

hola, todavianosequeponer ! [¿vulcano?] =>a ver si ya 'pones' algo'<= :))

... macro que ... de la hoja 'Albaran', A:5 A:10 (codigos) y C5:C10 (unidades) ... los lleve a la hoja 'Totales'
... 'codigos' a la columna 'A' ... si ... ese codigo ... ya existe ... 6 celdas a su derecha pegar las 'unidades'
... si no existe, pegarlo en la primera celda en blanco de esa columna y las unidades ... en la ... 6ª ... derecha [...]

una forma [si he entendido bien] ... pega las siguientes lineas al codigo que la 'asignes' al boton...
Dim Fila As Integer, Celda As Range
For Fila = 5 To 10
With Worksheets("Totales")
Set Celda = .Columns("a").Find(What:=Worksheets("Albaran").Range("a" & Fila))
If Celda Is Nothing Then
Set Celda = .Range("a65536").End(xlUp).Offset(1)
.Range(Celda.Address) = Worksheets("Albaran").Range("a" & Fila)
End If
.Range(Celda.Address).Offset(, 6) = Worksheets("Albaran").Range("c" & Fila)
End With
Next
Set Celda = Nothing

¿comentas?
saludos,
hector.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :