Respuesta
en
Microsoft Excel
y en 2 temas más
a
Crear archivo nuevo de una hoja de excel
Te anexo la macro Sub Crear_Archivo() 'Por Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Hoja1").Copy fecha = Format(Date, "dd-mm-yyyy") texto = "aqui pon tu texto" ruta = ThisWorkbook.Path & "\" '...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Como hacer una búsqueda usando como referencia filas y Columnas
Te anexo el código para buscar y enviar Private Sub cmdenv_Click() 'Por Dante Amor 'Buscar y enviar ' Set h1 = Sheets("MEMORIAS ACTO") 'hoja origen Set h2 = Sheets("EMPALMES2") 'hoja destino h2.Range("A15:E28").ClearContents ' If cbxsum.Value = "" Or...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar datos de formularios vba excel a hoja y celda especifica
Te anexo el código actualizado. Cambia "Hoja1" por el nombre de tu hoja Cambia "A", "B", "C", "D", "E", "F" por las columnas donde quieras guardar cada txt Private Sub btn1_Click() Set h = Sheets("Hoja1") 'establecer el nombre de hoja u = h.Range("A"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro copiar cada seis celdas hasta encontrar celda en blanco
Te anexo la macro Sub Copiar_Celdas() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Cells.ClearContents j = 1 For i = 5 To h1.Range("D" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Guardar archivo creando carpeta y archivo con valor de celda excel 2016 Macro
Te anexo la macro actualizada Sub Guarda_Archivo() 'Por Dante Amor carpeta = Range("A1").Value archivo = Range("A2").Value If Right(carpeta, 1) <> "\" Then carpeta = carpeta & "\" If Dir(carpeta, vbDirectory) = "" Then MkDir (carpeta) End If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Código para concatenar celdas mediante comas en excel
Te anexo el código actualizado Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) ult =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Cómo se puede enviar por correo información de varias filas dada una condición y que esta se muestre en el cuerpo del mismo?.
Puedes filtrar las filas que muestran "RENEW", copiarlas y pegarlas en otra, después envías la información de la otra hoja. Revisa la siguiente respuesta para enviar un rango de celdas Enviar correos copiando los rangos de celda [ sal u dos
Respuesta
en
VBA
y en 3 temas más
a
Tiempo de espera ejecución de código vba
Prueba de esta forma: Private Sub Workbook_Open() ActiveWorkbook. RefreshAll DoEvents Application. Wait (Now + TimeValue("00:00:01")) DoEvents Módulo2. ColoresIconos Módulo3. ExportarIconos End Sub '.[Sal u dos. Dante Amor. No olvides valorar la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Suma de valores por texto de otra columna
Es correcto lo que comenta Gustavo, lo más practico es crear una tabla dinámica Selecciona los datos, ve al Menú Insertar, Tabla dinámica, puedes seleccionar la opción, Hoja de cálculo existente y seleccionar una celda. Después de la lista de campos,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para comparación de datos
Te anexo la macro Sub Compara_Hojas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Columns("A:C").Interior.ColorIndex = xlNone For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row docid = h2.Cells(i, "A").Value valor =...