Dante Amor

Se debe realizar en una sola macro, ya que solamente existe un evento "Calculate" Te anexo el código actualizado, solamente pon tus datos para cuando es "Enviar2" Private Sub Worksheet_Calculate() 'Por Dante Amor Set h1 = Sheets("AVISO ORDENES")...

Puedes poner el código con es que estás haciendo la carga en el listbox.

Tienes que poner un Else Debe ser así: For i=1 to 10 Línea 1 'Código Línea 2 'Código If ... Then 'Condicional 'Que debo poner aquí para que de esta línea pase directamente al 'Siguiente "i" sin pasar por el resto del código, es decir sin 'Ejecutar...

La siguiente función es para obtener el usuario: usuario = CreateObject("WScript.Network").UserName Entonces podría quedar así: usuario = CreateObject("WScript.Network").UserName ' ThisWorkbook.Connections.Add2 "bd1 Mensual Tabla1.od", "", _ Array( _...

Según tus ejemplos, considero lo siguiente: Los datos empiezan en la fila 1Los datos están separados por pipe "|"El artículo siempre está en el tercer dato Si es correcto lo anterior, ejecuta la siguiente macro: Sub Agregar_Texto() 'Por Dante Amor...

Para contar los registros visibles puedes utilizar la función Subtotales( ) Por ejemplo, para contar los datos del rango B2:B11, utiliza el número de función 3 La fórmula quedaría: =SUBTOTALES(3;B2:B11) El resultado solamente cuenta los datos...

La macro te copia los datos visibles, es decir, si la hoja origen tiene un filtro, entonces solamente copia los datos filtrados y los pega en la hoja "resumen". [Sal u dos

Te anexo la macro Sub Guarda_copia() 'Por Dante Amor Dim objWSHShell As Object Dim strSpecialFolderPath On Error GoTo ErrorHandler Set objWSHShell = CreateObject("WScript.Shell") escritorio = objWSHShell.SpecialFolders("Desktop") Set objWSHShell =...

Puedes explicar con una imagen los datos que tienes en la hoja. También dime en cuál columna están las fechas. Cómo se llaman los textbox donde pones las fechas. Pon una imagen de lo que capturas en tu userform Y en la imagen de tu hoja marca cuál es...

Supongo que tienes el error en esta línea: indRowBase = cell.Row Eso es debido a que no encontró la palabra "name" en la columna "A" de la hoja "Principal". Podrías solucionarlo de esta forma: Cambia estas 2 líneas Set cell =...