Fila de la copia y de datos de la goma - Problemas y soluciones a los problemas relacionados con Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

copyRows secundarios ()
Rng dévil como gama
RW dévil como variante

    Para cada RW en las hojas (“reconciliar”) .UsedRange.Rows
        Si hojas (“reconciliar”). Gama (“C” y RW. Fila). Interior.Color = 52479 entonces
            Si el rng entonces no es nada
                Fijar el rng = las hojas (“reconciliar”). Gama (“C” y RW. Fila) .EntireRow
            
                Fijar el rng = la unión (rng, hojas (“reconciliar”). Gama (“C” y RW. Fila) .EntireRow)
            Terminar si
        Terminar si
    Después
    Hojas (“resultado”). Filas (“2: ” Y hojas (“resultado”). Rows.Count). Cells.Clear
    Si el rng entonces no es nada
        Hojas (“resultado”). Visible = falso
        MsgBox “ningunos expedientes encontrados”
    
        rng. Copiar las hojas (“resultado”). Gama (“a” y hojas (“resultado”). Rows.Count). Extremo (xlUp). Compensación (1, 0)
        Hojas (“resultado”). Visible = verdad
    Terminar si

Terminar el submarino

Cuestión : Fila de la copia y de datos de la goma

Respuesta : Fila de la copia y de datos de la goma