Frage : Kopien- und PastenDatenfolge

Hallo möchten Experten,

I Expertenhilfe fordern, um einen Index zu schreiben, der ist, die vollständige Reihe zu kopieren, wenn die des Column_Cs (Blatt versöhnen), Zelle hervorgehoben wird. Die kopierten Reihen müssen Paste es „am Resultats“ Blatt sein. Hoffnung-Experten können mir helfen, diese Eigenschaft zu verursachen.


Attachments:

Antwort : Kopien- und PastenDatenfolge

Trauriges auf Neulesen erhielt mir das Richtungsunrecht:

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

VorcopyRows ()
Schwaches rng als Strecke
Schwaches RW als Variante

    Für jedes RW in den Blättern („versöhnen“), .UsedRange.Rows
        Wenn Blätter („versöhnen“). Strecke („C“ u. RW. Reihe). Interior.Color = 52479 dann
            Wenn rng nichts dann ist
                Rng = Blätter einstellen („versöhnen“). Strecke („C“ u. RW. Reihe) .EntireRow
            Sonst
                Rng = Anschluss (rng, Blätter, einstellen („versöhnen“). Strecke („C“ u. RW. Reihe) .EntireRow)
            Beenden wenn
        Beenden wenn
    Zunächst
    Blätter („Resultat“). Reihen („2: “ U. Blätter („Resultat“). Rows.Count). Cells.Clear
    Wenn rng nichts dann ist
        Blätter („Resultat“). Sichtbar = falsch
        MsgBox „keine Aufzeichnungen gefunden“
    Sonst
        rng. Blätter („Resultat“) kopieren. Strecke („a“ u. Blätter („Resultat“). Rows.Count). Ende (xlUp). Versatz (1, 0)
        Blätter („Resultat“). Sichtbar = ausrichten
    Beenden wenn

Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us