Proponer filas de datos especiales en excel Tengo una tabla de la siguiente manera: XXXXXXXXXXXXX 123 A 34234234 232 B 34355 233 C 343434.
Subbotón 1_Click()
Atenuar personas, Pp, Temp
Atenuar hoja de trabajo como hoja de trabajo
Atenuar I como entero
Atenuar NewRow
Atenuar CPT1 como cadena, CPT2 como cadena, CPT3 como cadena
Para cada persona en hojas("人").Range("A1:A1000" )
I = 0
Si Personas = "" Entonces
Salir para
Finalizar si
CPT1 = Hojas("HOJA1").Rango("D1")
CPT2 = Hojas("HOJA2").Rango("B1")
CP3 = Hojas( "HOJA3" ).Range("B1")
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = Personas
Sheets(People.Text).Range ("C1 ") = CPT1
Hoja1.Activar
Para cada Pp en Hojas("hoja1").Range("C2:C83")
Si Pp = Personas Entonces
Pp.Activate
NewRow = ActiveCell.EntireRow
Sheets(People.Text).Rows("2:2"). ) = NuevaFila
I = I + 1
Finalizar si
Siguiente
I = I + 1
Hojas(Personas.Text).Range("c1").Desplazamiento(I) = CPT2
Hojas(Personas.Text).Activar
Hojas("SHEET2 "). Activar
Para cada Pp en Sheets("sheet2").Range("C3:C86")
Si Pp = Personas Entonces
Pp .Activate
NewRow = ActiveCell.EntireRow
Sheets(People.Text).Rows("2:2").Offset(I) = NewRow
I = I + 1
Finalizar si
Siguiente
I = I + 1
Hojas(Personas.Texto).Activar
Sheets("SHEET3").Activar
Sheets(People.Text).Range("c1").Offset(I) = CPT3
Para cada Pp en Sheets("sheet3 ").Range("a3:a1101")
Si Pp = Personas Entonces
Pp.Activate
NewRow = ActiveCell.EntireRow
Sheets(People.Text).Rows("2:2").Offset(I) = NewRow
I = I + 1
Fin si
Siguiente
MsgBox People.Text & "FINISH"
Siguiente
Fin Sub