Abraham Valencia

Hol.a ¿A qué te refieres con que tienes un calendario? ¿Algún tipo de control ActiveX? ¿Una día/fecha en cada celda? ¿Otra cosa? Y ¿Cuál es la relación entre esos datos y los nombres de las hojas? O sea ¿cómo es la distribución/formato del nombre de...

Hol.a Tú mismo le indicas que guarde los datos en la primera fila vacía debajo de la última fila con datos a través de esto: Range("a" & Cells.Rows.Count).End(xlUp).Offset(1).Select Si vas a seguir borrando datos (no eliminando filas) y quieres que...

Ni Whatasapp Web ni la versión móvil permiten conexiones con VBA de Excel por lo que no existe una forma de hacerlo conectando ambos programas y lograr lo que necesitas Una alternativa es usar la API de Whatsapp:...

Hol.a No es lo suficientemente claro tu problema pero una forma práctica es tener ambos archivos en la misma carpeta y mueves la capeta completa sin problema: ThisWorkBook.Path & "\MisDatos.xlsx" Solo cambia el nombre y la extensión correspondientes....

Hol.a Solo mencionas que tienes un "InputBox" pero no has dicho como buscas el dato que es lo principal para poder ayudarte. Salu2 Abraham Valencia

Hol.a No es muy clara tu necesidad ya que si solo quieres 20 filas, basta que la llenar el "ListBox" le agregues lo que deseas o ¿qué sucede o tienes en realidad? Abraham Valencia

Hol.a ¿Qué error te da y en que línea? Aunque no veo tus datos, al menos viendo lo que has enviado no debería haber problemas. Podría dar error si no hay coincidencias al buscar, es decir su la variable que das en "aa" no coincide con los datos de la...

Hol.a Es complicado tratar de entender ya que, por ejemplo, mencionas celdas pero en tus capturas de pantalla no se sabe a cuales corresponden; asimismo, mencionas "BuscarV" pero por la posición de las cantidades (horizontales) podría ser que...

Hol.a Es complicado hacer una respuesta totalmente certera sin conocer tu archivo pero, prueba así: Sub Prueba() On Error Resume Next [Nfila] = ActiveCell.Row Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\nombre de la carpeta\" &...

Corrige: h.Cells(f, "BL").FormulaLocal = "=SI(AJ2-AS2<0,0,AJ2-AS2)" Igual sugiero usar, al menos a futuro, "Formula" y no "FormulaLocal", ese último solo funcionará para versiones de Office en el mismo idioma que el tuyo y con la configuración del...