Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo un problema con un formulario, al desplegarlo me dice que no encuentra la ruta del archivo
Prueba lo siguiente y dime qué mensaje te aparece Private Sub UserForm_Initialize() Dim imag As String Dim ruta As String ' ruta = ThisWorkbook.Path & "\Pict\" If Dir(ruta, vbDirectory) = "" Then MsgBox "No existe la carpeta : " & ruta Exit Sub End...
Respuesta
en
Microsoft Word
y en 2 temas más
a
Abrir un doc de word especifico o si esta abierto continuar
Prueba lo siguiente: Sub PORTADA() 'Declaración de variables Dim num As Variant Dim ruta As String, archi As String Dim TEX2 As String, TEX3 As String Dim WordApp As Object Dim wdDoc As Object 'Dim WordApp As Word.Application 'Dim wdDoc As...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Consolidar múltiples hojas de varios excel
Prueba lo siguiente: Sub Consolidar_Hojas() 'Por Dante Amor Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook Dim uDia As Long, i As Long, mes As Long Dim hojaDia As String, hojaMes As String, hojagas As String Dim valor As...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
¿Validación de datos y filtros en este caso no es o si?
Revisa la siguiente respuesta: Cómo crear listas desplegables dependientes Excel 2016
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Que tal, me gustaría hacer un vlookup en un formulario, que devuelva un dato en un label según el dato ingresado en un textbox.
¿Cuál problema tienes con tu código? Intenta también con el siguiente: Private Sub CommandButton1_Click() Dim f As Range Set f = Sheets("DATA Maro-2021").Range("A:B").Find(TextBox1.Value, , xlValues, xlWhole, , , False) If Not f Is Nothing Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo hacer filtros dinámicos en excel?
Si entendí bien, quieres que el código se ejecute solamente si tú capturas el valor a consultar. Prueba lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B6:C7")) Is Nothing Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Se podrá usar la función extraer en este caso
Según tus ejemplos: Con la siguiente fórmula puedes poner el Nuevo promedio: Pon la fórmula en H3 y la copias hacia abajo. =PROMEDIO(G3,K.ESIMO.MAYOR(C3:E3,1),K.ESIMO.MAYOR(C3:E3,2))
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar hojas de un libro a una hoja total
Puedes darme el detalle de cómo tienes la información en cada hoja a copiar. Por cuál columna ordenar y exactamente en cuál hoja-celda pegar. Con un par de imágenes quedaría bien explicado.
Respuesta
en
Visual Basic
y en 3 temas más
a
Creación de archivo aún existiendo el archivo vba
Estás segura que sí existe el archivo. Ejecuta la macro paso a paso y revisa que efectivamente esté entrando a la parte inicial del If If archi <> "" Then Set WordApp = CreateObject("word.Application") 'Abre archivo en la ruta y con el número...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como mantener formato de fecha al guardar excel como formato ".CSV" utilizando VBA?
Una opción es que cambies la configuración Regional y de idioma en el panel de control, al formato de fecha Inglés "m/dd/aaaa", de esa manera cuando abras el archivo, reconocerá el formato "m/dd/aaaa" y las considerará como fechas. La otra opción es...