Pytanie : Odbitkowy Całkowity Rząd i Pasta w nowy Worksheet Przodować VBA

Cześć tam,

Hoping cześć móc z the kod cześć. I być nowy przy VBA i badać sposób resultsLog na the sieć i resultsLog być resultsLog I mieć tak far.

Sub SendtoStorage ()
Dim LastRow jako Integer
LastRow = Prześcieradło ("ResultsLog"). Range ("B" & Rows.Count). Końcówka (xlUp). Select

'Copy Całkowity Row'< br/> Jeżeli c Być Miejsce przeznaczenia Then
LastRow = LastRow + 1
olData.EntireRow.Copy _
Miejsce przeznaczenia: =Sheets ("Storage"). Range ("A" & LastRow)
Końcówka If
Next
Końcówka With

I am the całkowity rząd od Szkotowy "ResultsLog", Pasmo "B4: Y253" jeżeli the rząd zaludniać. I chcieć the rząd kopiować the miejsce przeznaczenia prześcieradło "Magazyn" w A2. Dane nieustannie dodawać więc ono musieć the następny opróżniać rząd i klajstrować the dane w kolumna A Etc.
Once ten dane kopiować, ono potrzebować the zawartość w "ResultsLog", Rozciągać się " B4: Y253".

Hope sens robić sens. I być pewny I być kompletnie błędny z mój kod, ale naprawdę próbować ono iść. Gdy I używać the pisak ono pracować.

Odpowiedź : Odbitkowy Całkowity Rząd i Pasta w nowy Worksheet Przodować VBA

Ten kod pracować dla sprawdzać ty chcieć, I móc ono więcej pusty wartość, teraz ono tylko ono sprawdzać jeżeli the wartość w szpaltowy B być puste miejsce. I dołączać niektóre próbny dane z przypadkowy pusty komórka w szpaltowy B. The macro zakładać ty mieć szpaltowy chodnikowiec na the składowy prześcieradło.
(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:

Okręt podwodny checkForValue ()

Ciemnawy currentSheet Jako Worksheet, ws Jako Worksheet
Ciemnawy currentSelection Pasmo, cel Jako Pasmo, subTarget Pasmo
Ciemnawy screenUpdate Boolowski

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Fałszywy

'the program nagrywać the aktualny worksheet i prąd wybór
'w ten sposób przy the końcówka the program ty móc the program z powrotem
'dokąd ty być oryginalnie
Ustalony currentSheet = Application.ActiveSheet
Ustalony currentSelection = Application.Selection
Ustalony cel = Pasmo ("B4: B253")

Dla Cel subTarget W cel
    Jeżeli subTarget.Value <> "" Wtedy
        Pasmo (subTarget, subTarget.End (xlToRight)). Kopia
        Worksheets ("Magazyn"). Wybiórka
        Pasmo ("A1"). Aktywować
                
        'sprawdzać jeżeli the komórka A2 być puste miejsce, jeżeli ono być pusty wtedy
        'w zasadzie naciskać Crtl + puszek strzała w zasadzie the ostatni komórka
        Jeżeli ActiveCell.Offset ((1), (0)). Wartość <> "" Wtedy
            Selection.End (xlDown). Wybiórka
        Kończyć Jeżeli
                
        'odsadzka the adres the aktywny komórka (1) rząd i wtedy klajstrować,
        'jeżeli ty zrobić robić ty overwrite the stary wartość
        ActiveCell.Offset ((1), (0)). Aktywować
        'klajstrować everything
        ActiveCell.PasteSpecial xlPasteAll
        Worksheets ("ResultsLog"). Wybiórka
    Kończyć Jeżeli
Następnie

Application.CutCopyMode = Fałszywy
currentSheet.Select
currentSelection.Select

Application.ScreenUpdating = ScreenUpdating

Ustalony currentSheet = Nic
Set ws = Nic
Ustalony currentSelection = Nic
Ustalony cel = Nic
Ustalony subTarget = Nic

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us