Copiar Datos que no sean cero

Hola Fernanda

Revisa estos dos macros,

1. copia los datos que son difentes de cero

Sub diferentedecero()
Dim c(20) As Integer
b = 1
For Each celda In Range("A1:A20")
If celda <> 0 Then
Cells(b, 2) = celda
b = b + 1
MsgBox "Valor Copiado: " & celda & Chr(13) & "fila #: " &
celda.Row, , "NUMERO COPIADO"
End If
Next
End Sub


2. copia los valores que son diferentes de numeros

Sub diferentedenumero()
Dim c(20) As Integer
b = 1
For Each celda In Range("A1:A20")
If Not IsNumeric(celda) Then
Cells(b, 2) = celda
b = b + 1
MsgBox "Valor Copiado: " & celda & Chr(13) & "fila #: " &
celda.Row, , "NUMERO COPIADO"
End If
Next
End Sub

Espero te sirva y Cualquier aporte al codigo bienvenido.

ha escrito:

Hola, tengo en la columna A en el Rango (A1:A20), lo siguiente:

6
5
0
A
8
F
0
0
R


1. Cómo puedo realizar una macro que me copie todos los valores
diferentes de cero (No que borre las filas, sólo que copie los
valores) y los pegue en la columna B y una vez que se encuentren en la
columna B, aparezca un Msgbox retomando cada uno de los valores (es
decir, serían 6 Msgbox con el valor de cada celda copiada en la
columna B)


2. Otra macro igual a la anterior, sólo que copie todos los valores
del rango, que sean sólo letras, sin tomar en cuenta los números ni
los valores cero.


Espero me puedan ayudar con sus valiosas aportaciones.