Convertir a valores
Hola,
¿Me podrías ayudar con una macro que todas las celdas que estén de un color las convierta a valores? Por favor
Gracias
Saludos
¿Me podrías ayudar con una macro que todas las celdas que estén de un color las convierta a valores? Por favor
Gracias
Saludos
1 respuesta
Respuesta de gualo
1
Sorry, el color 6 es amarillo, serán las celdas que convierta en valor, puedes usar otro color que tú gustes.
Prueba esto:
Sub Valores()
FILAS = 10
COLUMNAS = 4
For I = 1 To FILAS
For J = 1 To COLUMNAS
Cells(I, J).Select
fila = ActiveCell.Row
col = ActiveCell.Column
If ActiveCell.Interior.ColorIndex = 6 Then
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next J
Next I
End Sub
Sub Valores()
FILAS = 10
COLUMNAS = 4
For I = 1 To FILAS
For J = 1 To COLUMNAS
Cells(I, J).Select
fila = ActiveCell.Row
col = ActiveCell.Column
If ActiveCell.Interior.ColorIndex = 6 Then
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next J
Next I
End Sub
