Foros del Web » Soporte técnico » Ofimática »

Macro para copiar celdas con condición

Estas en el tema de Macro para copiar celdas con condición en el foro de Ofimática en Foros del Web. Buenos días/tardes/noches.. Por falta de conocimientos y tiempo para adquirirlos en este momento recurro a ustedes.. Desde ya mil gracias.. Estoy trabajando en un libro ...
  #1 (permalink)  
Antiguo 24/11/2013, 21:39
 
Fecha de Ingreso: marzo-2008
Mensajes: 3
Antigüedad: 11 años, 6 meses
Puntos: 0
Pregunta Macro para copiar celdas con condición

Buenos días/tardes/noches..
Por falta de conocimientos y tiempo para adquirirlos en este momento recurro a ustedes.. Desde ya mil gracias..

Estoy trabajando en un libro excel de stock, en la hoja "Stock" tengo una tabla cuyos datos abarcan A7:D56, con las columnas:
Concepto (A) Stock (C) Mínimo (D) Máximo (E)

.

Necesitaría una macro que copie el Concepto (A) y el resultado de la restar el máximo (E) menos el Stock (C) sólo de las celdas en la que el Stock (C) sea igual o menor al Mínimo (D), y pegarlos en la hoja "Lista de compras" con columnas:
Concepto (A) Cantidad (C)
cuya tabla abarca A6:C55, teniendo en cuenta que pueden existir datos por haber ejecutado la macro anteriormente, por lo que sería conveniente que se borren todos los valores de esta tabla manteniendo el formato de destino antes de realizar la copia.

Es esto posible?

Perdón a quien moleste y muchas gracias.
  #2 (permalink)  
Antiguo 29/11/2013, 07:52
Avatar de Perr0  
Fecha de Ingreso: mayo-2005
Ubicación: Santiago de Chile, Chile
Mensajes: 673
Antigüedad: 14 años, 3 meses
Puntos: 78
Respuesta: Macro para copiar celdas con condición

Hola Cocko, muchos tendrán respuesta a tu pregunta, pero la idea del foro es ayudar a la gente que tiene construido algo, por lo que estas pidiendo (partir de cero), creo es mas fácil que contrates los servicios de alguien?

saludos
__________________
Numerador Mp3 en Access =)
http://www.mediafire.com/download/r9...pdw/mp3(2).zip
  #3 (permalink)  
Antiguo 30/11/2013, 14:44
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Respuesta: Macro para copiar celdas con condición

Hola! Cocko (y Perr0)
Al no subir tu archivo de muestra, hay que estar adivinando -aproximadamente- un 68,32% de la información que se requiere para ayudarte.

Aún así, y si te esmeras depurando el código que te voy a mostrar, creo que podrás resolver tu problema:

Código PHP:
Sub a_Lista_de_Compras()
Dim Q&
Application.ScreenUpdating False
With Sheets
("Lista de compras")
  
WorksheetFunction.Max(7, .Cells(.Rows.Count"a").End(xlShiftUp).Row)
  .
Range("a6""c" Q).Delete xlShiftUp
End With
With ActiveSheet
  Q 
WorksheetFunction.Max(8, .Cells(.Rows.Count"a").End(xlUp).Row) - 6
  Workbooks
.Add xlWBATWorksheet
  
[a1:e1].Resize(Q) = .[a7:e7].Resize(Q).Value
  
[c1].Resize(Q).Insert xlShiftToRight
  
[c1] = "Cantidad"
  
[h2] = "=D2<=E2"
  
With [c2].Resize(1)
    .
Formula "=f2 - d2"
    
.Value = .Value
  End With
  Range
("a1:e" Q).AdvancedFilter 2, [h1:h2], [j1], False
  With 
.Parent.Sheets("Lista de compras")
    If [
j2] <> "" Then [j1].CurrentRegion.Resize(, 3).Copy .[a6]
    
ActiveWorkbook.Close False
    Application
.Goto .[a6]
  
End With
End With
Application
.ScreenUpdating True
End Sub 
Saludos, Cacho R.

Etiquetas: excel, macro, macros, stock
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:51.