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.

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas