PDA

View Full Version : Procedure Too Large


jamesmev
05-18-2016, 10:21 AM
I am an Excel Novice... I am trying to run this code and I am getting an error. I don't know how to shorten and still get the results needed. Please help!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("C26").Address Then _
Range("J6").Value = 1
If Target.Address = Range("C27").Address Then _
Range("J6").Value = 2
If Target.Address = Range("C28").Address Then _
Range("J6").Value = 3
If Target.Address = Range("C29").Address Then _
Range("J6").Value = 4
If Target.Address = Range("C30").Address Then _
Range("J6").Value = 5
If Target.Address = Range("C31").Address Then _
Range("J6").Value = 6
If Target.Address = Range("C32").Address Then _
Range("J6").Value = 7
If Target.Address = Range("C33").Address Then _
Range("J6").Value = 8
If Target.Address = Range("C34").Address Then _
Range("J6").Value = 9
If Target.Address = Range("C35").Address Then _
Range("J6").Value = 10
If Target.Address = Range("C36").Address Then _
Range("J6").Value = 11
If Target.Address = Range("C37").Address Then _
Range("J6").Value = 12
If Target.Address = Range("C38").Address Then _
Range("J6").Value = 13
If Target.Address = Range("C39").Address Then _
Range("J6").Value = 14
If Target.Address = Range("C40").Address Then _
Range("J6").Value = 15
If Target.Address = Range("C41").Address Then _
Range("J6").Value = 16
If Target.Address = Range("C42").Address Then _
Range("J6").Value = 17
If Target.Address = Range("C43").Address Then _
Range("J6").Value = 18
If Target.Address = Range("C44").Address Then _
Range("J6").Value = 19
If Target.Address = Range("C45").Address Then _
Range("J6").Value = 20
If Target.Address = Range("C46").Address Then _
Range("J6").Value = 21
If Target.Address = Range("C47").Address Then _
Range("J6").Value = 22
If Target.Address = Range("C48").Address Then _
Range("J6").Value = 23
If Target.Address = Range("C49").Address Then _
Range("J6").Value = 24
If Target.Address = Range("C50").Address Then _
Range("J6").Value = 25
If Target.Address = Range("C51").Address Then _
Range("J6").Value = 26
If Target.Address = Range("C52").Address Then _
Range("J6").Value = 27
If Target.Address = Range("C53").Address Then _
Range("J6").Value = 28
If Target.Address = Range("C54").Address Then _
Range("J6").Value = 29
If Target.Address = Range("C55").Address Then _
Range("J6").Value = 30
If Target.Address = Range("C56").Address Then _
Range("J6").Value = 31
If Target.Address = Range("C57").Address Then _
Range("J6").Value = 32
If Target.Address = Range("C58").Address Then _
Range("J6").Value = 33
If Target.Address = Range("C59").Address Then _
Range("J6").Value = 34
If Target.Address = Range("C60").Address Then _
Range("J6").Value = 35
If Target.Address = Range("C61").Address Then _
Range("J6").Value = 36
If Target.Address = Range("C62").Address Then _
Range("J6").Value = 37
If Target.Address = Range("C63").Address Then _
Range("J6").Value = 38
If Target.Address = Range("C64").Address Then _
Range("J6").Value = 39
If Target.Address = Range("C65").Address Then _
Range("J6").Value = 40
If Target.Address = Range("C66").Address Then _
Range("J6").Value = 41
If Target.Address = Range("C67").Address Then _
Range("J6").Value = 42
If Target.Address = Range("C68").Address Then _
Range("J6").Value = 43
If Target.Address = Range("C69").Address Then _
Range("J6").Value = 44
If Target.Address = Range("C70").Address Then _
Range("J6").Value = 45
If Target.Address = Range("C71").Address Then _
Range("J6").Value = 46
If Target.Address = Range("C72").Address Then _
Range("J6").Value = 47
If Target.Address = Range("C73").Address Then _
Range("J6").Value = 48
If Target.Address = Range("C74").Address Then _
Range("J6").Value = 49
If Target.Address = Range("C75").Address Then _
Range("J6").Value = 50
If Target.Address = Range("C76").Address Then _
Range("J6").Value = 51
If Target.Address = Range("C77").Address Then _
Range("J6").Value = 52
If Target.Address = Range("C78").Address Then _
Range("J6").Value = 53
If Target.Address = Range("C79").Address Then _
Range("J6").Value = 54
If Target.Address = Range("C80").Address Then _
Range("J6").Value = 55
If Target.Address = Range("C81").Address Then _
Range("J6").Value = 56
If Target.Address = Range("C82").Address Then _
Range("J6").Value = 57
If Target.Address = Range("C83").Address Then _
Range("J6").Value = 58
If Target.Address = Range("C84").Address Then _
Range("J6").Value = 59
If Target.Address = Range("C85").Address Then _
Range("J6").Value = 60
If Target.Address = Range("C86").Address Then _
Range("J6").Value = 61
If Target.Address = Range("C87").Address Then _
Range("J6").Value = 62
If Target.Address = Range("C88").Address Then _
Range("J6").Value = 63
If Target.Address = Range("C89").Address Then _
Range("J6").Value = 64
If Target.Address = Range("C90").Address Then _
Range("J6").Value = 65
If Target.Address = Range("C91").Address Then _
Range("J6").Value = 66
If Target.Address = Range("C92").Address Then _
Range("J6").Value = 67
If Target.Address = Range("C93").Address Then _
Range("J6").Value = 68
If Target.Address = Range("C94").Address Then _
Range("J6").Value = 69
If Target.Address = Range("C95").Address Then _
Range("J6").Value = 70
If Target.Address = Range("C96").Address Then _
Range("J6").Value = 71
If Target.Address = Range("C97").Address Then _
Range("J6").Value = 72
If Target.Address = Range("C98").Address Then _
Range("J6").Value = 73
If Target.Address = Range("C99").Address Then _
Range("J6").Value = 74
If Target.Address = Range("C100").Address Then _
Range("J6").Value = 75
If Target.Address = Range("C101").Address Then _
Range("J6").Value = 76
If Target.Address = Range("C102").Address Then _
Range("J6").Value = 77
If Target.Address = Range("C103").Address Then _
Range("J6").Value = 78
If Target.Address = Range("C104").Address Then _
Range("J6").Value = 79
If Target.Address = Range("C105").Address Then _
Range("J6").Value = 80
If Target.Address = Range("C106").Address Then _
Range("J6").Value = 81
If Target.Address = Range("C107").Address Then _
Range("J6").Value = 82
If Target.Address = Range("C108").Address Then _
Range("J6").Value = 83
If Target.Address = Range("C109").Address Then _
Range("J6").Value = 84
If Target.Address = Range("C110").Address Then _
Range("J6").Value = 85
If Target.Address = Range("C111").Address Then _
Range("J6").Value = 86
If Target.Address = Range("C112").Address Then _
Range("J6").Value = 87
If Target.Address = Range("C113").Address Then _
Range("J6").Value = 88
If Target.Address = Range("C114").Address Then _
Range("J6").Value = 89
If Target.Address = Range("C115").Address Then _
Range("J6").Value = 90
If Target.Address = Range("C116").Address Then _
Range("J6").Value = 91
If Target.Address = Range("C117").Address Then _
Range("J6").Value = 92
If Target.Address = Range("C118").Address Then _
Range("J6").Value = 93
If Target.Address = Range("C119").Address Then _
Range("J6").Value = 94
If Target.Address = Range("C120").Address Then _
Range("J6").Value = 95
If Target.Address = Range("C121").Address Then _
Range("J6").Value = 96
If Target.Address = Range("C122").Address Then _
Range("J6").Value = 97
If Target.Address = Range("C123").Address Then _
Range("J6").Value = 98
If Target.Address = Range("C124").Address Then _
Range("J6").Value = 99
If Target.Address = Range("C125").Address Then _
Range("J6").Value = 100
If Target.Address = Range("C126").Address Then _
Range("J6").Value = 101
If Target.Address = Range("C127").Address Then _
Range("J6").Value = 102
If Target.Address = Range("C128").Address Then _
Range("J6").Value = 103
If Target.Address = Range("C129").Address Then _
Range("J6").Value = 104
If Target.Address = Range("C130").Address Then _
Range("J6").Value = 105
If Target.Address = Range("C131").Address Then _
Range("J6").Value = 106
If Target.Address = Range("C132").Address Then _
Range("J6").Value = 107
If Target.Address = Range("C133").Address Then _
Range("J6").Value = 108
If Target.Address = Range("C134").Address Then _
Range("J6").Value = 109
If Target.Address = Range("C135").Address Then _
Range("J6").Value = 110
If Target.Address = Range("C136").Address Then _
Range("J6").Value = 111
If Target.Address = Range("C137").Address Then _
Range("J6").Value = 112
If Target.Address = Range("C138").Address Then _
Range("J6").Value = 113
If Target.Address = Range("C139").Address Then _
Range("J6").Value = 114
If Target.Address = Range("C140").Address Then _
Range("J6").Value = 115
If Target.Address = Range("C141").Address Then _
Range("J6").Value = 116
If Target.Address = Range("C142").Address Then _
Range("J6").Value = 117
If Target.Address = Range("C143").Address Then _
Range("J6").Value = 118
If Target.Address = Range("C144").Address Then _
Range("J6").Value = 119
If Target.Address = Range("C145").Address Then _
Range("J6").Value = 120
If Target.Address = Range("C146").Address Then _
Range("J6").Value = 121
If Target.Address = Range("C147").Address Then _
Range("J6").Value = 122
If Target.Address = Range("C148").Address Then _
Range("J6").Value = 123
If Target.Address = Range("C149").Address Then _
Range("J6").Value = 124
If Target.Address = Range("C150").Address Then _
Range("J6").Value = 125
If Target.Address = Range("C151").Address Then _
Range("J6").Value = 126
If Target.Address = Range("C152").Address Then _
Range("J6").Value = 127
If Target.Address = Range("C153").Address Then _
Range("J6").Value = 128
If Target.Address = Range("C154").Address Then _
Range("J6").Value = 129
If Target.Address = Range("C155").Address Then _
Range("J6").Value = 130
If Target.Address = Range("C156").Address Then _
Range("J6").Value = 131
If Target.Address = Range("C157").Address Then _
Range("J6").Value = 132
If Target.Address = Range("C158").Address Then _
Range("J6").Value = 133
If Target.Address = Range("C159").Address Then _
Range("J6").Value = 134
If Target.Address = Range("C160").Address Then _
Range("J6").Value = 135
If Target.Address = Range("C161").Address Then _
Range("J6").Value = 136
If Target.Address = Range("C162").Address Then _
Range("J6").Value = 137
If Target.Address = Range("C163").Address Then _
Range("J6").Value = 138
If Target.Address = Range("C164").Address Then _
Range("J6").Value = 139
If Target.Address = Range("C165").Address Then _
Range("J6").Value = 140
If Target.Address = Range("C166").Address Then _
Range("J6").Value = 141
If Target.Address = Range("C167").Address Then _
Range("J6").Value = 142
If Target.Address = Range("C168").Address Then _
Range("J6").Value = 143
If Target.Address = Range("C169").Address Then _
Range("J6").Value = 144
If Target.Address = Range("C170").Address Then _
Range("J6").Value = 145
If Target.Address = Range("C171").Address Then _
Range("J6").Value = 146
If Target.Address = Range("C172").Address Then _
Range("J6").Value = 147
If Target.Address = Range("C173").Address Then _
Range("J6").Value = 148
If Target.Address = Range("C174").Address Then _
Range("J6").Value = 149
If Target.Address = Range("C175").Address Then _
Range("J6").Value = 150
If Target.Address = Range("C176").Address Then _
Range("J6").Value = 151
If Target.Address = Range("C177").Address Then _
Range("J6").Value = 152
If Target.Address = Range("C178").Address Then _
Range("J6").Value = 153
If Target.Address = Range("C179").Address Then _
Range("J6").Value = 154
If Target.Address = Range("C180").Address Then _
Range("J6").Value = 155
If Target.Address = Range("C181").Address Then _
Range("J6").Value = 156
If Target.Address = Range("C182").Address Then _
Range("J6").Value = 157
If Target.Address = Range("C183").Address Then _
Range("J6").Value = 158
If Target.Address = Range("C184").Address Then _
Range("J6").Value = 159
If Target.Address = Range("C185").Address Then _
Range("J6").Value = 160
If Target.Address = Range("C186").Address Then _
Range("J6").Value = 161
If Target.Address = Range("C187").Address Then _
Range("J6").Value = 162
If Target.Address = Range("C188").Address Then _
Range("J6").Value = 163
If Target.Address = Range("C189").Address Then _
Range("J6").Value = 164
If Target.Address = Range("C190").Address Then _
Range("J6").Value = 165
If Target.Address = Range("C191").Address Then _
Range("J6").Value = 166
If Target.Address = Range("C192").Address Then _
Range("J6").Value = 167
If Target.Address = Range("C193").Address Then _
Range("J6").Value = 168
If Target.Address = Range("C194").Address Then _
Range("J6").Value = 169
If Target.Address = Range("C195").Address Then _
Range("J6").Value = 170
If Target.Address = Range("C196").Address Then _
Range("J6").Value = 171
If Target.Address = Range("C197").Address Then _
Range("J6").Value = 172
If Target.Address = Range("C198").Address Then _
Range("J6").Value = 173
If Target.Address = Range("C199").Address Then _
Range("J6").Value = 174
If Target.Address = Range("C200").Address Then _
Range("J6").Value = 175
If Target.Address = Range("C201").Address Then _
Range("J6").Value = 176
If Target.Address = Range("C202").Address Then _
Range("J6").Value = 177
If Target.Address = Range("C203").Address Then _
Range("J6").Value = 178
If Target.Address = Range("C204").Address Then _
Range("J6").Value = 179
If Target.Address = Range("C205").Address Then _
Range("J6").Value = 180
If Target.Address = Range("C206").Address Then _
Range("J6").Value = 181
If Target.Address = Range("C207").Address Then _
Range("J6").Value = 182
If Target.Address = Range("C208").Address Then _
Range("J6").Value = 183
If Target.Address = Range("C209").Address Then _
Range("J6").Value = 184
If Target.Address = Range("C210").Address Then _
Range("J6").Value = 185
If Target.Address = Range("C211").Address Then _
Range("J6").Value = 186
If Target.Address = Range("C212").Address Then _
Range("J6").Value = 187
If Target.Address = Range("C213").Address Then _
Range("J6").Value = 188
If Target.Address = Range("C214").Address Then _
Range("J6").Value = 189
If Target.Address = Range("C215").Address Then _
Range("J6").Value = 190
If Target.Address = Range("C216").Address Then _
Range("J6").Value = 191
If Target.Address = Range("C217").Address Then _
Range("J6").Value = 192
If Target.Address = Range("C218").Address Then _
Range("J6").Value = 193
If Target.Address = Range("C219").Address Then _
Range("J6").Value = 194
If Target.Address = Range("C220").Address Then _
Range("J6").Value = 195
If Target.Address = Range("C221").Address Then _
Range("J6").Value = 196
If Target.Address = Range("C222").Address Then _
Range("J6").Value = 197
If Target.Address = Range("C223").Address Then _
Range("J6").Value = 198
If Target.Address = Range("C224").Address Then _
Range("J6").Value = 199
If Target.Address = Range("C225").Address Then _
Range("J6").Value = 200
If Target.Address = Range("C226").Address Then _
Range("J6").Value = 201
If Target.Address = Range("C227").Address Then _
Range("J6").Value = 202
If Target.Address = Range("C228").Address Then _
Range("J6").Value = 203
If Target.Address = Range("C229").Address Then _
Range("J6").Value = 204
If Target.Address = Range("C230").Address Then _
Range("J6").Value = 205
If Target.Address = Range("C231").Address Then _
Range("J6").Value = 206
If Target.Address = Range("C232").Address Then _
Range("J6").Value = 207
If Target.Address = Range("C233").Address Then _
Range("J6").Value = 208
If Target.Address = Range("C234").Address Then _
Range("J6").Value = 209
If Target.Address = Range("C235").Address Then _
Range("J6").Value = 210
If Target.Address = Range("C236").Address Then _
Range("J6").Value = 211
If Target.Address = Range("C237").Address Then _
Range("J6").Value = 212
If Target.Address = Range("C238").Address Then _
Range("J6").Value = 213
If Target.Address = Range("C239").Address Then _
Range("J6").Value = 214
If Target.Address = Range("C240").Address Then _
Range("J6").Value = 215
If Target.Address = Range("C241").Address Then _
Range("J6").Value = 216
If Target.Address = Range("C242").Address Then _
Range("J6").Value = 217
If Target.Address = Range("C243").Address Then _
Range("J6").Value = 218
If Target.Address = Range("C244").Address Then _
Range("J6").Value = 219
If Target.Address = Range("C245").Address Then _
Range("J6").Value = 220
If Target.Address = Range("C246").Address Then _
Range("J6").Value = 221
If Target.Address = Range("C247").Address Then _
Range("J6").Value = 222
If Target.Address = Range("C248").Address Then _
Range("J6").Value = 223
If Target.Address = Range("C249").Address Then _
Range("J6").Value = 224
If Target.Address = Range("C250").Address Then _
Range("J6").Value = 225
If Target.Address = Range("C251").Address Then _
Range("J6").Value = 226
If Target.Address = Range("C252").Address Then _
Range("J6").Value = 227
If Target.Address = Range("C253").Address Then _
Range("J6").Value = 228
If Target.Address = Range("C254").Address Then _
Range("J6").Value = 229
If Target.Address = Range("C255").Address Then _
Range("J6").Value = 230
If Target.Address = Range("C256").Address Then _
Range("J6").Value = 231
If Target.Address = Range("C257").Address Then _
Range("J6").Value = 232
If Target.Address = Range("C258").Address Then _
Range("J6").Value = 233
If Target.Address = Range("C259").Address Then _
Range("J6").Value = 234
If Target.Address = Range("C260").Address Then _
Range("J6").Value = 235
If Target.Address = Range("C261").Address Then _
Range("J6").Value = 236
If Target.Address = Range("C262").Address Then _
Range("J6").Value = 237
If Target.Address = Range("C263").Address Then _
Range("J6").Value = 238
If Target.Address = Range("C264").Address Then _
Range("J6").Value = 239
If Target.Address = Range("C265").Address Then _
Range("J6").Value = 240
If Target.Address = Range("C266").Address Then _
Range("J6").Value = 241
If Target.Address = Range("C267").Address Then _
Range("J6").Value = 242
If Target.Address = Range("C268").Address Then _
Range("J6").Value = 243
If Target.Address = Range("C269").Address Then _
Range("J6").Value = 244
If Target.Address = Range("C270").Address Then _
Range("J6").Value = 245
If Target.Address = Range("C271").Address Then _
Range("J6").Value = 246
If Target.Address = Range("C272").Address Then _
Range("J6").Value = 247
If Target.Address = Range("C273").Address Then _
Range("J6").Value = 248
If Target.Address = Range("C274").Address Then _
Range("J6").Value = 249
If Target.Address = Range("C275").Address Then _
Range("J6").Value = 250
If Target.Address = Range("C276").Address Then _
Range("J6").Value = 251
If Target.Address = Range("C277").Address Then _
Range("J6").Value = 252
If Target.Address = Range("C278").Address Then _
Range("J6").Value = 253
If Target.Address = Range("C279").Address Then _
Range("J6").Value = 254
If Target.Address = Range("C280").Address Then _
Range("J6").Value = 255
If Target.Address = Range("C281").Address Then _
Range("J6").Value = 256
If Target.Address = Range("C282").Address Then _
Range("J6").Value = 257
If Target.Address = Range("C283").Address Then _
Range("J6").Value = 258
If Target.Address = Range("C284").Address Then _
Range("J6").Value = 259
If Target.Address = Range("C285").Address Then _
Range("J6").Value = 260
If Target.Address = Range("C286").Address Then _
Range("J6").Value = 261
If Target.Address = Range("C287").Address Then _
Range("J6").Value = 262
If Target.Address = Range("C288").Address Then _
Range("J6").Value = 263
If Target.Address = Range("C289").Address Then _
Range("J6").Value = 264
If Target.Address = Range("C290").Address Then _
Range("J6").Value = 265
If Target.Address = Range("C291").Address Then _
Range("J6").Value = 266
If Target.Address = Range("C292").Address Then _
Range("J6").Value = 267
If Target.Address = Range("C293").Address Then _
Range("J6").Value = 268
If Target.Address = Range("C294").Address Then _
Range("J6").Value = 270
If Target.Address = Range("C295").Address Then _
Range("J6").Value = 272
If Target.Address = Range("C296").Address Then _
Range("J6").Value = 273
If Target.Address = Range("C297").Address Then _
Range("J6").Value = 275
If Target.Address = Range("C298").Address Then _
Range("J6").Value = 277
If Target.Address = Range("C299").Address Then _
Range("J6").Value = 279
If Target.Address = Range("C300").Address Then _
Range("J6").Value = 280
If Target.Address = Range("C301").Address Then _
Range("J6").Value = 281
If Target.Address = Range("C302").Address Then _
Range("J6").Value = 282
If Target.Address = Range("C303").Address Then _
Range("J6").Value = 283
If Target.Address = Range("C304").Address Then _
Range("J6").Value = 284
If Target.Address = Range("C305").Address Then _
Range("J6").Value = 285
If Target.Address = Range("C306").Address Then _
Range("J6").Value = 286
If Target.Address = Range("C307").Address Then _
Range("J6").Value = 287
If Target.Address = Range("C308").Address Then _
Range("J6").Value = 288
If Target.Address = Range("C309").Address Then _
Range("J6").Value = 289
If Target.Address = Range("C310").Address Then _
Range("J6").Value = 290
If Target.Address = Range("C311").Address Then _
Range("J6").Value = 291
If Target.Address = Range("C312").Address Then _
Range("J6").Value = 292
If Target.Address = Range("C313").Address Then _
Range("J6").Value = 293
If Target.Address = Range("C314").Address Then _
Range("J6").Value = 294
If Target.Address = Range("C315").Address Then _
Range("J6").Value = 295
If Target.Address = Range("C316").Address Then _
Range("J6").Value = 296
If Target.Address = Range("C317").Address Then _
Range("J6").Value = 297
If Target.Address = Range("C318").Address Then _
Range("J6").Value = 298
If Target.Address = Range("C319").Address Then _
Range("J6").Value = 299
If Target.Address = Range("C320").Address Then _
Range("J6").Value = 300
If Target.Address = Range("C321").Address Then _
Range("J6").Value = 301
If Target.Address = Range("C322").Address Then _
Range("J6").Value = 302
If Target.Address = Range("C323").Address Then _
Range("J6").Value = 303
If Target.Address = Range("C324").Address Then _
Range("J6").Value = 304
If Target.Address = Range("C325").Address Then _
Range("J6").Value = 305
If Target.Address = Range("C326").Address Then _
Range("J6").Value = 306
If Target.Address = Range("C327").Address Then _
Range("J6").Value = 307
If Target.Address = Range("C328").Address Then _
Range("J6").Value = 308
If Target.Address = Range("C329").Address Then _
Range("J6").Value = 309
If Target.Address = Range("C330").Address Then _
Range("J6").Value = 310
If Target.Address = Range("C331").Address Then _
Range("J6").Value = 311
If Target.Address = Range("C332").Address Then _
Range("J6").Value = 312
If Target.Address = Range("C333").Address Then _
Range("J6").Value = 313
If Target.Address = Range("C334").Address Then _
Range("J6").Value = 314
If Target.Address = Range("C335").Address Then _
Range("J6").Value = 315
If Target.Address = Range("C336").Address Then _
Range("J6").Value = 316
If Target.Address = Range("C337").Address Then _
Range("J6").Value = 317
If Target.Address = Range("C338").Address Then _
Range("J6").Value = 318
If Target.Address = Range("C339").Address Then _
Range("J6").Value = 319
If Target.Address = Range("C340").Address Then _
Range("J6").Value = 320
If Target.Address = Range("C341").Address Then _
Range("J6").Value = 321
If Target.Address = Range("C342").Address Then _
Range("J6").Value = 322
If Target.Address = Range("C343").Address Then _
Range("J6").Value = 323
If Target.Address = Range("C344").Address Then _
Range("J6").Value = 324
If Target.Address = Range("C345").Address Then _
Range("J6").Value = 325
If Target.Address = Range("C346").Address Then _
Range("J6").Value = 326
If Target.Address = Range("C347").Address Then _
Range("J6").Value = 327
If Target.Address = Range("C348").Address Then _
Range("J6").Value = 328
If Target.Address = Range("C349").Address Then _
Range("J6").Value = 329
If Target.Address = Range("C350").Address Then _
Range("J6").Value = 330
If Target.Address = Range("C351").Address Then _
Range("J6").Value = 331
If Target.Address = Range("C352").Address Then _
Range("J6").Value = 332
If Target.Address = Range("C353").Address Then _
Range("J6").Value = 333
If Target.Address = Range("C354").Address Then _
Range("J6").Value = 334
If Target.Address = Range("C355").Address Then _
Range("J6").Value = 335
If Target.Address = Range("C356").Address Then _
Range("J6").Value = 336
If Target.Address = Range("C357").Address Then _
Range("J6").Value = 337
If Target.Address = Range("C358").Address Then _
Range("J6").Value = 338
If Target.Address = Range("C359").Address Then _
Range("J6").Value = 339
If Target.Address = Range("C360").Address Then _
Range("J6").Value = 340
If Target.Address = Range("C361").Address Then _
Range("J6").Value = 341
If Target.Address = Range("C362").Address Then _
Range("J6").Value = 342
If Target.Address = Range("C363").Address Then _
Range("J6").Value = 343
If Target.Address = Range("C364").Address Then _
Range("J6").Value = 344
If Target.Address = Range("C365").Address Then _
Range("J6").Value = 345
If Target.Address = Range("C366").Address Then _
Range("J6").Value = 346
If Target.Address = Range("C367").Address Then _
Range("J6").Value = 347
If Target.Address = Range("C368").Address Then _
Range("J6").Value = 348
If Target.Address = Range("C369").Address Then _
Range("J6").Value = 349
If Target.Address = Range("C370").Address Then _
Range("J6").Value = 350
If Target.Address = Range("C371").Address Then _
Range("J6").Value = 351
If Target.Address = Range("C372").Address Then _
Range("J6").Value = 352
If Target.Address = Range("C373").Address Then _
Range("J6").Value = 353
If Target.Address = Range("C374").Address Then _
Range("J6").Value = 354
If Target.Address = Range("C375").Address Then _
Range("J6").Value = 355
If Target.Address = Range("C376").Address Then _
Range("J6").Value = 356
If Target.Address = Range("C377").Address Then _
Range("J6").Value = 357
If Target.Address = Range("C378").Address Then _
Range("J6").Value = 358
If Target.Address = Range("C379").Address Then _
Range("J6").Value = 359
If Target.Address = Range("C380").Address Then _
Range("J6").Value = 360
If Target.Address = Range("C381").Address Then _
Range("J6").Value = 361
If Target.Address = Range("C382").Address Then _
Range("J6").Value = 362
If Target.Address = Range("C383").Address Then _
Range("J6").Value = 363
If Target.Address = Range("C384").Address Then _
Range("J6").Value = 364
If Target.Address = Range("C385").Address Then _
Range("J6").Value = 366
If Target.Address = Range("C386").Address Then _
Range("J6").Value = 367
If Target.Address = Range("C387").Address Then _
Range("J6").Value = 368
If Target.Address = Range("C388").Address Then _
Range("J6").Value = 369
If Target.Address = Range("C389").Address Then _
Range("J6").Value = 370
If Target.Address = Range("C390").Address Then _
Range("J6").Value = 371
If Target.Address = Range("C391").Address Then _
Range("J6").Value = 372
If Target.Address = Range("C392").Address Then _
Range("J6").Value = 373
If Target.Address = Range("C393").Address Then _
Range("J6").Value = 374
If Target.Address = Range("C394").Address Then _
Range("J6").Value = 375
If Target.Address = Range("C395").Address Then _
Range("J6").Value = 376
If Target.Address = Range("C396").Address Then _
Range("J6").Value = 377
If Target.Address = Range("C397").Address Then _
Range("J6").Value = 378
If Target.Address = Range("C398").Address Then _
Range("J6").Value = 379
If Target.Address = Range("C399").Address Then _
Range("J6").Value = 380
If Target.Address = Range("C400").Address Then _
Range("J6").Value = 381
If Target.Address = Range("C401").Address Then _
Range("J6").Value = 382
If Target.Address = Range("C402").Address Then _
Range("J6").Value = 383
If Target.Address = Range("C403").Address Then _
Range("J6").Value = 384
If Target.Address = Range("C404").Address Then _
Range("J6").Value = 385
If Target.Address = Range("C405").Address Then _
Range("J6").Value = 386
If Target.Address = Range("C406").Address Then _
Range("J6").Value = 387
If Target.Address = Range("C407").Address Then _
Range("J6").Value = 388
If Target.Address = Range("C408").Address Then _
Range("J6").Value = 389
If Target.Address = Range("C409").Address Then _
Range("J6").Value = 390
If Target.Address = Range("C410").Address Then _
Range("J6").Value = 391
If Target.Address = Range("C411").Address Then _
Range("J6").Value = 392
If Target.Address = Range("C412").Address Then _
Range("J6").Value = 393
If Target.Address = Range("C413").Address Then _
Range("J6").Value = 394
If Target.Address = Range("C414").Address Then _
Range("J6").Value = 395
If Target.Address = Range("C415").Address Then _
Range("J6").Value = 396
If Target.Address = Range("C416").Address Then _
Range("J6").Value = 397
If Target.Address = Range("C417").Address Then _
Range("J6").Value = 398
If Target.Address = Range("C418").Address Then _
Range("J6").Value = 399
If Target.Address = Range("C419").Address Then _
Range("J6").Value = 400
If Target.Address = Range("C420").Address Then _
Range("J6").Value = 401
If Target.Address = Range("C421").Address Then _
Range("J6").Value = 402
If Target.Address = Range("C422").Address Then _
Range("J6").Value = 403
If Target.Address = Range("C423").Address Then _
Range("J6").Value = 404
If Target.Address = Range("C424").Address Then _
Range("J6").Value = 405
If Target.Address = Range("C425").Address Then _
Range("J6").Value = 406
If Target.Address = Range("C426").Address Then _
Range("J6").Value = 407
If Target.Address = Range("C427").Address Then _
Range("J6").Value = 408
If Target.Address = Range("C428").Address Then _
Range("J6").Value = 409
If Target.Address = Range("C429").Address Then _
Range("J6").Value = 410
If Target.Address = Range("C430").Address Then _
Range("J6").Value = 411
If Target.Address = Range("C431").Address Then _
Range("J6").Value = 412
If Target.Address = Range("C432").Address Then _
Range("J6").Value = 413
If Target.Address = Range("C433").Address Then _
Range("J6").Value = 414
If Target.Address = Range("C434").Address Then _
Range("J6").Value = 415
If Target.Address = Range("C435").Address Then _
Range("J6").Value = 416
If Target.Address = Range("C436").Address Then _
Range("J6").Value = 417
If Target.Address = Range("C437").Address Then _
Range("J6").Value = 418
If Target.Address = Range("C438").Address Then _
Range("J6").Value = 419
If Target.Address = Range("C439").Address Then _
Range("J6").Value = 420
If Target.Address = Range("C440").Address Then _
Range("J6").Value = 421
If Target.Address = Range("C441").Address Then _
Range("J6").Value = 422
If Target.Address = Range("C442").Address Then _
Range("J6").Value = 423
If Target.Address = Range("C443").Address Then _
Range("J6").Value = 424
If Target.Address = Range("C444").Address Then _
Range("J6").Value = 425
If Target.Address = Range("C445").Address Then _
Range("J6").Value = 426
If Target.Address = Range("C446").Address Then _
Range("J6").Value = 427
If Target.Address = Range("C447").Address Then _
Range("J6").Value = 428
If Target.Address = Range("C448").Address Then _
Range("J6").Value = 429
If Target.Address = Range("C449").Address Then _
Range("J6").Value = 430
If Target.Address = Range("C450").Address Then _
Range("J6").Value = 431
If Target.Address = Range("C451").Address Then _
Range("J6").Value = 432
If Target.Address = Range("C452").Address Then _
Range("J6").Value = 433
If Target.Address = Range("C453").Address Then _
Range("J6").Value = 434
If Target.Address = Range("C454").Address Then _
Range("J6").Value = 435
If Target.Address = Range("C455").Address Then _
Range("J6").Value = 436
If Target.Address = Range("C456").Address Then _
Range("J6").Value = 437
If Target.Address = Range("C457").Address Then _
Range("J6").Value = 438
If Target.Address = Range("C458").Address Then _
Range("J6").Value = 439
If Target.Address = Range("C459").Address Then _
Range("J6").Value = 440
If Target.Address = Range("C460").Address Then _
Range("J6").Value = 441
If Target.Address = Range("C461").Address Then _
Range("J6").Value = 442
If Target.Address = Range("C462").Address Then _
Range("J6").Value = 443
If Target.Address = Range("C463").Address Then _
Range("J6").Value = 444
If Target.Address = Range("C464").Address Then _
Range("J6").Value = 445
If Target.Address = Range("C465").Address Then _
Range("J6").Value = 446
If Target.Address = Range("C466").Address Then _
Range("J6").Value = 447
If Target.Address = Range("C467").Address Then _
Range("J6").Value = 448
If Target.Address = Range("C468").Address Then _
Range("J6").Value = 449
If Target.Address = Range("C469").Address Then _
Range("J6").Value = 450
If Target.Address = Range("C470").Address Then _
Range("J6").Value = 451
If Target.Address = Range("C471").Address Then _
Range("J6").Value = 452
If Target.Address = Range("C472").Address Then _
Range("J6").Value = 453
If Target.Address = Range("C473").Address Then _
Range("J6").Value = 454
If Target.Address = Range("C474").Address Then _
Range("J6").Value = 455
If Target.Address = Range("C475").Address Then _
Range("J6").Value = 456
If Target.Address = Range("C476").Address Then _
Range("J6").Value = 457
If Target.Address = Range("C477").Address Then _
Range("J6").Value = 458
If Target.Address = Range("C478").Address Then _
Range("J6").Value = 459
If Target.Address = Range("C479").Address Then _
Range("J6").Value = 460
If Target.Address = Range("C480").Address Then _
Range("J6").Value = 461
If Target.Address = Range("C481").Address Then _
Range("J6").Value = 462
If Target.Address = Range("C482").Address Then _
Range("J6").Value = 463
If Target.Address = Range("C483").Address Then _
Range("J6").Value = 464
If Target.Address = Range("C484").Address Then _
Range("J6").Value = 465
If Target.Address = Range("C485").Address Then _
Range("J6").Value = 466
If Target.Address = Range("C486").Address Then _
Range("J6").Value = 467
If Target.Address = Range("C487").Address Then _
Range("J6").Value = 468
If Target.Address = Range("C488").Address Then _
Range("J6").Value = 469
If Target.Address = Range("C489").Address Then _
Range("J6").Value = 470
If Target.Address = Range("C490").Address Then _
Range("J6").Value = 471
If Target.Address = Range("C491").Address Then _
Range("J6").Value = 472
If Target.Address = Range("C492").Address Then _
Range("J6").Value = 473
If Target.Address = Range("C493").Address Then _
Range("J6").Value = 474
If Target.Address = Range("C494").Address Then _
Range("J6").Value = 475
If Target.Address = Range("C495").Address Then _
Range("J6").Value = 476
If Target.Address = Range("C496").Address Then _
Range("J6").Value = 477
If Target.Address = Range("C497").Address Then _
Range("J6").Value = 478
If Target.Address = Range("C498").Address Then _
Range("J6").Value = 479
If Target.Address = Range("C499").Address Then _
Range("J6").Value = 480
If Target.Address = Range("C500").Address Then _
Range("J6").Value = 481
If Target.Address = Range("C501").Address Then _
Range("J6").Value = 482
If Target.Address = Range("C502").Address Then _
Range("J6").Value = 483
If Target.Address = Range("C503").Address Then _
Range("J6").Value = 484
If Target.Address = Range("C504").Address Then _
Range("J6").Value = 485
If Target.Address = Range("C505").Address Then _
Range("J6").Value = 486
If Target.Address = Range("C506").Address Then _
Range("J6").Value = 487
If Target.Address = Range("C507").Address Then _
Range("J6").Value = 488
If Target.Address = Range("C508").Address Then _
Range("J6").Value = 489
If Target.Address = Range("C509").Address Then _
Range("J6").Value = 490
If Target.Address = Range("C510").Address Then _
Range("J6").Value = 491
If Target.Address = Range("C511").Address Then _
Range("J6").Value = 492
If Target.Address = Range("C512").Address Then _
Range("J6").Value = 493
If Target.Address = Range("C513").Address Then _
Range("J6").Value = 494
If Target.Address = Range("C514").Address Then _
Range("J6").Value = 495
If Target.Address = Range("C515").Address Then _
Range("J6").Value = 496
If Target.Address = Range("C516").Address Then _
Range("J6").Value = 497
If Target.Address = Range("C517").Address Then _
Range("J6").Value = 498
If Target.Address = Range("C518").Address Then _
Range("J6").Value = 499
If Target.Address = Range("C519").Address Then _
Range("J6").Value = 500
If Target.Address = Range("C520").Address Then _
Range("J6").Value = 501
If Target.Address = Range("C521").Address Then _
Range("J6").Value = 502
If Target.Address = Range("C522").Address Then _
Range("J6").Value = 503
If Target.Address = Range("C523").Address Then _
Range("J6").Value = 504
If Target.Address = Range("C524").Address Then _
Range("J6").Value = 505
If Target.Address = Range("C525").Address Then _
Range("J6").Value = 506
If Target.Address = Range("C526").Address Then _
Range("J6").Value = 507
If Target.Address = Range("C527").Address Then _
Range("J6").Value = 508
If Target.Address = Range("C528").Address Then _
Range("J6").Value = 509
If Target.Address = Range("C529").Address Then _
Range("J6").Value = 510
If Target.Address = Range("C530").Address Then _
Range("J6").Value = 511
If Target.Address = Range("C531").Address Then _
Range("J6").Value = 512
If Target.Address = Range("C532").Address Then _
Range("J6").Value = 513
If Target.Address = Range("C533").Address Then _
Range("J6").Value = 514
If Target.Address = Range("C534").Address Then _
Range("J6").Value = 515
If Target.Address = Range("C535").Address Then _
Range("J6").Value = 516
If Target.Address = Range("C536").Address Then _
Range("J6").Value = 517
If Target.Address = Range("C537").Address Then _
Range("J6").Value = 518
If Target.Address = Range("C538").Address Then _
Range("J6").Value = 519
If Target.Address = Range("C539").Address Then _
Range("J6").Value = 520
If Target.Address = Range("C540").Address Then _
Range("J6").Value = 521
If Target.Address = Range("C541").Address Then _
Range("J6").Value = 522
If Target.Address = Range("C542").Address Then _
Range("J6").Value = 523
If Target.Address = Range("C543").Address Then _
Range("J6").Value = 524
If Target.Address = Range("C544").Address Then _
Range("J6").Value = 525
If Target.Address = Range("C545").Address Then _
Range("J6").Value = 526
If Target.Address = Range("C546").Address Then _
Range("J6").Value = 527
If Target.Address = Range("C547").Address Then _
Range("J6").Value = 528
If Target.Address = Range("C548").Address Then _
Range("J6").Value = 529
If Target.Address = Range("C549").Address Then _
Range("J6").Value = 530
If Target.Address = Range("C550").Address Then _
Range("J6").Value = 531
If Target.Address = Range("C551").Address Then _
Range("J6").Value = 532
If Target.Address = Range("C552").Address Then _
Range("J6").Value = 533
If Target.Address = Range("C553").Address Then _
Range("J6").Value = 534
If Target.Address = Range("C554").Address Then _
Range("J6").Value = 535
If Target.Address = Range("C555").Address Then _
Range("J6").Value = 536
If Target.Address = Range("C556").Address Then _
Range("J6").Value = 537
If Target.Address = Range("C557").Address Then _
Range("J6").Value = 538
If Target.Address = Range("C558").Address Then _
Range("J6").Value = 539
If Target.Address = Range("C559").Address Then _
Range("J6").Value = 540
If Target.Address = Range("C560").Address Then _
Range("J6").Value = 541
If Target.Address = Range("C561").Address Then _
Range("J6").Value = 542
If Target.Address = Range("C562").Address Then _
Range("J6").Value = 543
If Target.Address = Range("C563").Address Then _
Range("J6").Value = 544
If Target.Address = Range("C564").Address Then _
Range("J6").Value = 545
If Target.Address = Range("C565").Address Then _
Range("J6").Value = 546
If Target.Address = Range("C566").Address Then _
Range("J6").Value = 547
If Target.Address = Range("C567").Address Then _
Range("J6").Value = 548
If Target.Address = Range("C568").Address Then _
Range("J6").Value = 549
If Target.Address = Range("C569").Address Then _
Range("J6").Value = 550
If Target.Address = Range("C570").Address Then _
Range("J6").Value = 551
If Target.Address = Range("C571").Address Then _
Range("J6").Value = 552
If Target.Address = Range("C572").Address Then _
Range("J6").Value = 553
If Target.Address = Range("C573").Address Then _
Range("J6").Value = 554
If Target.Address = Range("C574").Address Then _
Range("J6").Value = 555
If Target.Address = Range("C575").Address Then _
Range("J6").Value = 556
If Target.Address = Range("C576").Address Then _
Range("J6").Value = 557
If Target.Address = Range("C577").Address Then _
Range("J6").Value = 558
If Target.Address = Range("C578").Address Then _
Range("J6").Value = 559
If Target.Address = Range("C579").Address Then _
Range("J6").Value = 560
If Target.Address = Range("C580").Address Then _
Range("J6").Value = 561
If Target.Address = Range("C581").Address Then _
Range("J6").Value = 562
If Target.Address = Range("C582").Address Then _
Range("J6").Value = 563
If Target.Address = Range("C583").Address Then _
Range("J6").Value = 564
If Target.Address = Range("C584").Address Then _
Range("J6").Value = 565
If Target.Address = Range("C585").Address Then _
Range("J6").Value = 566
If Target.Address = Range("C586").Address Then _
Range("J6").Value = 567
If Target.Address = Range("C587").Address Then _
Range("J6").Value = 568
If Target.Address = Range("C588").Address Then _
Range("J6").Value = 569
If Target.Address = Range("C589").Address Then _
Range("J6").Value = 570
If Target.Address = Range("C590").Address Then _
Range("J6").Value = 571
If Target.Address = Range("C591").Address Then _
Range("J6").Value = 572
If Target.Address = Range("C592").Address Then _
Range("J6").Value = 573
If Target.Address = Range("C593").Address Then _
Range("J6").Value = 574
If Target.Address = Range("C594").Address Then _
Range("J6").Value = 575
If Target.Address = Range("C595").Address Then _
Range("J6").Value = 576
If Target.Address = Range("C596").Address Then _
Range("J6").Value = 577
If Target.Address = Range("C597").Address Then _
Range("J6").Value = 578
If Target.Address = Range("C598").Address Then _
Range("J6").Value = 579
If Target.Address = Range("C599").Address Then _
Range("J6").Value = 580
If Target.Address = Range("C600").Address Then _
Range("J6").Value = 581
If Target.Address = Range("C601").Address Then _
Range("J6").Value = 582
If Target.Address = Range("C602").Address Then _
Range("J6").Value = 583
If Target.Address = Range("C603").Address Then _
Range("J6").Value = 584
If Target.Address = Range("C604").Address Then _
Range("J6").Value = 585
If Target.Address = Range("C605").Address Then _
Range("J6").Value = 586
If Target.Address = Range("C606").Address Then _
Range("J6").Value = 587
If Target.Address = Range("C607").Address Then _
Range("J6").Value = 588
If Target.Address = Range("C608").Address Then _
Range("J6").Value = 589
If Target.Address = Range("C609").Address Then _
Range("J6").Value = 590
If Target.Address = Range("C610").Address Then _
Range("J6").Value = 591
If Target.Address = Range("C611").Address Then _
Range("J6").Value = 592
If Target.Address = Range("C612").Address Then _
Range("J6").Value = 593
If Target.Address = Range("C613").Address Then _
Range("J6").Value = 594
If Target.Address = Range("C614").Address Then _
Range("J6").Value = 595
If Target.Address = Range("C615").Address Then _
Range("J6").Value = 596
If Target.Address = Range("C616").Address Then _
Range("J6").Value = 597
If Target.Address = Range("C617").Address Then _
Range("J6").Value = 598
If Target.Address = Range("C618").Address Then _
Range("J6").Value = 599
If Target.Address = Range("C619").Address Then _
Range("J6").Value = 600
If Target.Address = Range("C620").Address Then _
Range("J6").Value = 601
If Target.Address = Range("C621").Address Then _
Range("J6").Value = 602
If Target.Address = Range("C622").Address Then _
Range("J6").Value = 603
If Target.Address = Range("C623").Address Then _
Range("J6").Value = 604
If Target.Address = Range("C624").Address Then _
Range("J6").Value = 605
If Target.Address = Range("C625").Address Then _
Range("J6").Value = 606
If Target.Address = Range("C626").Address Then _
Range("J6").Value = 607
If Target.Address = Range("C627").Address Then _
Range("J6").Value = 608
If Target.Address = Range("C628").Address Then _
Range("J6").Value = 609
If Target.Address = Range("C629").Address Then _
Range("J6").Value = 610
If Target.Address = Range("C630").Address Then _
Range("J6").Value = 611
If Target.Address = Range("C631").Address Then _
Range("J6").Value = 612
If Target.Address = Range("C632").Address Then _
Range("J6").Value = 613
If Target.Address = Range("C633").Address Then _
Range("J6").Value = 614
If Target.Address = Range("C634").Address Then _
Range("J6").Value = 615
If Target.Address = Range("C635").Address Then _
Range("J6").Value = 616
If Target.Address = Range("C636").Address Then _
Range("J6").Value = 617
If Target.Address = Range("C637").Address Then _
Range("J6").Value = 618
If Target.Address = Range("C638").Address Then _
Range("J6").Value = 619
If Target.Address = Range("C639").Address Then _
Range("J6").Value = 620
If Target.Address = Range("C640").Address Then _
Range("J6").Value = 621
If Target.Address = Range("C641").Address Then _
Range("J6").Value = 622
If Target.Address = Range("C642").Address Then _
Range("J6").Value = 623
If Target.Address = Range("C643").Address Then _
Range("J6").Value = 624
If Target.Address = Range("C644").Address Then _
Range("J6").Value = 625
If Target.Address = Range("C645").Address Then _
Range("J6").Value = 626
If Target.Address = Range("C646").Address Then _
Range("J6").Value = 627
If Target.Address = Range("C647").Address Then _
Range("J6").Value = 628
If Target.Address = Range("C648").Address Then _
Range("J6").Value = 629
If Target.Address = Range("C649").Address Then _
Range("J6").Value = 630
If Target.Address = Range("C650").Address Then _
Range("J6").Value = 631
If Target.Address = Range("C651").Address Then _
Range("J6").Value = 632
If Target.Address = Range("C652").Address Then _
Range("J6").Value = 633
If Target.Address = Range("C653").Address Then _
Range("J6").Value = 634
If Target.Address = Range("C654").Address Then _
Range("J6").Value = 635
If Target.Address = Range("C655").Address Then _
Range("J6").Value = 636
If Target.Address = Range("C656").Address Then _
Range("J6").Value = 637
If Target.Address = Range("C657").Address Then _
Range("J6").Value = 638
If Target.Address = Range("C658").Address Then _
Range("J6").Value = 639
If Target.Address = Range("C659").Address Then _
Range("J6").Value = 640
If Target.Address = Range("C660").Address Then _
Range("J6").Value = 641
If Target.Address = Range("C661").Address Then _
Range("J6").Value = 642
If Target.Address = Range("C662").Address Then _
Range("J6").Value = 643
If Target.Address = Range("C663").Address Then _
Range("J6").Value = 644
If Target.Address = Range("C664").Address Then _
Range("J6").Value = 645
If Target.Address = Range("C665").Address Then _
Range("J6").Value = 646
If Target.Address = Range("C666").Address Then _
Range("J6").Value = 647
If Target.Address = Range("C667").Address Then _
Range("J6").Value = 648
If Target.Address = Range("C668").Address Then _
Range("J6").Value = 649
If Target.Address = Range("C669").Address Then _
Range("J6").Value = 650
If Target.Address = Range("C670").Address Then _
Range("J6").Value = 651
If Target.Address = Range("C673").Address Then _
Range("J6").Value = 654
If Target.Address = Range("C674").Address Then _
Range("J6").Value = 655
If Target.Address = Range("C675").Address Then _
Range("J6").Value = 656
If Target.Address = Range("C676").Address Then _
Range("J6").Value = 657
If Target.Address = Range("C677").Address Then _
Range("J6").Value = 658
If Target.Address = Range("C678").Address Then _
Range("J6").Value = 659
If Target.Address = Range("C679").Address Then _
Range("J6").Value = 660
If Target.Address = Range("C680").Address Then _
Range("J6").Value = 661
If Target.Address = Range("C681").Address Then _
Range("J6").Value = 662
If Target.Address = Range("C682").Address Then _
Range("J6").Value = 663
If Target.Address = Range("C683").Address Then _
Range("J6").Value = 664
If Target.Address = Range("C684").Address Then _
Range("J6").Value = 665
If Target.Address = Range("C685").Address Then _
Range("J6").Value = 666
If Target.Address = Range("C686").Address Then _
Range("J6").Value = 667
If Target.Address = Range("C687").Address Then _
Range("J6").Value = 668
If Target.Address = Range("C688").Address Then _
Range("J6").Value = 669
If Target.Address = Range("C689").Address Then _
Range("J6").Value = 670
If Target.Address = Range("C690").Address Then _
Range("J6").Value = 671
If Target.Address = Range("C691").Address Then _
Range("J6").Value = 672
If Target.Address = Range("C692").Address Then _
Range("J6").Value = 673
If Target.Address = Range("C693").Address Then _
Range("J6").Value = 674
If Target.Address = Range("C694").Address Then _
Range("J6").Value = 675
If Target.Address = Range("C695").Address Then _
Range("J6").Value = 676
If Target.Address = Range("C696").Address Then _
Range("J6").Value = 677
If Target.Address = Range("C697").Address Then _
Range("J6").Value = 678
If Target.Address = Range("C698").Address Then _
Range("J6").Value = 679
If Target.Address = Range("C699").Address Then _
Range("J6").Value = 680
If Target.Address = Range("C700").Address Then _
Range("J6").Value = 681
If Target.Address = Range("C701").Address Then _
Range("J6").Value = 682
If Target.Address = Range("C702").Address Then _
Range("J6").Value = 683
If Target.Address = Range("C703").Address Then _
Range("J6").Value = 684
If Target.Address = Range("C704").Address Then _
Range("J6").Value = 685
If Target.Address = Range("C705").Address Then _
Range("J6").Value = 686
If Target.Address = Range("C706").Address Then _
Range("J6").Value = 687
If Target.Address = Range("C707").Address Then _
Range("J6").Value = 688
If Target.Address = Range("C708").Address Then _
Range("J6").Value = 689
If Target.Address = Range("C709").Address Then _
Range("J6").Value = 690
If Target.Address = Range("C710").Address Then _
Range("J6").Value = 691
If Target.Address = Range("C711").Address Then _
Range("J6").Value = 692
If Target.Address = Range("C712").Address Then _
Range("J6").Value = 693
If Target.Address = Range("C713").Address Then _
Range("J6").Value = 694
If Target.Address = Range("C714").Address Then _
Range("J6").Value = 695
If Target.Address = Range("C715").Address Then _
Range("J6").Value = 696
If Target.Address = Range("C716").Address Then _
Range("J6").Value = 697
If Target.Address = Range("C717").Address Then _
Range("J6").Value = 698
If Target.Address = Range("C718").Address Then _
Range("J6").Value = 699
If Target.Address = Range("C719").Address Then _
Range("J6").Value = 700
If Target.Address = Range("C720").Address Then _
Range("J6").Value = 701
If Target.Address = Range("C721").Address Then _
Range("J6").Value = 702
If Target.Address = Range("C722").Address Then _
Range("J6").Value = 703
If Target.Address = Range("C723").Address Then _
Range("J6").Value = 704
If Target.Address = Range("C724").Address Then _
Range("J6").Value = 705
If Target.Address = Range("C725").Address Then _
Range("J6").Value = 706
If Target.Address = Range("C726").Address Then _
Range("J6").Value = 707
If Target.Address = Range("C727").Address Then _
Range("J6").Value = 708
If Target.Address = Range("C728").Address Then _
Range("J6").Value = 709
If Target.Address = Range("C729").Address Then _
Range("J6").Value = 710
If Target.Address = Range("C730").Address Then _
Range("J6").Value = 711
If Target.Address = Range("C731").Address Then _
Range("J6").Value = 712
If Target.Address = Range("C732").Address Then _
Range("J6").Value = 713
If Target.Address = Range("C733").Address Then _
Range("J6").Value = 714
If Target.Address = Range("C734").Address Then _
Range("J6").Value = 715
If Target.Address = Range("C735").Address Then _
Range("J6").Value = 716
If Target.Address = Range("C736").Address Then _
Range("J6").Value = 717
If Target.Address = Range("C737").Address Then _
Range("J6").Value = 718
If Target.Address = Range("C738").Address Then _
Range("J6").Value = 719
If Target.Address = Range("C739").Address Then _
Range("J6").Value = 720
If Target.Address = Range("C740").Address Then _
Range("J6").Value = 721
If Target.Address = Range("C741").Address Then _
Range("J6").Value = 722
If Target.Address = Range("C742").Address Then _
Range("J6").Value = 723
If Target.Address = Range("C743").Address Then _
Range("J6").Value = 724
If Target.Address = Range("C744").Address Then _
Range("J6").Value = 725
If Target.Address = Range("C745").Address Then _
Range("J6").Value = 726
If Target.Address = Range("C746").Address Then _
Range("J6").Value = 727
If Target.Address = Range("C747").Address Then _
Range("J6").Value = 728
If Target.Address = Range("C748").Address Then _
Range("J6").Value = 729
If Target.Address = Range("C749").Address Then _
Range("J6").Value = 730
If Target.Address = Range("C750").Address Then _
Range("J6").Value = 731
If Target.Address = Range("C751").Address Then _
Range("J6").Value = 732
If Target.Address = Range("C752").Address Then _
Range("J6").Value = 733
If Target.Address = Range("C753").Address Then _
Range("J6").Value = 734
If Target.Address = Range("C754").Address Then _
Range("J6").Value = 735
If Target.Address = Range("C755").Address Then _
Range("J6").Value = 736
If Target.Address = Range("C756").Address Then _
Range("J6").Value = 737
If Target.Address = Range("C757").Address Then _
Range("J6").Value = 738
If Target.Address = Range("C758").Address Then _
Range("J6").Value = 739
If Target.Address = Range("C759").Address Then _
Range("J6").Value = 740
If Target.Address = Range("C760").Address Then _
Range("J6").Value = 741
If Target.Address = Range("C761").Address Then _
Range("J6").Value = 742
If Target.Address = Range("C762").Address Then _
Range("J6").Value = 743
If Target.Address = Range("C763").Address Then _
Range("J6").Value = 744
If Target.Address = Range("C764").Address Then _
Range("J6").Value = 745
If Target.Address = Range("C765").Address Then _
Range("J6").Value = 746
If Target.Address = Range("C766").Address Then _
Range("J6").Value = 747
If Target.Address = Range("C767").Address Then _
Range("J6").Value = 748
If Target.Address = Range("C768").Address Then _
Range("J6").Value = 749
If Target.Address = Range("C769").Address Then _
Range("J6").Value = 750
If Target.Address = Range("C770").Address Then _
Range("J6").Value = 751
If Target.Address = Range("C771").Address Then _
Range("J6").Value = 752
If Target.Address = Range("C772").Address Then _
Range("J6").Value = 753
If Target.Address = Range("C773").Address Then _
Range("J6").Value = 754
If Target.Address = Range("C774").Address Then _
Range("J6").Value = 755
If Target.Address = Range("C775").Address Then _
Range("J6").Value = 756
If Target.Address = Range("C776").Address Then _
Range("J6").Value = 757
If Target.Address = Range("C777").Address Then _
Range("J6").Value = 758
If Target.Address = Range("C778").Address Then _
Range("J6").Value = 759
If Target.Address = Range("C779").Address Then _
Range("J6").Value = 760
If Target.Address = Range("C780").Address Then _
Range("J6").Value = 761
If Target.Address = Range("C781").Address Then _
Range("J6").Value = 762
If Target.Address = Range("C782").Address Then _
Range("J6").Value = 763
If Target.Address = Range("C783").Address Then _
Range("J6").Value = 764
If Target.Address = Range("C784").Address Then _
Range("J6").Value = 765
If Target.Address = Range("C785").Address Then _
Range("J6").Value = 766
If Target.Address = Range("C786").Address Then _
Range("J6").Value = 767
If Target.Address = Range("C787").Address Then _
Range("J6").Value = 768
If Target.Address = Range("C788").Address Then _
Range("J6").Value = 769
If Target.Address = Range("C789").Address Then _
Range("J6").Value = 770
If Target.Address = Range("C790").Address Then _
Range("J6").Value = 771
If Target.Address = Range("C791").Address Then _
Range("J6").Value = 772
If Target.Address = Range("C792").Address Then _
Range("J6").Value = 773
If Target.Address = Range("C793").Address Then _
Range("J6").Value = 774
If Target.Address = Range("C794").Address Then _
Range("J6").Value = 775
If Target.Address = Range("C795").Address Then _
Range("J6").Value = 776
If Target.Address = Range("C796").Address Then _
Range("J6").Value = 777
If Target.Address = Range("C921").Address Then _
Range("J6").Value = 923
End Sub
skywriter
05-18-2016, 12:34 PM
So regarding the first line of your code.


If Target.Address = Range("C26").Address Then _
Range("J6").Value = 1

If target is C26 then target.row is 26, no need to check the address, just need to make sure the cell that was selected is in a range that includes C26.

If you notice the value you want is 25 less than the row of the target.

As I go through your code looking for a pattern, somewhere in the C's it changes to 19, I don't know where.

Where my code says not intersect it's checking if the target and the cells referenced next to target are in the same range, if they intersect then the target is one of those cells and you can use this to check if the target was in a certain range and then run the appropriate code.

You have a lot of ranges mentioned in your code so I will just pick part of 2 so you can see the pattern of the code, the range I reference may not be the whole range that falls under the criteria shown in my code, I'll leave all of that up to you.

My recommendation.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Check to make sure that only 1 cell was selected.
If Target.Count > 1 Then Exit Sub

' Code that runs if selected cell was in C26 to C100.
If Not Intersect(Target, Range("C26:C100")) Is Nothing Then
Range("J6").Value = Target.Row - 25
End If

'Somewhere it became 19 so this is just a sample, you should include all cells where 19 is
'the criteris even if the code looks like this If Not Intersect(Target, Range("C500:C600,C750:C800")) Is Nothing Then
If Not Intersect(Target, Range("C500:C600")) Is Nothing Then
Range("J6").Value = Target.Row - 19
End If
End Sub
Paul_Hossler
05-18-2016, 12:43 PM
Assuming that the pattern is the same, then something like this maybe



Option Explicit
Private Sub WorksheetSelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C26:C921")) Is Nothing Then Exit Sub

Range("J6").Value = Target.Cells(1, 1).Row - 25
End Sub



If the pattern does change, more logic can be added if you want to ask
Paul_Hossler
05-18-2016, 01:31 PM
Apparently the pattern does change (I didn't bother plowing through all the almost identical code)

Something like this might be worth considering also



Option Explicit

Private Sub WorksheetSelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C26:C921")) Is Nothing Then Exit Sub

With Target.Cells(1, 1)
Select Case .Row
Case 26 To 100
Range("J6").Value = .Row - 25
Case 101 To 500
Range("J6").Value = .Row - 19
Case 501 To 1000
Range("J6").Value = .Row - 10
Case Else
Range("J6").Value = .Row - 1
End Select
End With


End Sub
SamT
05-18-2016, 01:37 PM
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 3 Then Exit Sub

Dim Temp As Integer
Dim TRow As Long
TRow = Target.Row

Select Case TRow
Case Is < 26: Exit Sub
Case 26 To 293: Temp = TRow - 25
Case 294: Temp = TRow - 24
Case 295 To 296: Temp = TRow - 23
Case 297: Temp = TRow - 22
Case 298: Temp = TRow - 21
Case 299 To 384: Temp = TRow - 20
Case 385 To 792: Temp = TRow - 19
Case 921: Temp = TRow + 2
Case Else: Exit Sub
End Select
Range("J6") = Temp

End Sub
Paul_Hossler
05-18-2016, 04:10 PM
Nice and elegant

You could skip Temp completely



Case 26 To 293: Range("J6")= TRow - 25


and get rid of



Range("J6") = Temp
skywriter
05-18-2016, 04:18 PM
Judging by the fact that for 2 hours no one seemed interested in this thread and shortly after I come up with an idea.


Apparently the pattern does change (I didn't bother plowing through all the almost identical code)


I can see why.

Don't worry, you all can have your little boys club, I won't dare post on your board again.
Paul_Hossler
05-18-2016, 05:38 PM
1. I didn't realize it was a race

2. After I posted, I saw yours and gave you credit for noticing that the pattern does change since I hadn't bothered to look at jamesmev's almost 800 lines of virtually identical code

3. That's up to you
SamT
05-18-2016, 11:05 PM
@ SkyWriter,

2 hours? I usually only check the board twice a day.

I have the advantage of an powerful text editor. I took me longer to C&P and change the numbers in the Case lines than it did to analyze the Row numbers and corresponding Values.

I have seen many of your replies where I did not follow because your solution was complete and I had no other major version to offer.

We don't own threads here, we like to offer many different versions and styles so the OP can compare and learn. Not only that but we also compare and learn from each other.

@ Paul,

I considered that, but Temp and TRow are just pointers and a Range and Target are Objects. Besides, I am a lazy typist :D another alternative is just change the name of Temp and set it = Range("J6") before the Select Case.

Edit to add: On further thought, the alternative would have been more elegant as the two Case Wrong Rows would not the be needed. I just did not have an appropriate Name for the Range("J6") variable.

I threw in the Case < 26: Exit Sub just because I thought it looked more better. Both row tests are required, but only the < 26 would fit in the first check. Neither memory nor speed is an issue in this situation.
snb
05-19-2016, 01:20 AM
Maybe I'm much too late: :snore:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C26:C921")) Is Nothing Then Exit Sub

With Target
Cells(6, 10) = .Row - IIf(.Row > 500, 10, IIf(.Row > 100, 19, IIf(.Row > 25, 25, 1)))
End With
End Sub

@PH: You missed the _ in Worksheet_SelectionChange
Paul_Hossler
05-19-2016, 06:04 AM
Maybe I'm much too late: :snore:

@PH: You missed the _ in Worksheet_SelectionChange


Yea, I was try to do a F&R to remove the _'s to try and scan the 800+ lines to see a pattern, and got carried away.
I gave up trying to verify that the pattern was consistent.

Suggested a technique, and left the rest as a homework assignment for the OP :devil2:
snb
05-19-2016, 07:29 AM
Since the enthusiastic reaction of the OP (s)he must have crossposted it somewhere else... ????
mancubus
05-19-2016, 08:33 AM
i remember seeing this at MrExcel.
Paul_Hossler
05-19-2016, 08:40 AM
2 hours? I usually only check the board twice a day.

Yea, but it's 4 hours each time:rotlaugh:

I use the board as break from ...

16208

:bigdance2:ole::bigdance2
Aflatoon
05-19-2016, 08:49 AM
Fewer details given: http://www.mrexcel.com/forum/excel-questions/942008-case-if-help-needed.html#post4525262
SamT
05-19-2016, 03:34 PM
Yea, but it's 4 hours each time:rotlaugh:

:razz2: