Luis_P

Ok Tenemos hoja1 y hoja2 pasar datos de hoja1 a hoja2 Entonces, acá esta el macro: Sub distribuir() Dim i As Long Dim ii As Long Dim r As Range Dim c As Integer Dim n As Integer ' LP 19102011 Sheets(1).Select i =...

a que te refieres con "expandida"... ¿modificas el "ancho" de la columna?

Acá esta: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Range("c" & Target.Row) = Range("B" & Target.Row) End If End Sub Así en evento change de la hoja, cada ves que cambie ( ingresas algo en col A, entonces lo que...