Mario Rodríguez

:) Complementando la primera parte de lo explicado por Dante, para obtener el número de la cuenta de correo puedes hacer: Sub Test1() Dim Vec(), Q%, i% With CreateObject("Outlook.Application") Q = .Session.Accounts.Count ReDim Vec(1 To Q) For i = 1...

:) Hola! Leonardo Mira: "Valor" ya es un array por lo que el autofiltro nunca te iba a funcionar. Por otra parte no se desprende de tu código que es "j". En resumen intenta con algo así: Sub Macro1() Dim j As Integer . . (lo que sea que tengas antes)...

:) Hola! Luz. No solo puedes utilizar la letra que quieras sino que puedes utilizar combinaciones de letras y/o números. Por ejemplo: Cells(fila, columna) Cells(f1, c1) Cells(aaa, bbb) Más información por aquí: Variables y constantes

:) Hola! Tiendita El título de tu pregunta explica la razón de tu confusión: "Voto electrónico". El voto electrónico puede tener distintas modalidades, por ejemplo: a) lo votado se guarda en la memoria de la computadora utilizada, b) lo votado se...

:) Hola! Juan. En verdad no has especificado nada concreto ni orientativo, así que voy a brindarte algunas pautas: - ¿"Con copia (CC)" a quien? - ¿"Con copia oculta (CCO)" a quien? - ¿Qué debe decir el "Asunto"? - ¿Qué debe decir el cuerpo del...

.. Hola! Javier: A lo mejor crees que hay una sola forma de hacer lo que menciones y ello no es así. Lo mejor será, entonces, que publiques la parte pertinente del código que te trae problemas. Interesan analizar dos cosas: - Cómo es que generas el...

. El que has descrito, Alexis, no es un problema "natural" sino que te lo has provocado tú mismo. En verdad -me parece- que un ListBox de 10/20 columnas te alcanzaría para mostrar toda la data que tengas. Te recuerdo que la info contenida en un...

. ¿A qué le llamas "desbloquear el libro"?... ¿Tiene una contraseña de apertura, por ejemplo?

Santiago. Te podría comentar dos métodos: MÉTODO 1: aaa = Split(h1.[a1], ".") h1.Cells(u, "ac").Resize(, 1 + UBound(aaa)).FormulaArray = aaa MÉTODO 2: h1.Range("a1").TextToColumns h1.Cells(u, "ac"), DataType:=xlDelimited, Tab:=False,...

. Hola! Te muestro otra forma: Sub Macro1() Dim mPath$, iFile$, C As Range Application.ScreenUpdating = False Rem> Carpeta donde se buscan los txt: mPath = ThisWorkbook.Path & "\" iFile = Dir(mPath & "*.txt") Rem> Crea una nueva hoja: Workbooks.Add...