Süzme ve bul değiştir makrosu

[ferhatgurbuz]

arkadaşlar kolay gelsin. H1 hücresinde olan veriyi H32 ile H1000 arayacak ve H2 hücresinde olan veri ile değiştirecek bir kod lazım. teşekkürler tekrar kolay gelsin.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False
For i = 32 To 1000

If Cells(1, "h") = Cells(i, "h") Then
Cells(i, "h") = Cells(2, "h")
Else
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub bul_değiştir_1967()
'Konu       :   H1 Hücresindeki Değeri Bul H2 ile Değiştir
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long
Application.ScreenUpdating = False
kral = WorksheetFunction.CountIf(Range("H32:H1000"), Range("H1"))
For asi = 32 To Cells(1000, "H").End(xlUp).Row
If Cells(asi, "H") = Range("H1") Then
Cells(asi, "H") = Range("H2")
End If: Next
Application.ScreenUpdating = True
MsgBox "( " & Range("H1") & " ) Arananından ( " & kral & " ) Kadarı Değiştirildi" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[ferhatgurbuz]

Teşekkür ederim. Kolay gelsin

 

[asi_kral]

Teşekkür ederim. Kolay gelsin

Kolay Gelsin.