Macro que corte y pegue una fila de una hoja a otra con una condición "IF"
Necesito con lo siguiente ... Ejemplo
En la hoja 1 tengo unos datos: en la columna a "nombre vendedor" columna b "ventas" columna c "metas de ventas " la columna b y c son datos numéricos .. Cada fila representa un vendedor con sus ventas y su meta en ventas .. Lo que quiero hacer es una macro que funcione con un boto y haga lo siguiente:
1) Que corte la fila del vendedor cuyas ventas sean iguales o mayores a sus metas y las pegue en la
Hoja 2 buscando la ultima fila disponible
Es todo ...
1 Respuesta
H o l a
te paso la macro
Sub copiar()
'//Por Adriel ortiz
Set h = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = 2
For i = h.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
If h.Cells(i, "B") >= h.Cells(i, "C") Then
h.Rows(i).Copy h2.Range("A" & j)
h.Rows(i).Delete
j = j + 1
End If
Next i
End Subvalora para finalizar saludos!
hola gracias por el aporte .. tengo una pregunta cuando se ejecuta la macro esta reemplazando los datos, cada vez que se ejecuto.
y no busca la ultima fila disponible y los pega .. como hago para que eso suceda .. y me valla acumulando la información en la hoja 2 .. mil gracias
Te paso la macro actualizada
Sub copiar()
'//Por Adriel ortiz
Set h = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = h.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If h.Cells(i, "B") >= h.Cells(i, "C") Then
h.Rows(i).Copy h2.Range("A" & j)
h.Rows(i).Delete
j = j + 1
End If
Next i
End Sub
