Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro Excel: ¿Cómo generar un PDF solo de las celdas que contengan datos?
Prueba con lo siguiente. Sub GenerarPDF() nombre = Range("H3") & "-" & Range("D7").Value u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Range("A1:H" & u).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como pegar en una celda la ruta y el nombre del archivo completo en excel con una macro
Te anexo la macro, cambia "D4" por la celda en la que quieres pegar la ruta completa y el nombre del archivo Sub Ruta_Archivo() 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo" .Filters.Clear...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para ocultar filas de un rango según condición
H o la : Te anexo la macro Sub Ocultar_Filas() '--- ' Por.Dante Amor '--- Application.ScreenUpdating = False Rows("2:74").EntireRow.Hidden = False For i = 2 To 74 If Cells(i, "AJ") = 0 Then Rows(i).EntireRow.Hidden = True End If Next End Sub 'S...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro que haga coincidir los valores de un rango con los de otro y copie una columna
H o l a: Te anexo la macro Sub Copiar_Celdas() '--- ' Por.Dante Amor '--- Set h1 = Sheets("Informe Mensual") Set h2 = Sheets("Equipos BESALCO") For Each celda In h1.Range("I14:I18") If celda.Value <> "" Then Set b =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Error en código de búsqueda, no me refleja datos en el listbox
Empieza por utilizar una nomenclatura adecuada en tus variables Set h2 = Sheets("history") h2 está bien, empieza con h porque se refiere a una "h"oja Pero esto: Set h1 = PRUEBAS No se sabe, a qué te refieres con PRUEBAS, por la imagen se puede ver...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Imprimir datos de un formulario textbox, labels y listbox
No puedes imprimir directamente del listbox, tienes que pasar los datos a una hoja. Primero limpia la hoja y después pasa los datos del listbox a la hoja. Ya con los datos en la hoja, envías a imprimir la hoja. La hoja es la que debes configurar para...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Combobox que incluya todas las opciones que tengan las letras ingresadas EXCEL
Envíame tu último archivo, r ecuerda poner tu nombre de usuario en el asunto del correo.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como copiar el valor de dos celdas(ejm: A1,B2) al cambiar el valor de una en especifica (ejm C3).
La macro copia las celdas G16 y B5, solamente seleccionando la celda G3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(False, False) = "G3" Then If Target.Count > 1 Or Target.Value = "" Then Exit Sub ' uc = Cells(2,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como crear un evento para que al guardar un archivo y exista ese nombre, me de una alerta de reemplazar.
Te anexo la macro para revisar si existe el archivo, si ya existe, te pregunta si quieres reemplazarlo. Sub SaveWithVariableFromCell() Dim SaveName As String SaveName = ActiveSheet.Range("L6").Text ruta = "C:\Users\pc-01\facturas\consecutivo\" If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Error en listbox1 por problema de filtracion
No puedes utilizar additem y rowsource al mismo tiempo. En este caso como vas a filtrar y a cargar con additem. Entonces hay que cargar con additem desde el inicio: Private Sub UserForm_Initialize() Application.DisplayAlerts = False Set b =...