Este fórum está sendo desativado

[Angra]

Boa noite
Tenho uma macro que faz isso mas agora preciso de uma mais especifica, baseada em parâmetros de referencia

[babdallas]

Veja se ajuda

Código: Selecionar todos

Sub ApagarValor_babdallas()
    Dim Celula      As Range
    Dim lngP1       As Long
    Dim lngP2       As Long
    Dim lngCont     As Long

    With wshTeste
        lngP1 = .Range("AH3").Value2
        lngP2 = .Range("AO3").Value2
        lngCont = 1
        For Each Celula In .Range("AK7:Ak36")
            If lngCont = lngP1 Then Celula.Value2 = vbNullString
            lngCont = lngCont + 1
        Next Celula
        
        lngCont = 1
        For Each Celula In .Range("AL7:AL36")
            If lngCont = lngP2 Then Celula.Value2 = vbNullString
            lngCont = lngCont + 1
        Next Celula
    End With
End Sub

[Angra]

babdallas, acho que "faltou aquela..." mas tenho certeza que resolvera fácil, fácil o problema. No aguardo

[babdallas]

Só ajustar o codename da Planilha. Mudei de Plan1 para wshTeste.

[Angra]

Perfeito. Muito obrigado