Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cómo hacer referencia a la última fila vacía distinta a la hoja actual?
Te anexo un par de ejemplos para hacer referencia a una hoja destino: En este ejemplo en cada línea pones el nombre de la hoja, la hoja2 es la hoja destino y la hoja1 es la hoja origen. Sub macro2() 'fila vacía después de la última fila con datos de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO colocar nombre a imagen del valor de una celda
No entendí. Quieres que te abra el explorador de windows para seleccionar una imagen. Y después de seleccionar el archivo con la imagen, ¿qué quieres hacer?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buen día, encontré el siguiente código que le envías a un chico para enviar correos desde excel
Para configurar gmail y puedas enviar correos desde excel, sigue las indicaciones en este enlace: Macro para enviar hoja excel por gmail Te anexo la macro para enviar un rango de celdas, utilizando código Html, Sub Enviar_Rango_Html_Gmail()...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para cortar filas según valor en celda y enviarlos a otro libro y si no se puede libro, otra hoja dentro del mismo libro.
Te anexo la macro para crear un archivo nuevo Sub Macro2() ' Por Dante Amor ' Copiar finalizados a otro libro ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja4") Set rango =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como seleccionar columna en función de un dato
Ejecuta la siguiente macro Sub Macro4() 'Por Dante Amor ' Ocultar hojas u = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column ActiveSheet.Cells.EntireColumn.Hidden = False For i = 1 To u Set b = Columns(i).Find(15,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Seleccionar filas por medio de un valor, agregado en una textbox
Te anexo la macro actualizada. Te puse comentarios en las líneas de la macro para explicar lo que hacen. Private Sub BUSCAR_BTN_Click() 'Por Dante Amor Set h = Sheets("Hoja2") 'establece en h la hoja Set r = h.Columns("A") 'establece en r el rango de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Es posible imprimir 5 páginas de excel, todas en vertical de forma que el orden de impresión sea 4-1-2-3-¿5? ¿Alguna macro?
Prueba con la siguiente macro Sub Imprimir_Hojas() hojas = Array(4, 1, 2, 3, 5) For i = LBound(hojas) To UBound(hojas) Sheets("Hoja1").PrintOut from:=hojas(i), to:=hojas(i) Next MsgBox "Impresión terminada" End Sub Puedes cambiar el orden o agregar...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
3 Desplegables condicionados con celdas combinadas en un formulario de Excel
Como te había comentado el código se hace un poco más complejo al tener celdas combinadas. Sería más práctico si utilizas tu base de esta forma: Normalmente así es como se trabaja con una base de datos, de esa forma es más práctico, crear, insertar...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Hacer macro para crear un archivo de la hoja excel activa con el nombre de una celda especifica en la ruta del archivo original
Te anexo la macro. Cambia en la macro "B2" por la celda que contiene el nombre del archivo. Si en la celda tienes una fecha, entonces cambia la línea arch = ActiveSheet.Range("B2").Value Por esta arch = format(ActiveSheet.Range("B2").Value,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO para buscar datos en una hoja y colocarlo en un label
Prueba con lo siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor If Not TextBox1.Value = Empty And Not Label3.Caption = Empty Then MsgBox "ya haz iniciado el verificador", , "AVISO" Exit Sub End If ' If TextBox1.Value = Empty Then MsgBox...