PASAR AL SIGUENTE REGISTRO DE UNA BASE DE DATOS EN UNA MACRO

10/05/2011 - 22:32 por lyonjfox | Informe spam
¡ Hola !
HE CREADO UNA ESPECIE DE FORMULARIO HOJA "PROFORMA" CUYOS DATOS SE GUARDAN EN HOJA "COMPILADO PROFORMAS" , ME FUNCIONA SI LO EJECUTO POR PRIMERA VEZ PERO TENGO PROBLEMAS PARA QUE CUANDO EJECUTE POR SEGUNDA VEZ LA MACRO ARRANQUE DE LA SIGUIENTE FILA VACIA AGRADEZCO DE ANTEMANO LA AYUDA PEGO MI MACRO.

Sub prueba()
'
' prueba Macro




Sheets("PROFORMA").Select
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("C8:C16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("D8:D16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False




Sheets("PROFORMA").Select
Range("E8:E16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("F8:F16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("G8:G16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("H8:H16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("K3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("I8:I16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("L3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("J8:J16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("PROFORMA").Select
Range("K8:K16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

Sheets("PROFORMA").Select
Range("L8:L16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

Sheets("PROFORMA").Select
Range("M8:M16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False


Sheets("PROFORMA").Select
Range("N8:N16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False






Sheets("PROFORMA").Select
Range("C24:C33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("D24:D33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("E24:E33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("P3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("F24:F33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("Q3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("G24:G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("R3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("H24:H33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("S3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("I24:I33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("T3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("PROFORMA").Select
Range("J24:J33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("U3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("PROFORMA").Select
Range("K24:K33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

Sheets("PROFORMA").Select
Range("L24:L33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

Sheets("PROFORMA").Select
Range("M24:M33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False

Sheets("PROFORMA").Select
Range("N24:N33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("COMPILADO PROFORMAS").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
End Sub

no esta completo pero es la idea

Preguntas similare

Leer las respuestas

Search Busqueda sugerida