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.
1 Respuesta
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
