Macro para traer datos desde un CVS a un libro Excel

hola, Flor !

partiendo de lo siguiente conocido:

>> 2.- El comentario es un comentario de celda (menu->insertar->comentario).
>> Estos comentarios estan a lo largo de todo el libro, por ejemplo desde la B21 hasta la N167...
>> 3.- El contenido de la columna G del CSV solo se asigna en la celda del libro de pedido
>> cuyo comentario coincida con el codigo del producto que esta en la columna C del CSV.

y de tu argumentacion en este mensaje:> Requiero comparar con un macro que corra en el Libro de Pedidos algo asi (esto sería dentro de un For):
> Si Worksheets(Hoja).Range(celda).Comment.Text =  Archivo CSV.ColumnaC Entonces

            Worksheets(Hoja).Range(celda) = Archivo CSV.ColumnaG

> Es decir, traerse los datos del CSV al Libro de Pedidos.

lo que pides seria algo +/- como lo siguiente:
se asume que el archivo *.csv ya esta abierto y permanece como el libro activo <= OJO

  dim celda as range, comentario as string
  for each celda in workbooks("libro de pedidos").worksheets("hoja de pedidos").range("b21:n167")
    comentario = celda.comment.text
    with application
      if .countif(range("c:c"), comentario) then
        celda = .index(range("g:g"), match(comentario, range("c:c"), 0))
      end if
    end with
  next

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

No me reconoce la funcion match la cambié por coincidir pero tampoco la toma.
Qu3 se debe hacer en este caso? Gracias.

partiendo de lo siguiente conocido:

Mostrar la cita

Mostrar la cita

2.- El comentario es un comentario de celda (menu->insertar->comentario).
Estos comentarios estan a lo largo de todo el libro, por ejemplo desde la B21 hasta la N167...
3.- El contenido de la columna G del CSV solo se asigna en la celda del libro de pedido
cuyo comentario coincida con el codigo del producto que esta en la columna C del CSV.

y de tu argumentacion en este mensaje:
Mostrar la cita

Mostrar la cita

Requiero comparar con un macro que corra en el Libro de Pedidos algo asi (esto sería dentro de un For):
Si Worksheets(Hoja).Range(celda).Comment.Text = Archivo CSV.ColumnaC Entonces
Worksheets(Hoja).Range(celda) = Archivo CSV.ColumnaG
Es decir, traerse los datos del CSV al Libro de Pedidos.

lo que pides seria algo +/- como lo siguiente:
se asume que el archivo *.csv ya esta abierto y permanece como el libro activo <= OJO

dim celda as range, comentario as string
for each celda in workbooks("libro de pedidos").worksheets("hoja de pedidos").range("b21:n167")
comentario = celda.comment.text
with application
if .countif(range("c:c"), comentario) then
celda = .index(range("g:g"), match(comentario, range("c:c"), 0))
end if
end with
next

hola, Flor !

> No me reconoce la funcion match la cambié por coincidir pero tampoco la toma.
> Qu3 se debe hacer en este caso? Gracias.

perdon, hay un ligero error "tipografico" en la propuesta
cambia esta parte del codigo:
de: -> celda = .index(range("g:g"), match(comentario, range("c:c"), 0))
  a: -> celda = .index(range("g:g"), .match(comentario, range("c:c"), 0))

me he "comido" un punto ANTES de llamar a la funcion    :-((

saludos,
hector.

__ OP __



> partiendo de lo siguiente conocido:

>>> 2.- El comentario es un comentario de celda (menu->insertar->comentario).
>>> Estos comentarios estan a lo largo de todo el libro, por ejemplo desde la B21 hasta la N167...
>>> 3.- El contenido de la columna G delCSVsolo se asigna en la celda del libro de pedido
>>> cuyo comentario coincida con el codigo del producto que esta en la columna C delCSV.

> y de tu argumentacion en este mensaje:
>>> Requiero comparar con un macro que corra en el Libro de Pedidos algo asi (esto sería dentro de un For):
>>> Si Worksheets(Hoja).Range(celda).Comment.Text = ArchivoCSV.ColumnaC Entonces
>>> Worksheets(Hoja).Range(celda) = ArchivoCSV.ColumnaG
>>> Es decir, traerse los datos delCSVal Libro de Pedidos.

> lo que pides seria algo +/- como lo siguiente:
> se asume que el archivo *.csvya esta abierto y permanece como el libro activo <= OJO

> dim celda as range, comentario as string
> for each celda in workbooks("libro de pedidos").worksheets("hoja de pedidos").range("b21:n167")
> comentario = celda.comment.text
> with application
> if .countif(range("c:c"), comentario) then
> celda = .index(range("g:g"), match(comentario, range("c:c"), 0))
> end if
> end with
> next- Ocultar texto de la cita -

- Mostrar texto de la cita -