consulta sobre macros

a83 · #1 (**permalink**) 22/07/2010, 08:55

bueno estoy biendo la forma de solamente tomar algunos datos de la tabla y enviarlos a otra en tabla, lo que no puedo hacer es tomar los datos que necesito salamente en este codigo me toma toda las linea mas todas la colunas que

este es el codigo

Código PHP:

  Private Sub CommandButton1_Click()

wmacro = ActiveWorkbook.Name

 
openfile

'ActiveWorkbook.Name

worigen = ActiveWorkbook.Name

'wdestino = "info1.xls"

 
MsgBox ("Elija Ahora el archivo destino")

openfile

wdestino = ActiveWorkbook.Name

'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna

Range("B10").Activate

rt = ActiveCell.Row 'renglon

ct = ActiveCell.Column 'columna

 
For i2 = 3 To 41

rt2 = rt

For i = 1 To 5

 
 
Workbooks(worigen).Activate

' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos

temp = Cells(i, i2).Value

'seleccionamos el libro donde pondremos los datos

Workbooks(wdestino).Activate

'lo asignamos a variables para irle sumando conforma nos movemos en la hoja

Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.

'se movera 5 renglones abajo. en la columna q debe ir

rt2 = rt2 + 1

 
Next

 
Next

 
End Sub