Modificar una Macro para que copie también alguna celda que tiene un valor oculto
Necesito que en una macro que inserta una fila y copia celdas con fórmulas, también lo haga con alguna determinada celda que no tiene fórmula pero si tiene un valor oculto con el color de la fuente.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub InsertarFila()
'Por.Dante Amor
Application.ScreenUpdating = False
Set celda = ActiveCell
If celda.Value = "" Then
MsgBox "Selecciona una celda con datos"
Exit Sub
End If
If celda.Column <> 1 Then
MsgBox "Selecciona una celda de la columna 'A'"
Exit Sub
End If
If celda.Row < 6 Then
MsgBox "Selecciona una celda de la fila 6 en adelante"
Exit Sub
End If
'
'existe = False
'For Each c In Range("B" & celda.Row & ":Z" & celda.Row)
' If c.HasFormula Then
' existe = True
' Exit For
' End If
'Next
'If existe = False Then
' MsgBox "La fila seleccionada no contiene fórmulas"
' Exit Sub
'End If
'
ActiveSheet.Unprotect "amascuat"
filas = 0
If celda.MergeCells Then
filas = celda.MergeArea.Rows.Count - 1
End If
f = celda.Row
Do While Cells(f, "A") <> "" Or Cells(f, "A").MergeCells = True
f = f + 1
Loop
'
Rows(celda.Row & ":" & celda.Row + filas).Copy
n = f - 1 - filas
Rows(n).Insert Shift:=xlDown
For Each c In Range("A" & f & ":Z" & f + filas)
If c.HasFormula = False And c.Column <> 2 Then
c.Value = ""
End If
Next
ActiveSheet.Protect "amascuat"
Application.CutCopyMode = False
End Sub
