درود.
میخام توی برنامه با زدن یک دکمه توی تمام شیت ها Replac کنم مثلا No رو به Mo توی تمام شیت ها ولی با این کد که خودم دارم فقط توی شیت فعال این کارو میکنه کدی هست که واسه تمام شیت ها این کارو کنه.
Private Sub CommandButton1_Click()
Sheets(i).Select
Cells.Replace What:="No", Replacement:="Mo", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub
راستی واسه VBA میخام با حلقه میشه یکی یکی شیت ها فعال کرد و این کارو کرد ولی دنبال یه راه بهترم کسی هست که بلد باشه.؟