Cuestión : Copiar la fila entera y pegarla en una nueva hoja de trabajo Excel VBA

Hola allí, el

Hoping alguien puede asistir con el código abajo. Soy nuevo en VBA y he estado investigando maneras de alcanzar esto en la red y esto es lo que tengo hasta el momento.
Dim LastRow del

Sub SendtoStorage () como Integer
LastRow = las hojas (“ResultsLog”). Range (“B” y Rows.Count). Extremo (xlUp). Br entero/> del Row'< de Select

'Copy si c no es nada destinación del _
de Then
LastRow = de LastRow + de 1
olData.EntireRow.Copy: =Sheets (“Storage”). Extremo With

I de If
Next
del final del
de Range (“A” y LastRow) que intenta copiar la fila entera de la hoja “ResultsLog”, gama “B4: Y253” si se pueblan las filas. Quisiera que las filas fueran copiadas a la hoja “almacenaje” de la destinación que comienza en A2. Los datos serán agregados continuamente a esto así que deben encontrar que se extiende la fila vacía siguiente y pegar los datos en el
Once de la columna A etc. que se han copiado estos datos, él necesita despejar el contenido en “ResultsLog”, " B4: Y253”. el

Hope esto tiene sentido. Estoy seguro que soy total incorrecto conmigo código, pero que intenté realmente darle un ir. Cuando utilizo el registrador no trabaja.
class= del

Respuesta : Copiar la fila entera y pegarla en una nueva hoja de trabajo Excel VBA

Este código trabajará para lo que usted quiere, yo puede cambiarlo para buscar valores más en blanco, ahora él solamente que comprueba para ver si los valores en la columna B son en blanco. He atado un ciertos datos de prueba con las células en blanco al azar en la columna B. La macro asume que usted tiene un jefe de la columna en la hoja del almacenaje.
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 secundario ()

currentSheet dévil como hoja de trabajo, WS como hoja de trabajo
currentSelection dévil como gama, blanco como gama, subTarget como gama
screenUpdate dévil como boleano

screenUpdate = Application.ScreenUpdating
Application.ScreenUpdating = falso

'el programa registra la hoja de trabajo actual y la selección actual
'tan en el final del programa usted puede hacer que el programa vuelva a
'donde usted estaba original
Fijar el currentSheet = Application.ActiveSheet
Fijar el currentSelection = Application.Selection
Fijar la blanco = la gama (“B4: B253”)

Para cada subTarget en blanco
    Si "" <> de subTarget.Value entonces
        Gama (subTarget, subTarget.End (xlToRight)). Copia
        Hojas de trabajo (“almacenaje”). Selecto
        Gama (“A1”). Activar
                
        'comprobar para ver si la célula A2 es en blanco, si entonces no es en blanco
        'esencialmente presionar Crtl + abajo flecha para encontrar dinámicamente la célula pasada
        Si ActiveCell.Offset (1, 0). "" <> del valor entonces
            Selection.End (xlDown). Selecto
        Terminar si
                
        'compensar la dirección de la célula activa por 1 fila y después pegarla,
        'si usted no hiciera esto usted sobreescribiría los viejos valores
        ActiveCell.Offset (1, 0). Activar
        'pegar todo
        xlPasteAll de ActiveCell.PasteSpecial
        Hojas de trabajo (“ResultsLog”). Selecto
    Terminar si
Después

Application.CutCopyMode = falso
currentSheet.Select
currentSelection.Select

Application.ScreenUpdating = ScreenUpdating

Fijar el currentSheet = nada
Fijar WS = nada
Fijar el currentSelection = nada
Fijar la blanco = nada
Fijar el subTarget = nada

Terminar el submarino
Otras soluciones  
 
programming4us programming4us