Respuesta
en
Microsoft Excel
y en 3 temas más
a
Abrir cualquier tipo de archivo seleccionado desde una listbox
En tu botón para VER pon el siguiente código: Private Sub CommandButton15_Click() Call verArchivo(ListBox1, ruta1) End Sub También agrega el siguiente código a tu userform Sub verArchivo(ListBox1, ruta1) arch = ListBox1.List(ListBox1.ListIndex, 0)...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Detectar numero de items en un listbox
Puede ser así: Private Sub CommandButton2_Click() If ListBox1.ListCount > 0 Then MsgBox "Todavía tiene items" Else MsgBox "Ya no hay items " End If End Sub sal u dos
Respuesta
en
Visual Basic
y en 4 temas más
a
¿Como puedo ajustar este código?
Te anexo la macro Private Sub btncalc_Click() 'Por Dante Amor For i = 3 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value = 1 Then fila = i Else Cells(i, "S").Value = Cells(i, "E").Value * Cells(fila, "T").Value End If Next MsgBox "Fin"...
Respuesta
en
VBA
y en 2 temas más
a
¿Cómo eliminar filas de excel si no cumple una condision en vba?
Te anexo la macro Sub Eliminar_Fila() 'Por Dante Amor Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A").Value = "" Or _ LCase(Cells(i, "A").Value) = LCase("No aplicable") Then...
Respuesta
en
VBA
y en 1 temas más
a
Como hacer una Pantalla de inicio VBA
En los eventos de Thisworkbook pon lo siguiente: Private Sub Workbook_Open() UserForm1.Show End SubInstrucciones para poner la macro en los eventos ThisWorkbookAbre tu libro de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11Del...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
¿Como Agregar items múltiples listboxs?
Te anexo la macro con comentarios. Private Sub CommandButton4_Click() 'Por Dante Amor 'Cargar lista de archivos de carpetas ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ruta3 = "C:\Users\............\" ' ListBox1.Clear...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Textbox para filtrar datos en listbox
Te anexo el código. Debes quitar el código del evento initialize Dim ruta1, ruta2 ' Private Sub CommandButton1_Click() ' llamada a imprimir de listbox1 Call Imprimir_Pdf(ListBox1, archivo, ruta1) End Sub ' Private Sub CommandButton2_Click() ' llamada...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como simular la importación de un archivo?
Te anexo la macro, cambia la carpeta destino por la carpeta donde quieres guardar la copia. Sub Importar_Archivo() 'Por Dante Amor ' destino = "C:\trabajo\archivos\" 'ruta destino donde se depositará la copia ' With...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como enlistar archivos contenidos en una carpeta con macro y ordenar su impresión a selección.
Te anexo el código Antes de imprimir revisa lo siguiente: La versión de programa Adobe, entra al explorador de archivos, sigue la ruta: Archivos de programa\ Adobe \ Reader . En mi ejemplo puse Reade 11.0, pero debes poner en la macro la versión que...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Error 438 en tiempo de ejecución en macro
En la versión 2003 no puedes guardar como PDF, a menos que hayas instalado los complementos de office 2007 o que tengas la versión completa de Adobe Acrobat. Prueba lo siguiente, en tu archivo 2003, guarda el archivo de excel como y revisa si tienes...