Jump to content

LUISFECAB

Members
  • Content Count

    601
  • Joined

  • Last visited

About LUISFECAB

  • Rank
    Despistado
  • Birthday 06/20/1978

Contact Methods

  • Website URL
    http://www.tiratelas.net

Profile information

  • Gender
    Hombre
  • Localización:
    Colombia
  • Interests
    Todo lo gratis que ofrece Internet.

Converted

  • Mi versión de Excel:
    5
  1. Re: Cual fue tu primer post en AyudaExcel? Esta lo mas de chido el tema. Mi primer post fue este Que una celda me cambie de color....? y gracias a la oportuna y rápida respuesta me enganché en el foro y aunque ande un poco perdido siempre trato de estar pendiente. Ah! y a los 8 minutos hice mi segundo post. Llegando y saludando...
  2. Re: Bienvenida nuevamente a Ioyama! Wow! Es la mejor noticia que me encuentro en el foro:) Que bueno que estés de regreso.
  3. Un millon de gracias Muchas gracias por sus palabras y todos esos buenos deseos, me han alegrado el día y espero que pronto sea más activo; como en los viejos tiempos....Jejeje:D
  4. Re: Ayuda con textbox en formulario Hola fastasma16;) Revisa el adjunto y comentas si eso es lo que quieres. Quedo atento a tus comentarios. Recuerda https://www.ayudaexcel.com/foro/showthread.php?t=2143 fantasma16 Agenda LUISFECAB.zip
  5. Metiendo la cuchara y sin ser inoportuno. [B]sigfila = [COLOR=Blue]Sheets("Hoja2").Cells.Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious)[/COLOR][COLOR=Red].Row[/COLOR] [COLOR=DarkOrange]+ 1[/COLOR][/B][/CODE] Significa que buscaras en la Hoja2 la celda que contenga el asterisco "*" y saber el número de la fila de la celda y luego a ese número de fila le sumas 1. Aquí hallas la celda. [CODE][B][COLOR=Blue]Sheets("Hoja2").Cells.Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious) [/COLOR][/B][/CODE] Aqui el número de fila.
  6. Hola BenX:) Despues de terminar el Do While-Loop que busque el maximo desde el Range(Cell(5,11),Cell(Fila,11)) M = WorksheetFunction.Max(Range(Cells(5, 11), Cells(Fila, 11))) Sub Maximo() Contador = 0 Limite = 0 Fila = 5 M = 0 Sheets("hoja1").Select Limite = Range("B4").Value Do While (Contador < Limite) Sheets("Hoja1").Select Range("H8").Select Selection.Copy Range("K" & Fila).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Contador = Contador + 1 Fila = Fila + 1 Loop [COLOR=SeaGreen]'Despues de te
  7. Recuerda que esta macro debe ser guardada en Thisworkbook y no en niguna hoja.
  8. Hola Jorge y bienvenido a nuestra comunidad:o Que disfrutes y puedas hallar solución a tus dudas.
  9. Sería bueno saber si te sale algún error o mejor si compartes la macro.
  10. Re: ¿Como agregar 2 folios en una misma pagina? Hola AKAGINU. Tratando de entender. Sub Foliar() ini = 1 fin = Cells(44, 3) For NFOLIO = ini To fin Cells(5, 7) = NFOLIO cells(8,7)=320+NFOLIO ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub[/CODE]
  11. Re: Guardar datos en "varias" celdas de excel con un boton de comando "guardar"... Hola soulmatez. Según puedo entender. Lo que debes es elegir la última celda con datos y desde esta debes colocar los datos de los textbox. 'para seleccionar solo la última celda con datos Range("A1").End(xlDown).Select[/CODE] El código anterior te debe seleccionar la celda a partir e "A1" Y para la fecha puedes utiliza puedes utilizar Date. [CODE]ActiveCell = Date[/CODE]
  12. Re: Listado desplegable con la nueva versión de excel Es que esa opción era para la versión anterior del foro. Esperemos que pronto salga un MOD para esta versión. Mientras lo hacemos de forma manual.
  13. Re: Utilizar Columna Completa de Otra Hoja Bueno para dar por terminado el tema:rolleyes:. Cuando abres el editor de VBA se te mostrará el código que esta en la Hoja2 y si quieres abrir otra hoja para pegar el código le debes dar doble clic a esa hoja, no solo un clic.
  14. Re: Eliminar fila con casilla de verificacion activada Muy bien. Creo que podemos darlo por SOLUCIONADO.
  15. Re: Utilizar Columna Completa de Otra Hoja Hola Gatchan. Tal vez utilizando una macro te sirva. Mira si quieres copiar automáticamente lo que escribes el la columna B de la Hoja 1 cuando escribes en la columna B de la Hoja 2, copia el siguiente código en la hoja 2. Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub Hoja1.Range("B" & Target.Row) = Target End Sub[/CODE] y si lo que quieres es al contrario, copiar en la columna B de la Hoja 2 cuando escribes en la columna B de la Hoja 1, debes copiar el mismo código pero
×
×
  • Create New...

Important Information

Privacy Policy