
modificar rango
Publicado por Andres (3 intervenciones) el 26/04/2017 06:21:37
Hola
queria saber si hay un metodo para modificar un rango en un codigo...
para ambientarlos, les cuento que el codigo ya lo habia terminado y consta de la programacion de aprox 750 contadores.
por motivos de diseño en el archivo de excell me solicitador insertar una columna con un nuevo dato.
lo que provoca es que la celda en la que el contador toma el dato que opera, se ha desplazado una a la derecha.
ejemplo
aca relaciono algunos contadores, basicamente en la linea
debo cambiar "E8" y poner "F8", el incomveniente es que como les dije tengo programados unos 750 contadores.
Lo puedo hacer de forma abreviada, o debo hacer el cambio uno por uno en las 750 lineas???
queria saber si hay un metodo para modificar un rango en un codigo...
para ambientarlos, les cuento que el codigo ya lo habia terminado y consta de la programacion de aprox 750 contadores.
por motivos de diseño en el archivo de excell me solicitador insertar una columna con un nuevo dato.
lo que provoca es que la celda en la que el contador toma el dato que opera, se ha desplazado una a la derecha.
ejemplo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
If Range("C8") = "BDA00101" Then
If Range("B8") = "FAT" Then
If Range("D8") = "U01" Then
DATO = Sheets("CONTADORES").Range("B2")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B2").Value = CONTADOR
End If
If Range("D8") = "U02" Then
DATO = Sheets("CONTADORES").Range("B3")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B3").Value = CONTADOR
End If
If Range("D8") = "U03" Then
DATO = Sheets("CONTADORES").Range("B4")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B4").Value = CONTADOR
End If
If Range("D8") = "U04" Then
DATO = Sheets("CONTADORES").Range("B5")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B5").Value = CONTADOR
End If
If Range("D8") = "U05" Then
DATO = Sheets("CONTADORES").Range("B6")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B6").Value = CONTADOR
End If
If Range("D8") = "U06" Then
DATO = Sheets("CONTADORES").Range("B7")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B7").Value = CONTADOR
End If
If Range("D8") = "U07" Then
DATO = Sheets("CONTADORES").Range("B8")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B8").Value = CONTADOR
End If
If Range("D8") = "U08" Then
DATO = Sheets("CONTADORES").Range("B9")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B9").Value = CONTADOR
End If
If Range("D8") = "U09" Then
DATO = Sheets("CONTADORES").Range("B10")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B10").Value = CONTADOR
End If
If Range("D8") = "U10" Then
DATO = Sheets("CONTADORES").Range("B11")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B11").Value = CONTADOR
End If
If Range("D8") = "U11" Then
DATO = Sheets("CONTADORES").Range("B12")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B12").Value = CONTADOR
End If
If Range("D8") = "U12" Then
DATO = Sheets("CONTADORES").Range("B13")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B13").Value = CONTADOR
End If
If Range("D8") = "U13" Then
DATO = Sheets("CONTADORES").Range("B14")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B14").Value = CONTADOR
End If
If Range("D8") = "U14" Then
DATO = Sheets("CONTADORES").Range("B15")
CONTADOR = DATO - Range("E8").Value
Sheets("CONTADORES").Range("B15").Value = CONTADOR
End If
End If
aca relaciono algunos contadores, basicamente en la linea
1
CONTADOR = DATO - Range("E8").Value
Lo puedo hacer de forma abreviada, o debo hacer el cambio uno por uno en las 750 lineas???
Valora esta pregunta


0