Programación General > VBA

 Copiar un listado a otra hoja

(1/1)

splinter72:
Quisiera copiar un listado evaluando la columna celda x celda, esto
porque hay datos en las filas que son diferentes a otras filas y unas
filas se van a una hoja y otros a otra, suponiendo si es un carro, se
copie a la hoja de "camionetas y coches"; y si es una motocicleta se
copie a la hoja de "bicicletas y motos", esto lo quiero hacer por
codigo por su tamaño, lo que no se como hacer el ciclo para que evalue
la ultima celda que copie  baje o continue con la siguiente, no se si me
explico.....
Gracias y espero haya respuesta

F_Tanori:
Hola, te dare una idea de como recorrer las filas. hay muchas formas de hacerlo esta es una idea Ad líbitum aunque eso de recorridos secuenciales como que no van para el uso diario..., incluso hay formas mejores de 'convertir' Excel en base de datos y usar comandos SQL a traves de un driver ODBC, o exportando los datos a una base de datos como Access (etc.)

Pero bueno he aqui una 'guia'



--- Código: Visual Basic ---Function Recorrer(CeldaInicial As String)    On Error GoTo xError    Dim Renglon As Integer, CeldaActual As String, FilaFinal As Integer    Dim Direccion      Direccion = Split(Excel.Range(CeldaInicial).Address, "$")    Renglon = Direccion(2)    CeldaActual = CeldaInicial        'Final    FilaFinal = Renglon + 100        Do While Renglon <= FilaFinal        Excel.Range(CeldaActual).Activate        Excel.Range(CeldaActual) = Renglon        Renglon = Renglon + 1        CeldaActual = Direccion(1) & Renglon    Loop        xError:    If Err.Number > 0 Then        MsgBox Err.Description, vbCritical, Err.Number        Err.Clear    End IfEnd Function 
Ejemplos de Uso:

--- Código: Visual Basic ---   Recorrer("A14") 

--- Código: Visual Basic ---   Recorrer("Z9") 

--- Código: Visual Basic ---   Recorrer("AC14") 

Navegación

[0] Índice de Mensajes