jarjausroy

jerryeagle respondió: Pues parece que: O no haz avanzado mucho en "conocimientos" o te da flojera porque en muchas de tus consultas pones esto: Tengo la selección de la columna Private Sub Digitos() Cells.Find(What:="digitos", After:=ActiveCell, LookIn:=xlFormulas, LookAt...

excelforo - Ismael Romero respondió: Trabajar y evaluar con los datos de toda una columna no es muy recomendable, pero podrías cambiar el rango de estudio. El código sería este: Sub macro1() Dim celda As Object For Each celda In Range("CP:CP") If Len(celda) > 5 Then...

Enrique Bernal respondió: Este sería el código, para mi ejemplo dirección 1 está en A y dirección dos esta en la columna B: Sub concatena() Dim Comprobar, Contador Comprobar = True: Contador = 1 ' Inicializa variables. Do ' Bucle externo. Do While Contador < 65000 ' Bucle...

Enrique Bernal respondió: Listo, esta macro hace lo que necesitas. Sub Postal() Cells.Find(What:="Cod Postal", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate columna = ActiveCell.Column...

Elsa Matilde respondió: Si revisas tus consultas verás que ya recibiste una rutina que hace casi lo mismo Así que nos vamos a basar en ese ejemplo para realizar ahora esta otra tarea: Private Sub TELEFONO() Cells.Find(What:="Telefono", After:=ActiveCell, LookIn:=xlFormulas,...

jerryeagle respondió: "por ahora solo tengo la selección de la columna" ¿A qué t refieres con eso?

Elsa Matilde respondió: Te la devuelvo completada... Public Sub TITULAR1() Cells.Find(What:="Titular1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(1, 0).Select...