Cómo copiar y pegar el valor de una celda; si la celda contiene más de 0, péguela en otra celda mediante un bucle

Question

necesito copiarC74Celúla

Luego pegar enC85 a C88

Condición 1: ¿Qué celda tiene más de 0? No es necesario pegar

Condición 2: qué celda tiene 0, luego pegue el valor C74.

*No es necesario pegar en todas las celdas que tengan 0

*Simplemente pegue el Valor en la primera celda que contenga 0.

Lo pruebo para hasta 2 celdas. Pero lo necesito para hasta 4 celdas.

Alguien me orienta..

Sub TIMECALC()
ActiveSheet.Range("C74").Copy
If ActiveSheet.Range("C85").Value > 0 Then ActiveSheet.Range("C86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False Else ActiveSheet.Range("C85").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Quebrar

Answer 1

Úselo For Each...para recorrer el rango C85:C88, haga la comparación si el valor de esas celdas es mayor que 0. Luego pegue el contenido/valor de C74 si es verdadero.

Sub Calc()

    'Copy the cell
    Range("C74").Copy
    'Loop through each cell of the range
    For Each cell In Range("C85:C88")
        If cell.Value = 0 Then
            'Paste copied value
            cell.PasteSpecial Paste:=xlPasteValues
            'Exit the loop
            Exit For
        End If

    Next
End Sub