excel vba - run-time error 13 with code - Clearing Contents of cells -
I currently have a spreadsheet that tells me whether an associate is chosen for the journey when I I clean the material on the cell so I am fine, but if I clean more than one cell at a time, I get a run-time error 13. Is there any way to remove this error?
The sub-worksheet's flag (Voltage target as the range) is not variable as dim res, if there is no difference (target, range ("A5: A550")) then anything Not res = application.CountIfs (range ("A5: A550"), target, _ range ("M5: M550"), "Associate") If not then ether (RAC) again if register & gt; 0 then MsgBox "You have chosen an ally for this trip!" End end if ending sub
unchecked:
Sub-worksheet tags (Volt targets in the form of range) dim res such as variant, Sea Range, range range, I have long set RNG = app Insases (target, m range ("A5: A550")) If RNG is nothing then I = 0 in each c. Rng.cells res = Application.CountIfs (range ("A5: A550"), C. Well , _ Range ("M5: M 550"), "Associate") If not then ether (RSC) then if res & gt; 0 then i = i + 1 end if the next c if i> 0 Then MSBBC "You have chosen a colleague" & amp; _If (i = 1, "this trip!", I & amp; "these trips!") End if end ends
Comments
Post a Comment