Macro condicionada al valor de una celda
Deseo crear una macro que inserte un número determinado de celdas de acuerdo a lo que se establezc en una celda, es decir quiero que si en la celda "A4" esta el número 5 la macro me inserte 5 celdas
1 respuesta
Respuesta de bacter582
1
Como estas amigo, prueba esta macro y me comentas
Funciona seleccionando la celda que contiene el numero de celdas que deseas agregar.
Sub Ingresar_n_filas()
'
' Macro2 Macro
' Macro grabada el 29/09/2011 por
Dim rango As Range
Dim rango2 As Range
Dim Nceldas As Integer
Dim Rango_t As String
Nceldas = ActiveCell.Value
Set rango2 = ActiveCell
Set rango = Range("A1", Cells(Nceldas, 1))
rango.Select
Rango_t = Selection.Address(ReferenceStyle:=xlA1, _
RowAbsolute:=False, ColumnAbsolute:=False)
rango2.Select
ActiveCell.Offset(1, 0).Range(Rango_t).Select
Selection.Insert Shift:=xlDown
End Sub
Funciona seleccionando la celda que contiene el numero de celdas que deseas agregar.
Sub Ingresar_n_filas()
'
' Macro2 Macro
' Macro grabada el 29/09/2011 por
Dim rango As Range
Dim rango2 As Range
Dim Nceldas As Integer
Dim Rango_t As String
Nceldas = ActiveCell.Value
Set rango2 = ActiveCell
Set rango = Range("A1", Cells(Nceldas, 1))
rango.Select
Rango_t = Selection.Address(ReferenceStyle:=xlA1, _
RowAbsolute:=False, ColumnAbsolute:=False)
rango2.Select
ActiveCell.Offset(1, 0).Range(Rango_t).Select
Selection.Insert Shift:=xlDown
End Sub
