Merhaba daha önce buna benzer konu açmıştım. Kod üzerinde biraz düzenleme yapmam gerekiyor. kodum şöyle
Sub toplam_yerel()
For e = 1 To Sheets.Count
Sheets(e).Activate
If Application.CountIf(Cells, "yerel") > 0 Then
For i = 1 To Application.CountIf(Cells, "yerel")
Cells.Find(What:="yerel"...