Código de Visual Basic para Aplicaciones - MACRO EXCEL SUMA CELDAS DIFERENTES ARCHIVOS

sin imagen de perfil
Val: 10
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

MACRO EXCEL SUMA CELDAS DIFERENTES ARCHIVOSgráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 2 de Marzo del 2020 por Moises
499 visualizaciones desde el 2 de Marzo del 2020
Suma celdas de diferentes archivos de EXCEL y el resultado lo pone en la misma celda del archivo en el que se esta ejecutando el macro.
Se requiere:
1.- Crear una carpeta y almacenar TODOS LOS ARCHIVOS (NO IMPORTA EL NUMERO) que tiene celdas que se desean sumar.
2.- Almacenar el macro en el archivo de Excel en el que se desea se almacenen los resultados.
3.- Cambiar en el código del macro ChDir "C:\directorio\" por el directorio en el que se va a trabajar.
4.- Cambiar las variables que se describen en el codigo

Se pueden utilizar todos los macros que quieran con todos los archivos que se necesiten sumar

1.0

Publicado el 2 de Marzo del 2020gráfica de visualizaciones de la versión: 1.0
500 visualizaciones desde el 2 de Marzo del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
Sub nombremarcro()
 
 
 
'--- VARIABLES ---
 
    '--- hoja es el número de la pestaña en excell
 
    hoja = 12
 
 
 
    '--- a es un contador
 
    a = 0
 
 
 
    '--- letras es el arreglo de la posición de la columna en excel
 
    Dim letras
 
    letras = Array("k", "l", "n", "o", "q", "r", "t", "u", "w", "x", "z", "aa", "ac", "ad")
 
 
 
     '--- logletr es el numero de columnas del array letras menos uno por que empieza en cero
 
    logletr = 13
 
 
 
    '--- li y ls rango de renglones
 
    li = 370
 
    ls = 389
 
 
 
    '--- pasos es el Step del for
 
    pasos = 1
'--- valores es el resultado de ls-li+1 por logletr+1 ... 14x20 igual 280
 
    Dim valores(280) As Integer
 
 
 
 
 
'----
 
 
 
    primero = ActiveWorkbook.Name
 
    Sheets(hoja).Select
 
    ChDir "C:\directorio\"
 
    archi = Dir("*.xl*")
 
    Do While archi <> primero
 
        a = 0
 
        Workbooks.Open archi
 
        For c = li To ls Step pasos
 
            For posletra = 0 To logletr
 
                celda = letras(posletra) + CStr(c)
 
                If IsNumeric(Sheets(hoja).Range(celda).Value) Then
 
                    valores(a) = valores(a) + Sheets(hoja).Range(celda).Value
 
                Else
 
                    valores(a) = valores(a) + 0
 
                End If
 
                a = a + 1
 
            Next
 
        Next
 
 
 
        ActiveWorkbook.Close False
 
        archi = Dir()
 
    Loop
 
 
 
    a = 0
 
 
 
    For x = li To ls Step pasos
 
        For posletra = 0 To logletr
 
            celda = letras(posletra) + CStr(x)
 
            Range(celda).Select
 
            ActiveCell.Value = valores(a)
 
 
 
            a = a + 1
 
        Next
 
    Next
 
End Sub



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5988