Filtreli veride, yalnızca görünen satırlara işlem yapma

[pNouma]

Kıymetli Hocalarım merhaba;

Veri filtreli iken, yalnızca görünen satırlarda veri değiştirmek mümkün müdür?

özetle aşağıdaki kod sadece görünen satırlarda çalışacak

Sub Degistir()

Dim i As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

    For i = 2 To LastRow
    
        If ActiveSheet.Cells(i, "E") Like "Bekliyor" Then
            ActiveSheet.Cells(i, "E") = "Ödendi"
        End If
        
    Next i

End Sub

yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar dilerim.

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Sub Degistir()
    Dim Bak As Long
    For Bak = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
        With ActiveSheet.Cells(Bak, "E")
            If .Text Like "Bekliyor" And Not .EntireRow.Hidden Then
                .Value = "Ödendi"
            End If
        End With
    Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Döngüsüsüz alternatif...

Option Explicit

Sub Replace_Data()
    Range("E2:E" & Rows.Count).SpecialCells(xlCellTypeVisible).Replace _
    What:="*Bekliyor*", Replacement:="Ödendi", LookAt:=xlWhole
End Sub

 

[pNouma]

Merhaba.
Deneyiniz.

Sub Degistir()
    Dim Bak As Long
    For Bak = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
        With ActiveSheet.Cells(Bak, "E")
            If .Text Like "Bekliyor" And Not .EntireRow.Hidden Then
                .Value = "Ödendi"
            End If
        End With
    Next
End Sub

Teşekkürler Muzaffer Hocam

 

[pNouma]

Merhaba,

Döngüsüsüz alternatif...

Option Explicit

Sub Replace_Data()
    Range("E2:E" & Rows.Count).SpecialCells(xlCellTypeVisible).Replace _
    What:="*Bekliyor*", Replacement:="Ödendi", LookAt:=xlWhole
End Sub

Teşekkürler Korhan Hocam,
iyi çalışmalar.

 

[alicimri]

Alternatif

Sub Makro1()
Range("E2:E" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible).Value = "Ödendi"
End Sub