UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Nenita


Buenos días Esperando se encuentren bien 
resulta que me ayudaron  en este foro con una macro Gracias por ello 

el dia de hoy me encuentro si me pueden ayudar a afinar   los detalles 

es lo siguiente:

Es rellenar la celda D  hacia abajo con el ultimo valor pero OJO solo cuando encuentre un dato Numerico pero si es Alfa_numerico no lo haga  
y segunda condicion si  encuentra
un valor en este caso no importa si es numerico o alfanumerico en la columna A.

Envio un archivo  con dos hojas  de antes  de ejecutar la macro y despues  como deberia quedar la macro 
las celdas con color son las que se rellenaron 

Nota Es importante mencionar que tengo mas de 50 mil filas

la macro  que ame ayudaron es la siguiente:
Sub Rellenar_D()
   Dim uf&, r1 As Range, r2 As Range
   
   Application.ScreenUpdating = False
   uf = Range("A" & Rows.Count).End(xlUp).Row
   
   Set r1 = Range("D2:D" & uf).SpecialCells(4).Offset(, 3)
   
   Range("G2:G" & uf) = "=IF((A2<>"""")*(D2="""")*(A1=""""),1,"""")"
   
   Set r2 = r1.SpecialCells(xlCellTypeFormulas, 2).Offset(, -3)
   Range("G2:G" & uf).Clear
   
   With r2
      .NumberFormat = "0"
      .Font.Color = vbRed
     
    
      .Formula = "=R[-1]C&"""""
   End With
   
   With Range("D2:D" & uf)
      .Value2 = .Value2
   End With
   
   Set r1 = Nothing: Set r2 = Nothing
   
   Application.ScreenUpdating = True
End Sub

Mil gracias por su tan valiosa ayuda
Archivos
Envio foro.xlsm
No tienes los permisos para descargar los archivos.
(31 KB)

Igtelo


Hola Nenita.

Aquí va, cuida que tus datos lo que es valor realmente estén como tal y no como texto.

Saludos
Ignacio Téllez
P.d: Los códigos deben venir en el archivo
Archivos
Nenita-Última celda numérica.xlsm
No tienes los permisos para descargar los archivos.
(38 KB)

3RESUELTO Muchas gracias Igtelo el 14/04/16, 12:22 pm

Nenita


En verdad si existiera  o si existe una forma de agradecertelo dimelo   esta perfecto  no  se en donde calificar tampoco  pero mereces un mas que diez
oye  esto  ya es si se pueda y abusando  si tienes tiempo 
podrias explicarme  que significa cada uno de los renglones  porque  funciona ala perfecion  pero no tengo ni la mas miniam idea de lo que hiciste  y bueno me gustaria aprender  un poco mas ,,,,,

 pasa un dia  genial  y
saludos a todos los  mas  de 40  que  vieron mi caso  y agradezco Igtelo que  tu hayas sido el que me ayudara 
cheers cheers cheers
Saludos

4RESUELTO Color de texto el 18/04/16, 05:07 pm

Nenita


Ingacio  buenas tardes  agradezco  mucho tu ayuda al respecto   
soloq  surgio un problemita en lo que me enviaste  cuando ejecuto la macro 
 me salen en ROJO los  datos 
 
y no debo entregarlo 
debe quedar  en letras negras 
muchas gracias por tu apoyo

Igtelo


Nenita.

Esto ya es el "colmo", pues ponlas en el color que gustes!

Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.