Fråga : Kopiera helt ror och klistrar in i en ny arbetssedelExcel VBA

Hi där,

Hoping någon kan hjälpa med den nedanföra kodifiera. Förmiddag som I är ny på VBA och har forskat väg att uppnå detta på det netto, och detta är vad jag har thus
Dim LastRow för far.

Sub SendtoStorage (), som Integer
LastRow = täcker (”ResultsLog”). Range (”B” & Rows.Count). Avsluta (xlUp). Select

'Copy hel Row'
, om c är ingenting destinationen för Then
LastRow = LastRow + för 1
olData.EntireRow.Copy _
: =Sheets (”Storage”). Range (”A” & LastRow)
avslutar If
Next
avslutar den pröva With

I förmiddagen för att kopiera det helt ror från täcker ”ResultsLog”, spänner ”B4: Y253”, om ror befolkas. Jag önskar ror för att kopieras till destinationen täcker ”lagrings” start i A2. Data som ständigt ska, tillfogas till denna, så den måste finna det nästa tomt ror och klistrar datan i
Once dessa data som har kopierats, det för kolonn A Etc. behöver att göra klar tillfredsställer i ”ResultsLog”, spänner " B4: Y253”.

Hope detta gör avkänning. Förmiddag I för förmiddag som I totalt är oriktig med mitt, kodifierar sure, men gjorde egentligen försök att ge det en gå. När jag använder registreringsapparaten, den fungerar inte.
" klar "

Svar : Kopiera helt ror och klistrar in i en ny arbetssedelExcel VBA

Detta kodifierar ska arbete för vad du önskar, mig kan ändra den för att söka efter mer som är tomma, värderar, rätt nu det, det endast som kontrollerar för att se, om värderar i kolonn B är tomt. Jag har fäst något testar data med slumpmässiga tomma celler i kolonnen B. Makroen antar att du har en kolonntitelrad på lagringen att täcka.
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:

UndercheckForValue ()

Dunkel currentSheet som arbetssedeln, ws som arbetssedeln
Den dunkla currentSelectionen som spänner, uppsätta som mål som spänner, subTarget som spänner
Dunkel screenUpdate som Boolean

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = falskt

'programet antecknar strömarbetssedeln och strömvalet
'så på avsluta av programet du kan ha programet att gå tillbaka till
'var du var ursprungligen
Fastställd currentSheet = Application.ActiveSheet
Fastställd currentSelection = Application.Selection
Uppsättningen uppsätta som mål = spänner (”B4: B253”)

För varje subTarget uppsätta som mål in
    Om subTarget.Value- <> "" därefter
        Spänna (subTarget, subTarget.End (xlToRight)). Kopiera
        Arbetssedlar (”lagring”). Valt
        Spänna (”A1”). Aktivera
                
        'kontrollera för att se, om cellen A2 är tom, om den inte är tom därefter
        'i grunden pressen Crtl + besegrar pilen dynamiskt för att finna den sist cellen
        Om ActiveCell.Offset (1, 0). Värdera <> "" därefter
            Selection.End (xlDown). Välj
        Avsluta om
                
        'offset som tilltala av aktivcellen vid 1 ror och klistrar därefter,
        'om du inte gjorde denna, du skulle överskrivar det gammalt värderar
        ActiveCell.Offset (1, 0). Aktivera
        'klistra allt
        ActiveCell.PasteSpecial-xlPasteAll
        Arbetssedlar (”ResultsLog”). Valt
    Avsluta om
Därefter

Application.CutCopyMode = falskt
currentSheet.Select
currentSelection.Select

Application.ScreenUpdating = ScreenUpdating

Fastställd currentSheet = ingenting
Uppsättning ws = ingenting
Fastställd currentSelection = ingenting
Uppsättningen uppsätta som mål = ingenting
Fastställd subTarget = ingenting

Avsluta suben
Andra lösningar  
 
programming4us programming4us