Anónimo
Macro para copiar y pegar distintos valores según lo que contenga
Necesito una macro que realice lo siguiente,
Pongo un ejemplo para que sea más claro.
Quiero copiar de la columna A a la B, y si ya tengo valores que no me lo modifique los deje como están ejemplo celdas 5, 6, 9.
Lo que contenga AU más lo que tenga detrás que me lo copie a la columna B, ejemplo AUZZCC1234 lo copie a la columna B.
También necestio las siguientes letras: BN, ID, JK, KU, MY, PG, SG, VN, todo lo que empiece con estas letras que me lo copie en la columna B.
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro
Sub COPIAR_COLUMNA()
INICIALES = Array("AU", "BN", "ID", "JK", "KU", "MY", "PG", "SG", "VN")
Set DATOS = Range("A1").CurrentRegion
With DATOS
R = .Rows.Count: C = .Columns.Count
For I = 1 To R
FILA = vbNullString
CELDA = .Cells(I, 1)
VACIO = .Cells(I, 2) <> vbNullString
If VACIO Then GoTo SALTA
INIC = Left(CELDA, 2)
On Error Resume Next
FILA = WorksheetFunction.Match(INIC, INICIALES, 0)
XERROR = Err.Number > 0
If XERROR Then GoTo SALTA
On Error GoTo 0
.Cells(I, 2).Value = .Cells(I, 1).Value
SALTA:
Next I
End With
set datos=nothing
End Sub