Codigo para que me inserte un texto con referencia a cantidad de celdas utilizadas

5 envíos / 0 nuevos
Último envío
Angela Patricia
Imagen de Angela Patricia
Offline
última acción: Hace 5 años 1 mes
alta: 11/02/2019 - 20:45
Puntos: 115
Codigo para que me inserte un texto con referencia a cantidad de celdas utilizadas

Buenas Tardes

Estoy creando una macro en donde de acuerdo a la cantidad de celdas utilizadas A1 a A"X" (rango variable) debe colocarme al frente B1 texto "excluir". como puedo hacerlo porque no logro hacerlo.

 

Etiquetas: 

Avalencia
Imagen de Avalencia
Offline
última acción: Hace 2 años 1 mes
alta: 10/02/2019 - 19:24
Puntos: 40
HolaTe refieres a que ¿si hay

Hola

Te refieres a que ¿si hay algún dato culaquier celda del rango A1-A"x", en la celda de la columna B correspondiente se coloca la palabra "excluir"? ¿es eso?

Angela Patricia
Imagen de Angela Patricia
Offline
última acción: Hace 5 años 1 mes
alta: 11/02/2019 - 20:45
Puntos: 115
respuesta

A valencia tengo en la columna A muchos datos pero no van hasta un rango en particular este puede variar y al frente debo colocar la plabra "excluir" en la columna B, es decir debo tener como referencia la columna A. 

Avalencia
Imagen de Avalencia
Offline
última acción: Hace 2 años 1 mes
alta: 10/02/2019 - 19:24
Puntos: 40
Hola, prueba así:Sub Rellenar

Hola, prueba así:

Sub Rellenar()

 

Dim UltimaFila As Long

Dim Celda As Range

 

Application.ScreenUpdating = False

 

Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row

 

For Each Celda In Range("A1:A" & UltimaFila)

    If Celda <> "" Then

        Celda.Offset(0, 1) = "Excluir"

    End If

Next Celda

 

Application.ScreenUpdating = True

 

End Sub

Angela Patricia
Imagen de Angela Patricia
Offline
última acción: Hace 5 años 1 mes
alta: 11/02/2019 - 20:45
Puntos: 115
GRACIASSSS TOTALESSSS

Me funciono, eso era lo que queria :)