Es ese mi problema no tengo la mas minima idea de como se hace.
Yo tengo el office 2000 y baje el archivo y lo pude abrir lo mas bien. Le cambio la extencion a .xls a ver si lo podes abrir.
http://choda125.bizhat.com/mydata100.xls
mira uno de mis mejores codigos (no te vas a reir ... acordate que es mi primer intento de solo haber visto algunos ejemplos)
Cita: Private Sub CommandButton1_Click()
Dim Rango As Range
Sheets("mydata163").Select
For Each Rango In ActiveSheet.Range("A1:A150")
If Rango = "Propietario" Then
Rango.EntireRow.Copy
Sheets("Propietario").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ElseIf Rango = "Puntos" Then
Rango.EntireRow.Copy
Sheets("Puntos").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ElseIf Rango = "Alianza" Then
Rango.EntireRow.Copy
Sheets("Alianza").Activate
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If
Next
End Sub
Trato de hacer lo del for pero necesito saber como remplazo donde dice "Sheets("mydata163").Select" y cambiar el 163 por una variable para ir abriendo distintos todos los archivos.
Y mi otro problema es que cuando encuentra el rango indicado copia toda la fila, como reemplazo Rango.EntireRow.Copy y solo copiar la columna B del rango indicado ?