Respuesta
en
Microsoft Excel
y en 1 temas más
a
Enviar correo desde excel cuando se cumpla una condición
Te anexo la macro para enviar por outlook. Nota: la macro funciona considerando los datos tal cual se muestran en tu imagen. Sub Enviar_Correos() 'Por Dante Amor For i = 7 To Range("D" & Rows.Count).End(xlUp).Row fec = Cells(i, "D").Value fec = Date...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Quiero hacer una búsqueda en varias hojas de excel y que me devuelva las filas completas que contengan esa palabra
Te anexo la macro Sub Buscar_En_Varias_Hojas() 'Busca una palabra en varias hojas y copia la fila completa 'Por Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("resultado") 'hoja con resultados h1.Select ' fila = 3 h1.Rows(fila & ":"...
Respuesta
en
Ingeniería Informática
y en 3 temas más
a
¿Como seleccionar rango variable en código Visual Basic utilizado en una función de análisis de datos?
Cambia esta línea Application.Run "ATPVBAEN.XLAM!Regress", Range("$AY$4:$AY$43"), _ Range("$AV$4:$AV$43"), False, False, , ActiveSheet.Range("$BL$3" _ ), False, False, False, False, , False Por estas u1 = Range("AY" & Rows.Count).End(xlUp).Row u2 =...
Respuesta
en
Microsoft Word
y en 1 temas más
a
¿Como guardar documentos texto variable en pdf además de en word?
Revisa la siguiente respuesta, ahí está el ejemplo para guardar en word y en pdf Guardar Documentos de Word a PDF con Macro Sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como realizar un case en vba de selección de hojas
Te anexo un ejemplo Sub Copiar_Registros() Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row hoja = LCase(h1.Cells(i, "D").Value) Select Case hoja Case "archivo1": Set h2 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar datos de celdas concretas a posiciones concretas de ficheros de texto
Te anexo la macro. Realiza los siguientes ajustes en la macro: Cambia "C:\trabajo\Enfermos\" por la carpeta donde tienes los archivos de enfermos Cambia "Enfermo tipo.txt", por el nombre de archivo tipo. Nota: este archivo deberá estar también en la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar un dato en una columna y guardarlo en una variable
Para realizar una búsqueda puedes utilizar el método .Find, por ejemplo: Sub Buscar_Dato() Set b = Sheets("Hoja1").Columns("A").Find("COLOMBIA", lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado " & b.Value Else MsgBox "el dato no...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Al presionar un botón en un userform, me active y cargue información en label y textbox de otro userform
Solamente hay que acomodar las línea al revés, primer poner el dato en el label y después abrir el form: Private Sub S1_Click() fecha_actual = Format(Now(), "dd/mm/yyyy") RECIBO.M_S.Caption = "S1" RECIBO.Show 'RECIBO.FECHA.Caption = fecha_actual End...
Respuesta
en
Visual Basic
y en 2 temas más
a
Como resolver un fallo con un código en un formulario de búsqueda
Pero en esta línea NumeroDatos = Base.Range("A" & Rows.Count).End(xlUp).Row Que es "Base" es el nombre de una hoja, si es así, entonces debería ser así: NumeroDatos = sheets("Base").Range("A" & Rows.Count).End(xlUp).Row En cuanto a esto: Esa es una...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿ Cómo filtrar datos que se repiten Nveces en una base de datos y pasarlos a una nueva tabla ?
Te puedo construir una macro para copiar los datos, solamente dime en cuál columna está el CURP y en cuál fila empiezan los datos.