Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar para imprimir solo ciertos items seleccionados en listbox
Te anexo la macro actualizada Private Sub CommandButton3_Click() Set h = Worksheets.Add h.Range("A1:H1") = Array("N° CHEQUE", "DOCUMENTO N°", "FECHA", "MONTO", "GIRADO A", "CONCEPTO", "BANCO", "OPERACION") h.Range("A2:h200").NumberFormat = "General"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para buscar en otra hoja una columna completa y copiar sus respectivas en otra hoja
Ejecuta la siguiente macro en la hoja1 Sub Buscar_Boletas() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' h3.Rows("2:" & Rows.Count).ClearContents Set rango = Selection...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro vba donde crea carpeta y sub-carpeta basado en celdas y en las subcarpetas crea archivos de excel también basados en celda
La macro que pusiste solamente crea documentos de excel, comenté algunas líneas de la creación de documentos word. Te regreso la macro actualizada. Prueba para la generación de carpetas y subcarpetas y archivos de excel. 'Option Explicit Sub...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Combobox que me indique que el código no existe
Prueba con lo siguiente: Private Sub ComboBox2_Change() If ComboBox2.Value = "" Or ComboBox2.Value = Empty Or ComboBox2.ListIndex = -1 Then Exit Sub End If ' CommandButton1.Locked = False Set h = Sheets("Codigos") Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Abrir un pdf desde excel al hacer doble clic
Te anexo la macro actualizada Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por Dante Amor 'Abrir achivo pdf con doble click If Not Intersect(Target, Columns("A")) Is Nothing Then ruta = ThisWorkbook.Path & "\" If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Limpiar un combobox al borrar el dato
Agrega lo siguiente a tu evento del combo Private Sub ComboBox1_Change() If ComboBox1.Value = "" Then TextBox1.Value = "" TextBox2.Value = "" Exit Sub End If ' 'aquí que continúe tu código ' End Sub [sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como hacer una macro en excel que abra archivos de pdf al clickear el nombre del archivo?
Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por Dante Amor 'Abrir achivo pdf con doble click If Not Intersect(Target, Columns("A")) Is Nothing Then ruta =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cómo evito que excel bva me quite los decimales en una suma
Prueba con lo siguiente: Private Sub TextBox6_Change() If TextBox6 = "" Then t6 = 0 Else t6 = TextBox6 If TextBox7 = "" Then t7 = 0 Else t7 = TextBox7 TextBox8 = CDbl(t6) * CDbl(t7) TextBox9 = CDbl(TextBox8) * 18 / 100 TextBox10 = CDbl(TextBox8) +...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro Excel que elimina datos que no están en otra columna
Te anexo la macro Sub Eliminar_Empresa() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("cierre") Set h2 = Sheets("Detalle") For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1 Set b = h2.Columns("B").Find(h1.Cells(i,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Enviar correo automático desde Excel
Revisa el siguiente artículo y trata de adaptar tus datos a la macro. https://www.gerencie.com/enviar-correos-con-condicion-desde-outlook-con-excel.html