Inserir dados com Loop em um filtro (Excel)

[distrutor]

Boa tarde Pessoal,

Preciso de uma ajuda, creio que não seja tão difícil, mas estou apanhando um pouco.

Em uma planilha com algumas colunas, faço um filtro na coluna "C", depois de fazer esse filtro quero inserir rodar uma macro que inseria a palavra "OK" na coluna "D", mas somente onde filtrei...

Tentei fazer um Loop mas não deu certo, ele insere o "OK" em todas as linhas, com e sem o filtro.

O problema é que quando uso o Loop, ele lê da linha x até a linha y, quero que ele leia somente as linhas visiveis (com filtro).

Desculpem se não fui claro, é que agora não consigo postar a planilha para melhor entendimento.

Obrigado desde já!!!

[zinhovba]

Boa tarde!!

Veja..

Sub ZinhoVBA_Filtrar()

Set Rng = Range("A1:C1000")
With Rng
    .AutoFilter Field:=3, Criteria1:="ZinhoVBA"
    .Columns(4).Offset(1, 0).Resize(Rng.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).Value = "OK"
    .AutoFilter
End With

End Sub

[distrutor]

Boa tarde!!

Veja..

Sub ZinhoVBA_Filtrar()

Set Rng = Range("A1:C1000")
With Rng
    .AutoFilter Field:=3, Criteria1:="ZinhoVBA"
    .Columns(4).Offset(1, 0).Resize(Rng.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).Value = "OK"
    .AutoFilter
End With

End Sub

Bom dia zinhavba,

Cara, era isso mesmo que eu precisava!!! Só fiz algumas mudanças para adaptar a planilha que realmente vou utilizar e deixei a range um pouco mais dinamica. Segue abaixo como ficou:

Sub ZinhoVBA_Filtrar()

Dim ulinha As Long
ulinha = Range("A65536").End(xlUp).Row

Set Rng = Range("A1:F" & ulinha)
With Rng
    .AutoFilter Field:=6, Criteria1:="C"
    .Columns(7).Offset(1, 0).Resize(Rng.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible).Value = "OK"
    .AutoFilter
End With

End Sub

Obrigado pela ajuda!!!

Abraços.

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.