Rellenando excell con codigo VB

Basta con lanzar el editor de VBA y escribir el código, por ejemplo en el evento de cambio.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

' Verificamos que el cambio se haga sólo si las celdas que han cambiado son las que nos interesan
If Intersect(Union([g3], [g4]), Target) Is Nothing Then Exit Sub 

' Necesitamos que sean datos numéricos

If Not IsNumeric(Target) Then Exit Sub 
Application.EnableEvents = False
Dim contador As Integer
For Each Item In Range("D8", "D" & CStr(Range("G4").Value + 8))
Item.Value = contador + Range("G3").Value
contador = contador + 1
Next
Application.EnableEvents = True
End Sub


Perdón si es demasiado básico, pero me ha ahorrado un ratito

Leave a Reply