¿Cómo puedo recorrer una celda en una macro mediante código?
Hola buenas tardes solicitando de su apoyo y que en mi macro quiero recorrer una celda y cuando no encuentre nada de una celda ejemplo de lo que tengo
Datos
1
2
3
Personas
1
2
Digamos que en datos posteriormente me va aparecer 4 para que no se encime en la celda de personas como hago para recorrerla con una fórmula en macro para que no se encime espero me puedan ayudar
Tengo este código pero solo me recorre la columna quiero algo similar pero para recorrer la celda
uc = Cells(3, Columns.Count).End(xlToLeft).Column + 1
Cells(3, uc) = "TOTAL"
c = Columns(uc - 1).Address(False, False)
c = Left(c, InStr(1, c, ":") - 1)
2 Respuestas
Te anexo la macro.
Cambia en la macro "A" por la letra de la columna que quieras revisar.
Cambia la palabra "dato" por la palabra que estás buscando
Sub InsertarFila()
'Por.Dante Amor
For i = 1 To Range("f" & Rows.Count).End(xlUp).Row
If Cells(i, "A") = "dato" Then
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Exit For
End If
Next
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
Te paso un ejemplo que recorre las filas busca dato requerido y lo elimina
http://www.programarexcel.com/2014/10/macro-recorre-filas-busca-dato-y-elimina.html
Otro que recorre las filas y busca datos en base a criterios
http://www.programarexcel.com/2013/05/macro-vba-recorre-filas-busca-y-copia.html
Otro que recorre filas busca y pega datos
http://www.programarexcel.com/2014/10/macro-recorre-filas-busca-copia-y-pega.html
Otro que recorre las filas busca datos y resalta la fila donde se encuentra el dato
http://www.programarexcel.com/2014/10/macro-recorre-filas-busca-copia-y-pega.html