'Enact the changes on the four Set 1 cellsĭISP_SHEET.Range(ARR(X + 14)).Value = DISP_SHEET.Range(ARR(X + 14)).Value + ARR(X + 20) TEXT = O.Offset(OFFSET_ROW, OFFSET_COLUMN) Set O = Sheet1.Range("C3:Z26").Find(WHAT:="O", LookAt:=xlWhole, MatchCase:=True) 'Set the range (Sheet1, C3 to Z26) in which to search for "O") Here's the code: Private Sub optChoice1_Click() NB: The exact changes made to the sets of cells are dependent on whether the 19th array value ("ARR(18)") is 0 or something else. Or, if changing the Set 1 and Set 2 cell values would result in any of them going below 0, shows a message box.Set 2: Four cells in another sheet ("DIR_SHEET").
Set 1: Four cells in one sheet ("DISP_SHEET").
Changes the values in two other "sets" of cells:.Then, based on values in this array (e.g.This cell is located through "OFFSET_ROW"Īnd "OFFSET_COLUMN" (defined in a separate public variable) and contains a text string that is split into an array (using the "\" character as a delimiter)
0 kommentar(er)
