Tengo el siguiente codigo de visual basic, lo que necesito que haga es: me divida una base de datos en varios archivos de Excel, en esta base de datos hay una columna llamada CODIGO, quiero que cada vez que la columna codigo cambie de valor se asignen el resto de filas con ese mismo codigo a un excel distinto , esto cada vez que ese codigo cambie de valor, sin importar si ese codigo ya lo vio hace 2 filas atras o mas
**Sub DividirEnVariosArchivos()
Dim wbOriginal As Workbook
Dim wbNuevo As Workbook
Dim wsOriginal As Worksheet
Dim rango As Range
Dim filaInicial As Long
Dim filaFinal As Long
Dim columnaClave As Integer
Dim valorActual As Variant
Dim valorAnterior As Variant
' Establecer el libro y la hoja de trabajo originales
Set wbOriginal = ThisWorkbook
Set wsOriginal = wbOriginal.Sheets("Hoja1")
' Establecer la columna clave por su número (ejemplo: 1 para "A", 2 para "B", etc.)
columnaClave = 5 ' Cambia esto por el número de tu columna clave
' Establecer la fila inicial
filaInicial = 2 ' Asume que la primera fila tiene encabezados
' Establecer el valor anterior al de la primera fila de datos
valorAnterior = wsOriginal.Cells(filaInicial, columnaClave).Value
' Recorrer las filas desde la segunda hasta la última con datos
For filaFinal = filaInicial + 1 To wsOriginal.Cells(wsOriginal.Rows.Count, columnaClave).End(xlUp).Row
' Obtener el valor actual de la columna clave
valorActual = wsOriginal.Cells(filaFinal, columnaClave).Value
' Verificar si el valor ha cambiado
If valorActual <> valorAnterior Then
' Definir el rango a copiar
Set rango = wsOriginal.Range(wsOriginal.Cells(filaInicial, 1), wsOriginal.Cells(filaFinal - 1, wsOriginal.Columns.Count))
' Crear un nuevo libro de trabajo
Set wbNuevo = Workbooks.Add
' Pegar el rango en el nuevo libro de trabajo
rango.Copy Destination:=wbNuevo.Sheets(1).Cells(1, 1)
' Guardar el nuevo libro de trabajo con un nombre basado en el valor anterior
wbNuevo.SaveAs "C:\ruta\a\tu\carpeta\datos_" & valorAnterior & ".xlsx"
' Cerrar el nuevo libro de trabajo
wbNuevo.Close SaveChanges:=False
' Actualizar la fila inicial y el valor anterior
filaInicial = filaFinal
valorAnterior = valorActual
End If
Next filaFinal
' Copiar y guardar el último conjunto de datos
Set rango = wsOriginal.Range(wsOriginal.Cells(filaInicial, 1), wsOriginal.Cells(filaFinal, wsOriginal.Columns.Count))
Set wbNuevo = Workbooks.Add
rango.Copy Destination:=wbNuevo.Sheets(1).Cells(1, 1)
wbNuevo.SaveAs "C:\Users\carlo\Desktop\resultado\datos_" & valorAnterior & ".xlsx"
wbNuevo.Close SaveChanges:=False
End Sub**