Pergunta : Copiar a fileira inteira e colá-la em uma folha nova Excel VBA

Olá! lá, o

Hoping alguém pode ajudar com o código abaixo. Eu sou novo em VBA e tenho pesquisado maneiras de conseguir isto na rede e este é o que eu tenho até aqui. o
Dim LastRow do

Sub SendtoStorage () como Integer
LastRow = folhas (“ResultsLog”). Range (“B” & Rows.Count). Extremidade (xlUp). Br inteiro/> do Row'< de Select

'Copy se c não é nada destino do _
de Then
LastRow = de LastRow + de 1
olData.EntireRow.Copy: =Sheets (“Storage”). Extremidade With

I am de If
Next
do fim do
de Range (“A” & LastRow) que tenta copiar a fileira inteira da folha “ResultsLog”, escala “B4: Y253” se as fileiras são povoadas. Eu quero as fileiras ser copiado à folha “armazenamento” do destino que começa no A2. Os dados serão adicionados continuamente a este assim que devem encontrar que a fileira vazia seguinte e para colar os dados no
Once que da coluna A etc. estes dados foram copiados, ele precisa de cancelar os índices em “ResultsLog”, varia " B4: Y253”. o

Hope isto faz o sentido. Eu sou certo que eu estou totalmente incorreto com meu código, mas realmente tentei lhe dar ir. Quando eu uso o registrador não trabalha.
class= do

Resposta : Copiar a fileira inteira e colá-la em uma folha nova Excel VBA

Este código trabalhará para o que você quer, mim pode mudá-lo para procurar uns valores mais em branco, agora ele somente que verific para ver se os valores na coluna B são em branco. Eu uni alguns dados de teste com pilhas em branco aleatórias na coluna B. O macro supor que você tem um encabeçamento da coluna na folha do armazenamento.
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:

checkForValue secundário ()

currentSheet não ofuscante como a folha, WS como a folha
currentSelection não ofuscante como a escala, alvo como a escala, subTarget como a escala
screenUpdate não ofuscante como bôoleano

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = falso

'o programa grava a folha atual e a seleção atual
'assim no fim do programa você pode mandar o programa ir para trás a
'onde você era original
Ajustar o currentSheet = o Application.ActiveSheet
Ajustar o currentSelection = o Application.Selection
Ajustar o alvo = a escala (“B4: B253”)

Para cada subTarget no alvo
    Se "" <> de subTarget.Value então
        Escala (subTarget, subTarget.End (xlToRight)). Cópia
        Folhas (“armazenamento”). Seleto
        Escala (“A1”). Ativar
                
        'verific para ver se a pilha A2 é em branco, se não é em branco então
        'pressionar essencialmente Crtl + para baixo seta para encontrar dinâmicamente a última pilha
        Se ActiveCell.Offset (1, 0). "" <> do valor então
            Selection.End (xlDown). Seleto
        Terminar se
                
        'deslocar o endereço da pilha ativa por 1 fileira e colá-lo então,
        'se você não fêz este você overwrite os valores velhos
        ActiveCell.Offset (1, 0). Ativar
        'colar tudo
        xlPasteAll de ActiveCell.PasteSpecial
        Folhas (“ResultsLog”). Seleto
    Terminar se
Em seguida

Application.CutCopyMode = falso
currentSheet.Select
currentSelection.Select

Application.ScreenUpdating = ScreenUpdating

Ajustar o currentSheet = nada
Ajustar WS = nada
Ajustar o currentSelection = nada
Ajustar o alvo = nada
Ajustar o subTarget = nada

Terminar o submarino
Outras soluções  
 
programming4us programming4us