Private Sub CommandButton1_Click()For Each cell In Range("table1")If cell.Value > Range("m6") Thencell.Value = Range("m7")End IfNextEnd Sub
کامنت