Visual Basic - BUSCAR SUMA DE REFERENCIAS VERTICALES DE HOJAS CON MACROS

Life is soft - evento anual de software empresarial
   
Vista:

BUSCAR SUMA DE REFERENCIAS VERTICALES DE HOJAS CON MACROS

Publicado por JUAN (11 intervenciones) el 14/09/2017 00:03:00
Estimados Señores de la Comunidad, necesito un apoyo con la creación de una macro y quisiera partir con la idea la búsqueda de un dato de determinada columna que se encuentra en varias hojas distintas y que en la búsqueda le sume en una hoja en donde centre la indormacion de las hojas en una sola columna.

Detallo una macro del cual quiero partir, espero su apoyo porque soy nuevo en este campo y recurro a ustedes como como un alumno recurre a sus maestros.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

BUSCAR SUMA DE REFERENCIAS VERTICALES DE HOJAS CON MACROS

Publicado por Antoni Masana (320 intervenciones) el 14/09/2017 08:01:20
Haber si es esto lo que necesitas:

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
Option Explicit
 
Sub Buscar()
    Dim WS As Worksheet, Linea As Long, a As Long, Codigo As String
 
    Sheets("BASE").Select
 
    Range("B4:C31").Select:    Selection.ClearContents
    Range("A4").Select
 
    Linea = 4
    While Cells(Linea, 1) <> ""
        Codigo = Cells(Linea, 1)
        For Each WS In ThisWorkbook.Worksheets
            If WS.Name Like "DAT*" Then
               For a = 4 To 13
                   If Codigo = Sheets(WS.Name).Cells(a, 4) Then
                      Cells(Linea, 2) = Sheets(WS.Name).Cells(a, 5)
                      Cells(Linea, 3) = Sheets(WS.Name).Cells(a, 6) + Cells(Linea, 3)
                   End If
               Next
            End If
        Next
        Linea = Linea + 1
    Wend
End Sub

Saludos.
\\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

BUSCAR SUMA DE REFERENCIAS VERTICALES DE HOJAS CON MACROS

Publicado por JUAN (11 intervenciones) el 14/09/2017 16:15:43
Muchas gracias estimado Maestro, funciona bien, tengo varias consultas por realizar y me gustaría contar siempre con sus consejos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad