Rellenar celdas en blanco con un valor mediante cuadro de dialogo
Necesito una macro que mediante un cuadro de dialogo me permita rellenar un rango de celdas en blanco con un valor determinado, en este caso en particular una letra ("X"). Adjunto ejemplo.
1 respuesta
Respuesta de Dante Amor
2
Visita:
Cursos de Excel y Macros
----- --
Prueba la siguiente macro:
Sub Macro2()
Dim lr As Long, lc As Long
Dim txt As Variant
'
txt = InputBox("Ingresa valor", , "X")
If txt = "" Or txt = False Then Exit Sub
'
lr = Range("A" & Rows.Count).End(3).Row
Range("A1:T" & lr).SpecialCells(xlCellTypeBlanks).Value = txt
lc = Cells(1, Columns.Count).End(1).Column + 1
If lc < Columns("T").Column Then
Range(Cells(1, lc), Cells(lr, "T")).Value = txt
End If
End Sub----- --
Recomendaciones:
curso de macros. Declarar variables en vba excel. - YouTube
Curso de excel. Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Sal u dos Dante Amor
