Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

VBA Copiar en Excel y pegar como texto en Word?

Te anexo un ejemplo para pegar en Word Sub Excel_Word_PENDIENTE() 'On Error Resume Next Dim Wordapn As Object DatoFechador = Format(Now(), "dd-mm-yyyy") + " " + Format(Now, "H M Am/Pm") 'establecemos una variable para la fecha Ruta =...
Respuesta en y en 2 temas más a

Macro Pegar rango de celdas en cuerpo de outlook

Revisa el siguiente ejemplo, puse el wait y a mí sí me funciona Sub Correo() CONTADORBIS = 2 diaActual = Date Selection.Copy 'CREA EMAIL Set objMail = CreateObject("outlook.application").createitem(olmailitem) 'Para objMail.To =...
Respuesta en y en 1 temas más a

Copiar una hoja con macro a otro exel

Te recomiendo hacer una copia de todo el libro. De esa forma el nuevo libro tendrá, por así decirlo, sus propias macros. Ejemplo para copiar el todo el libro Sub copiar_Libro() ruta = ThisWorkbook.Path & "\" ThisWorkbook.SaveCopyAs ruta & "Nuevo...
Respuesta en y en 2 temas más a

Macro para buscar y copiar datos según criterio

Envíame tu archivo con dos hojas, en la primera hoja pones los datos antes de incluir los datos de tu compañero, en la segunda hoja me pones tu información mas loa datos de tu compañero. Me explicas con colores y comentarios qué datos incluiste....
Respuesta en y en 1 temas más a

Me sale error cuando uso la macro

Rodrigo, A manera de información, puedes utilizar una hoja aunque esté oculta, no debes seleccionar la hoja, solamente tienes que hacer referencia a la hoja, por ejemplo: Para esta parta: Sheets("4").Select Range("G8:H9").Select Selection....
Respuesta en y en 1 temas más a

Como retroceder una tabla si no hay ningún campo en la fila

Con una macro en los eventos de la hoja se podrían eliminar las filas, si borras toda la información de la fila, entonces la macro elimina la fila. Si quieres utiliza la siguiente macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por. Dante...
Respuesta en y en 2 temas más a

Macros excel. 3 puntos importantes: Sobrescribir, insertar y ceros a la izquierda

Para dejar la Clabe como texto puedes cambiar esta línea: Clabe = Sheets("BASE").Cells(Cont, 11) Por esta : Clabe = "'" & Sheets("BASE").Cells(Cont, 11) De esa forma quedará almacenado como texto y no perderás dígitos. No se copió completa tu macro,...
Respuesta en y en 2 temas más a

3 fila de listbox a textbox excel

Te falta el indicador de la columna ListBox1.List(I, 2) : For I = 0 To ListBox1.ListCount - 1 TextBox6.Text = TextBox6.Text & vbCrLf & ListBox1.List(I, 2) Next El 2 corresponde a la tercera columna del list Sal u dos
Respuesta en y en 1 temas más a

Crear una macro para visualizar unas filas en concreto

¿Estamos hablando del mismo archivo que tengo? Envíame tu archivo y me muestras con un ejemplo lo que necesitas.
Respuesta en y en 2 temas más a

Copiar datos de un archivo txt a una base de datos en Excel mediante VBA

H o l a: Para revisar tu petición, envíame lo siguiente: - Tu archivo de excel con el formulario - Un archivo de txt con ejemplos - Una explicación detallada de los datos que quieres tomar del archivo txt y esos datos puestos en una hoja del archivo...