Vraag : Rij en het Deeg van het exemplaar de Volledige in een nieuw Aantekenvel Excel VBA

Hallo daar, kan

Hoping iemand bij de hieronder code helpen. Ik ben nieuw bij VBA en manieren onderzocht om dit op netto en dit te bereiken ben wat ik.

Sub SendtoStorage ()
Dim LastRow als Integer
LastRow = Bladen („ResultsLog“) tot zover heb. Range („B“ & Rows.Count). Eind (xlUp). Volledige Row'< br/>
'Copy/> van Select
LastRow = LastRow + 1
olData.EntireRow.Copy/> Bestemming _
ge“). Het Eind With

I am van If
Next
(„A“ & LastRow)/>/> de volledige rij van Blad „ResultsLog“ proberen te kopiëren, Waaier „B4: Y253“ als de rijen bevolkt zijn. Ik wil dat de rijen worden gekopi�ërd aan het bestemmingsblad „Opslag“ beginnend in A2. De gegevens zullen voortdurend toegevoegd worden aan dit zodat moet het de volgende lege rij vinden en de gegevens in kolom A enz.
Once kleven dit gegeven is gekopi�ërd, moet het de inhoud in „ResultsLog“ ontruimen, " B4 uitstrekken zich: Y253“.

Hope dit houdt steek. Ik ben zeker ik totaal onjuist met mijn code ben, maar werkelijk probeerde om het te geven ga. Wanneer ik het registreertoestel gebruik werkt het niet.

Antwoord : Rij en het Deeg van het exemplaar de Volledige in een nieuw Aantekenvel Excel VBA

Deze code zal want werken wat u wilt, ik het kan veranderen om legere waarden te zoeken, op dit ogenblik controleert het slechts het om te zien of zijn de waarden in kolom B leeg. Ik heb sommige testgegevens met willekeurige lege cellen in kolom B. vastgemaakt. De macro veronderstelt u een kolomkopbal op het opslagblad hebt.
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:

Sub checkForValue ()

Schemerige currentSheet als Aantekenvel, ws als Aantekenvel
Schemerige currentSelection als Waaier, doel als Waaier, subTarget als Waaier
Schemerige screenUpdate zoals Van Boole

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Vals

het 'programma registreert het huidige aantekenvel en de huidige selectie
'zo aan het eind van het programma kunt u het programma hebben terugkeren aan
'waar u oorspronkelijk was
Reeks currentSheet = Application.ActiveSheet
Vastgestelde currentSelection = Application.Selection
Vastgesteld doel = Waaier („B4: B253“)

Voor Elke subTarget in doel
    Als subTarget.Value <> "" toen
        Waaier (subTarget, subTarget.End (xlToRight)). Exemplaar
        Aantekenvellen („Opslag“). Selecteer
        Waaier („A1“). Activeer
                
        'controleer om te zien of is de cel A2 leeg, als het niet dan leeg is
        'druk hoofdzakelijk Crtl + onderaan pijl om de laatste cel dynamisch te vinden
        Als ActiveCell.Offset (1, 0). Waarde <> "" toen
            Selection.End (xlDown). Selecteer
        Beëindig als
                
        'compenseer het adres van de actieve cel door 1 rij en dan deeg,
        'als u dit niet deed zou u de oude waarden beschrijven
        ActiveCell.Offset (1, 0). Activeer
        'kleef alles
        ActiveCell.PasteSpecial xlPasteAll
        Aantekenvellen („ResultsLog“). Selecteer
    Beëindig als
Daarna

Application.CutCopyMode = Vals
currentSheet.Select
currentSelection.Select

Application.ScreenUpdating = ScreenUpdating

Reeks currentSheet = niets
Vastgesteld ws = niets
Vastgestelde currentSelection = niets
Vastgesteld doel = niets
Reeks subTarget = niets

Sub van het eind
Andere oplossingen  
 
programming4us programming4us