Jump to content

Benito Bartolomé

Members
  • Posts

    160
  • Joined

  • Last visited

  • Country

    Spain

1 Follower

About Benito Bartolomé

Profile information

  • Gender
    Hombre
  • Localización:
    Nigrán
  • Interests
    Naturaleza, deportes y aprender a programar.

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

519 profile views

Benito Bartolomé's Achievements

  1. Hola a todos; -Hoy no vengo a preguntar nada pero si a compartir un video donde muestro tres ejemplos usando variables permanentes. Bueno pedir primero permiso si se puede publicar en caso contrario borráis el post. Enlace del video: https://youtu.be/i5LBBzYeUY4 Con vuestro permiso también adjunto la macro. Espero que os guste y si veis que tiene algún error me lo comunicáis. Saludos Mvp.xlsm
  2. Gracias Antoni por la explicación. Ahora lo entiendo, inclusive me has puesto tres supuestos. No hay mas preguntas 🤐🤐😃👍
  3. Hola Antoni; -La macro ahora genial, te lo agradezco. Había intentado como comentaste quitar el For pero no me iba. For f = 2 To Final Me puedes explicar brevemente este procedimiento. Ya he visto en alguna ocasión algo parecido y no lo comprendo bien. Sub EnviarMail(Fila As Long): On Error Resume Next EnviarMail Fila Un abrazo y muchísimas gracias por todo. Bo día.
  4. Hola Antoni; Primero gracias por responder. En cuanto a la pregunta, prefiero que me pregunte si quiero enviar y te explico porqué. Me gustaría revisarlos primero ya que por error podría enviar a algún cliente que en ese momento no me gustaría enviar. Es posible (?). Te lo agradezco.
  5. Buenos días de nuevo hoy. Estoy teniendo problemas con una macro y no logro resolver. En la macro he creado un módulo que muestra un formulario sí la fecha de la columna "Fecha" es igual al día actual y después envía un mail al destinatario. El problema es que al hacer dicha comprobación me duplica los mails. Un saludo para todos. Adjunto macro: MMailAviso.xlsm
  6. Gracias Gerson, mejor así. Yo también soy un poco maniático y suelo declarar todas las variables. Doblemente agradecido
  7. Muchas gracias Gerson; Desconocía esa instrucción. Me imaginaba que tendría que ser con el ActiveCell, en realidad es una instrucción muy fácil. Ahora va perfecto. Te agradezco mucho el apunte. Un abrazo Gerson.
  8. Me olvidaba adjuntar el archivo por si lo necesitas. Está con la corrección. Unha aperta Antoni. MRuta.xlsm
  9. Hola Antoni; Si he probado el procedimiento que me has pasado y es el correcto. Lo que me falta es un paso y no sé como configurarlo, te explico un poco y te inserto el código: -Al capturar la ruta copio en la variable archivo su nombre con su extensión y aquí no hay problema porque estamos siempre en la celda activa. -En cambio el dato que se copia en la variable carpeta no sé como configurarlo. Este dato obtenido se tiene que ubicar en la misma fila que la celda activa y en la columna 14. Dim Cancel As Boolean Dim Ruta As String, i As Integer, carpeta As String Dim archivo As String Dim col As Integer, fila As Integer col = ActiveCell.Column fila = ActiveCell.Row If col = 11 And fila <> 1 Or col = 12 And fila <> 1 Then Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker) ActiveCell.Value = Ruta With objFileDialog .AllowMultiSelect = False .ButtonName = "Aceptar" .Title = "Elija un archivo" If .Show = True Then Ruta = .SelectedItems(1) 'ActiveCell.Value = Ruta i = InStrRev(Ruta, "\") ' <<<<<<carpeta como no es celda activa hay buscar la fila de la celda activa + columna(14) para ubicar el dato de la variable>>>>>> carpeta = Left(Ruta, i) ' <<<<<aquí he puesto una ubicación fija para probar>>>>> Sheets("Enviar").Cells(3, 14) = carpeta ' <<<<<nombre archivo como es celda activa se ubica bien>>>> archivo = Mid(Ruta, i + 1) ActiveCell.Value = archivo Else Cancel = True End If End With Else End If End Sub
  10. Buenos días a todos; -Sería posible fraccionar la ruta de un archivo(?). Por ejemplo si yo tengo esta ruta: H:\MMail\CCF_000010.pdf Quiero que en una celda me aparezca para la ruta: H:\MMail\ y en otra el nombre: 10900.pdf Adjunto archivo de prueba. Saludos MRuta.xlsm
  11. Buenos días Pegones; -He probado el código que me has propuesto y genial, ahora funciona de maravilla. Ignoraba lo que comentas en el post. Se lo agradezco mucho. Un pequeño apunte, solo lo puede comprobar en Excel 2019 - 64 bits Que tenga buen día.
  12. Hola Pegones; Disculpa pero aún he visto hoy tú respuesta. Mañana pruebo y te comento. Muchas gracias por su interés. Un saludo 👍
  13. Perdona ya me había dado de cuenta. Prueba con este. Saludos Video:
  14. JsdJsd, ya resolví. Te dejo enlace de un video a ver que te parece: https://youtu.be/f7WnQGJV7vA Saludos.
  15. Hola de nuevo JsdJsd; La primera parte perfecta era lo que pretendía hacer. He visto el video con la segunda pregunta y está genial. Lo que no veo es el código. Si no es mucha molestia, me podrías orientar como lo haces. Saludos y doblemente agradecido. Buen día.
×
×
  • Create New...

Important Information

Privacy Policy