Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
25 views5 pages

Separacion de Codigo

The document copies cell values from one sheet named 'Std Flexo' to another sheet named 'Base de datos' by referencing the cell ranges.

Uploaded by

vale.arqueros1995
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as XLSX, PDF, TXT or read online on Scribd
25 views5 pages

Separacion de Codigo

The document copies cell values from one sheet named 'Std Flexo' to another sheet named 'Base de datos' by referencing the cell ranges.

Uploaded by

vale.arqueros1995
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as XLSX, PDF, TXT or read online on Scribd
You are on page 1/ 5

Sheets("Base de datos").Range("B2").Value = Sheets("Std Flexo").Range("D9").

Value
Sheets("Base de datos").Range("C2").Value = Sheets("Std Flexo").Range("D5").Value
Sheets("Base de datos").Range("D2").Value = Sheets("Std Flexo").Range("D6").Value
Sheets("Base de datos").Range("E2").Value = Sheets("Std Flexo").Range("D7").Value
Sheets("Base de datos").Range("F2").Value = Sheets("Std Flexo").Range("D8").Value
Sheets("Base de datos").Range("G2").Value = Sheets("Std Flexo").Range("D10").Value
Sheets("Base de datos").Range("H2").Value = Sheets("Std Flexo").Range("D11").Value
Sheets("Base de datos").Range("I2").Value = Sheets("Std Flexo").Range("D12").Value
Sheets("Base de datos").Range("J2").Value = Sheets("Std Flexo").Range("D16").Value
Sheets("Base de datos").Range("K2").Value = Sheets("Std Flexo").Range("D17").Value
Sheets("Base de datos").Range("L2").Value = Sheets("Std Flexo").Range("E17").Value
Sheets("Base de datos").Range("M2").Value = Sheets("Std Flexo").Range("D19").Value
Sheets("Base de datos").Range("N2").Value = Sheets("Std Flexo").Range("D20").Value
Sheets("Base de datos").Range("O2").Value = Sheets("Std Flexo").Range("E20").Value
Sheets("Base de datos").Range("P2").Value = Sheets("Std Flexo").Range("D22").Value
Sheets("Base de datos").Range("Q2").Value = Sheets("Std Flexo").Range("D23").Value
Sheets("Base de datos").Range("R2").Value = Sheets("Std Flexo").Range("E23").Value
Sheets("Base de datos").Range("S2").Value = Sheets("Std Flexo").Range("D25").Value
Sheets("Base de datos").Range("T2").Value = Sheets("Std Flexo").Range("D26").Value
Sheets("Base de datos").Range("U2").Value = Sheets("Std Flexo").Range("E26").Value
Sheets("Base de datos").Range("V2").Value = Sheets("Std Flexo").Range("D28").Value
Sheets("Base de datos").Range("W2").Value = Sheets("Std Flexo").Range("D29").Value
Sheets("Base de datos").Range("X2").Value = Sheets("Std Flexo").Range("E29").Value
Sheets("Base de datos").Range("Y2").Value = Sheets("Std Flexo").Range("I28").Value
Sheets("Base de datos").Range("Z2").Value = Sheets("Std Flexo").Range("I29").Value
Sheets("Base de datos").Range("AA2").Value = Sheets("Std Flexo").Range("J29").Value
Sheets("Base de datos").Range("AB2").Value = Sheets("Std Flexo").Range("I25").Value
Sheets("Base de datos").Range("AC2").Value = Sheets("Std Flexo").Range("I26").Value
Sheets("Base de datos").Range("AD2").Value = Sheets("Std Flexo").Range("J26").Value
Sheets("Base de datos").Range("AE2").Value = Sheets("Std Flexo").Range("I22").Value
Sheets("Base de datos").Range("AF2").Value = Sheets("Std Flexo").Range("I23").Value
Sheets("Base de datos").Range("AG2").Value = Sheets("Std Flexo").Range("J23").Value
Sheets("Base de datos").Range("AH2").Value = Sheets("Std Flexo").Range("I19").Value
Sheets("Base de datos").Range("AI2").Value = Sheets("Std Flexo").Range("I20").Value
Sheets("Base de datos").Range("AJ2").Value = Sheets("Std Flexo").Range("J20").Value
Sheets("Base de datos").Range("AK2").Value = Sheets("Std Flexo").Range("I16").Value
Sheets("Base de datos").Range("AL2").Value = Sheets("Std Flexo").Range("I17").Value
Sheets("Base de datos").Range("AM2").Value = Sheets("Std Flexo").Range("J17").Value
Sheets("Base de datos").Range("AN2").Value = Sheets("Std Flexo").Range("C48").Value
Concatenado
h2.Cells(b.Row, " B ") = h1.[ D9 ] h2.Cells(b.Row, "B") = h1.[D9]
h2.Cells(b.Row, " C ") = h1.[ D5 ] h2.Cells(b.Row, "C") = h1.[D5]
h2.Cells(b.Row, " D ") = h1.[ D6 ] h2.Cells(b.Row, "D") = h1.[D6]
h2.Cells(b.Row, " E ") = h1.[ D7 ] h2.Cells(b.Row, "E") = h1.[D7]
h2.Cells(b.Row, " F ") = h1.[ D8 ] h2.Cells(b.Row, "F") = h1.[D8]
h2.Cells(b.Row, " G ") = h1.[ D10 ] h2.Cells(b.Row, "G") = h1.[D10]
h2.Cells(b.Row, " H ") = h1.[ D11 ] h2.Cells(b.Row, "H") = h1.[D11]
h2.Cells(b.Row, " I ") = h1.[ D12 ] h2.Cells(b.Row, "I") = h1.[D12]
h2.Cells(b.Row, " J ") = h1.[ D16 ] h2.Cells(b.Row, "J") = h1.[D16]
h2.Cells(b.Row, " K ") = h1.[ D17 ] h2.Cells(b.Row, "K") = h1.[D17]
h2.Cells(b.Row, " L ") = h1.[ E17 ] h2.Cells(b.Row, "L") = h1.[E17]
h2.Cells(b.Row, " M ") = h1.[ D19 ] h2.Cells(b.Row, "M") = h1.[D19]
h2.Cells(b.Row, " N ") = h1.[ D20 ] h2.Cells(b.Row, "N") = h1.[D20]
h2.Cells(b.Row, " O ") = h1.[ E20 ] h2.Cells(b.Row, "O") = h1.[E20]
h2.Cells(b.Row, " P ") = h1.[ D22 ] h2.Cells(b.Row, "P") = h1.[D22]
h2.Cells(b.Row, " Q ") = h1.[ D23 ] h2.Cells(b.Row, "Q") = h1.[D23]
h2.Cells(b.Row, " R ") = h1.[ E23 ] h2.Cells(b.Row, "R") = h1.[E23]
h2.Cells(b.Row, " S ") = h1.[ D25 ] h2.Cells(b.Row, "S") = h1.[D25]
h2.Cells(b.Row, " T ") = h1.[ D26 ] h2.Cells(b.Row, "T") = h1.[D26]
h2.Cells(b.Row, " U ") = h1.[ E26 ] h2.Cells(b.Row, "U") = h1.[E26]
h2.Cells(b.Row, " V ") = h1.[ D28 ] h2.Cells(b.Row, "V") = h1.[D28]
h2.Cells(b.Row, " W ") = h1.[ D29 ] h2.Cells(b.Row, "W") = h1.[D29]
h2.Cells(b.Row, " X ") = h1.[ E29 ] h2.Cells(b.Row, "X") = h1.[E29]
h2.Cells(b.Row, " Y ") = h1.[ I28 ] h2.Cells(b.Row, "Y") = h1.[I28]
h2.Cells(b.Row, " Z ") = h1.[ I29 ] h2.Cells(b.Row, "Z") = h1.[I29]
h2.Cells(b.Row, " AA ") = h1.[ J29 ] h2.Cells(b.Row, "AA") = h1.[J29]
h2.Cells(b.Row, " AB ") = h1.[ I25 ] h2.Cells(b.Row, "AB") = h1.[I25]
h2.Cells(b.Row, " AC ") = h1.[ I26 ] h2.Cells(b.Row, "AC") = h1.[I26]
h2.Cells(b.Row, " AD ") = h1.[ J26 ] h2.Cells(b.Row, "AD") = h1.[J26]
h2.Cells(b.Row, " AE ") = h1.[ I22 ] h2.Cells(b.Row, "AE") = h1.[I22]
h2.Cells(b.Row, " AF ") = h1.[ I23 ] h2.Cells(b.Row, "AF") = h1.[I23]
h2.Cells(b.Row, " AG ") = h1.[ J23 ] h2.Cells(b.Row, "AG") = h1.[J23]
h2.Cells(b.Row, " AH ") = h1.[ I19 ] h2.Cells(b.Row, "AH") = h1.[I19]
h2.Cells(b.Row, " AI ") = h1.[ I20 ] h2.Cells(b.Row, "AI") = h1.[I20]
h2.Cells(b.Row, " AJ ") = h1.[ J20 ] h2.Cells(b.Row, "AJ") = h1.[J20]
h2.Cells(b.Row, " AK ") = h1.[ I16 ] h2.Cells(b.Row, "AK") = h1.[I16]
h2.Cells(b.Row, " AL ") = h1.[ I17 ] h2.Cells(b.Row, "AL") = h1.[I17]
h2.Cells(b.Row, " AM ") = h1.[ J17 ] h2.Cells(b.Row, "AM") = h1.[J17]
h2.Cells(b.Row, " AN ") = h1.[ C48 ] h2.Cells(b.Row, "AN") = h1.[C48]
.Range("I3").Value = (Sheets("REGISTRO").Cells(i, "A .Range(" D9
.Range(" D5
.Range(" D6
.Range(" D7
.Range(" D8
.Range(" D10
.Range(" D11
.Range(" D12
.Range(" D16
.Range(" D17
.Range(" E17
.Range(" D19
.Range(" D20
.Range(" E20
.Range(" D22
.Range(" D23
.Range(" E23
.Range(" D25
.Range(" D26
.Range(" E26
.Range(" D28
.Range(" D29
.Range(" E29
.Range(" I28
.Range(" I29
.Range(" J29
.Range(" I25
.Range(" I26
.Range(" J26
.Range(" I22
.Range(" I23
.Range(" J23
.Range(" I19
.Range(" I20
.Range(" J20
.Range(" I16
.Range(" I17
.Range(" J17
.Range(" C48
").Value = (Sheets("Base de datos").Cells(i, " B "))
").Value = (Sheets("Base de datos").Cells(i, " C "))
").Value = (Sheets("Base de datos").Cells(i, " D "))
").Value = (Sheets("Base de datos").Cells(i, " E "))
").Value = (Sheets("Base de datos").Cells(i, " F "))
").Value = (Sheets("Base de datos").Cells(i, " G "))
").Value = (Sheets("Base de datos").Cells(i, " H "))
").Value = (Sheets("Base de datos").Cells(i, " I "))
").Value = (Sheets("Base de datos").Cells(i, " J "))
").Value = (Sheets("Base de datos").Cells(i, " K "))
").Value = (Sheets("Base de datos").Cells(i, " L "))
").Value = (Sheets("Base de datos").Cells(i, " M "))
").Value = (Sheets("Base de datos").Cells(i, " N "))
").Value = (Sheets("Base de datos").Cells(i, " O "))
").Value = (Sheets("Base de datos").Cells(i, " P "))
").Value = (Sheets("Base de datos").Cells(i, " Q "))
").Value = (Sheets("Base de datos").Cells(i, " R "))
").Value = (Sheets("Base de datos").Cells(i, " S "))
").Value = (Sheets("Base de datos").Cells(i, " T "))
").Value = (Sheets("Base de datos").Cells(i, " U "))
").Value = (Sheets("Base de datos").Cells(i, " V "))
").Value = (Sheets("Base de datos").Cells(i, " W "))
").Value = (Sheets("Base de datos").Cells(i, " X "))
").Value = (Sheets("Base de datos").Cells(i, " Y "))
").Value = (Sheets("Base de datos").Cells(i, " Z "))
").Value = (Sheets("Base de datos").Cells(i, " AA "))
").Value = (Sheets("Base de datos").Cells(i, " AB "))
").Value = (Sheets("Base de datos").Cells(i, " AC "))
").Value = (Sheets("Base de datos").Cells(i, " AD "))
").Value = (Sheets("Base de datos").Cells(i, " AE "))
").Value = (Sheets("Base de datos").Cells(i, " AF "))
").Value = (Sheets("Base de datos").Cells(i, " AG "))
").Value = (Sheets("Base de datos").Cells(i, " AH "))
").Value = (Sheets("Base de datos").Cells(i, " AI "))
").Value = (Sheets("Base de datos").Cells(i, " AJ "))
").Value = (Sheets("Base de datos").Cells(i, " AK "))
").Value = (Sheets("Base de datos").Cells(i, " AL "))
").Value = (Sheets("Base de datos").Cells(i, " AM "))
").Value = (Sheets("Base de datos").Cells(i, " AN "))
.Range("D9").Value = (Sheets("Base de datos").Cells(i, "B"))
.Range("D5").Value = (Sheets("Base de datos").Cells(i, "C"))
.Range("D6").Value = (Sheets("Base de datos").Cells(i, "D"))
.Range("D7").Value = (Sheets("Base de datos").Cells(i, "E"))
.Range("D8").Value = (Sheets("Base de datos").Cells(i, "F"))
.Range("D10").Value = (Sheets("Base de datos").Cells(i, "G"))
.Range("D11").Value = (Sheets("Base de datos").Cells(i, "H"))
.Range("D12").Value = (Sheets("Base de datos").Cells(i, "I"))
.Range("D16").Value = (Sheets("Base de datos").Cells(i, "J"))
.Range("D17").Value = (Sheets("Base de datos").Cells(i, "K"))
.Range("E17").Value = (Sheets("Base de datos").Cells(i, "L"))
.Range("D19").Value = (Sheets("Base de datos").Cells(i, "M"))
.Range("D20").Value = (Sheets("Base de datos").Cells(i, "N"))
.Range("E20").Value = (Sheets("Base de datos").Cells(i, "O"))
.Range("D22").Value = (Sheets("Base de datos").Cells(i, "P"))
.Range("D23").Value = (Sheets("Base de datos").Cells(i, "Q"))
.Range("E23").Value = (Sheets("Base de datos").Cells(i, "R"))
.Range("D25").Value = (Sheets("Base de datos").Cells(i, "S"))
.Range("D26").Value = (Sheets("Base de datos").Cells(i, "T"))
.Range("E26").Value = (Sheets("Base de datos").Cells(i, "U"))
.Range("D28").Value = (Sheets("Base de datos").Cells(i, "V"))
.Range("D29").Value = (Sheets("Base de datos").Cells(i, "W"))
.Range("E29").Value = (Sheets("Base de datos").Cells(i, "X"))
.Range("I28").Value = (Sheets("Base de datos").Cells(i, "Y"))
.Range("I29").Value = (Sheets("Base de datos").Cells(i, "Z"))
.Range("J29").Value = (Sheets("Base de datos").Cells(i, "AA"))
.Range("I25").Value = (Sheets("Base de datos").Cells(i, "AB"))
.Range("I26").Value = (Sheets("Base de datos").Cells(i, "AC"))
.Range("J26").Value = (Sheets("Base de datos").Cells(i, "AD"))
.Range("I22").Value = (Sheets("Base de datos").Cells(i, "AE"))
.Range("I23").Value = (Sheets("Base de datos").Cells(i, "AF"))
.Range("J23").Value = (Sheets("Base de datos").Cells(i, "AG"))
.Range("I19").Value = (Sheets("Base de datos").Cells(i, "AH"))
.Range("I20").Value = (Sheets("Base de datos").Cells(i, "AI"))
.Range("J20").Value = (Sheets("Base de datos").Cells(i, "AJ"))
.Range("I16").Value = (Sheets("Base de datos").Cells(i, "AK"))
.Range("I17").Value = (Sheets("Base de datos").Cells(i, "AL"))
.Range("J17").Value = (Sheets("Base de datos").Cells(i, "AM"))
.Range("C48").Value = (Sheets("Base de datos").Cells(i, "AN"))

You might also like