Dante Amor

Te anexo la macro actualizada. Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("history") Set h2 = Sheets("temp") h2.Cells.Clear ' For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row folio = h1.Cells(i, "C") If h1.Cells(i, "B") =...

Esa macro no es mía. Yo no utilizo este tipo de sentencias: On Error GoTo Selectblanco Es una mala práctica. No deberías utilizar On Error. Siempre debes buscar la forma de verificar la información antes de procesar, de esa forma no tendrás que...

Te anexo la macro Sub Pasar_Datos() '--- ' Por.Dante Amor '--- ' Set h1 = Sheets("ORIGEN") Set h2 = Sheets("DESTINO") h2.Range("A7:H" & Rows.Count).Clear h2.Columns("H:H").NumberFormat = "m/d/yyyy" codigos = Array("510506", "510527", "237005",...

No entiendo cómo tienes los datos iniciales en la hoja. Puedes poner una imagen de tu hoja1. O decirme exactamente qué tienes en cada celda.

Antes de ejecutarla tienes que revisar lo siguiente: La versión de programa Adobe, entra al explorador de archivos, sigue la ruta: Archivos de programa\Adobe\Reader . En mi ejemplo puse Reade 11.0, pero debes poner en la macro la versión que tú...

Si utilizaste esto para ocultar la aplicación: Application.Visible = False Entra a VBA y en un módulo ejecuta la siguiente macro Sub habilitar() Application.Visible = True End Sub Si no es así, entonces dime cómo "deshabilitaste" el libro. 'S aludos....

Cambia esta línea For i = inicio To fin Por esta For i = inicio To fin Step 2 Prueba y me comentas. Avísame cualquier duda. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Prueba con lo siguiente es para eliminar todas las imágenes: Sub Eliminar_imagenes() 'Por.Dante Amor ActiveSheet.DrawingObjects.Delete End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Te anexo la macro Sub Eliminar_Columnas() 'Por.Dante Amor ' Application.ScreenUpdating = False For j = Columns("AZX").Column To Columns("A").Column Step -1 If Cells(3, j) = "" Then Columns(j).Delete Shift:=xlToLeft End If Next...

Utiliza Local:=True al abrir el archivo: Workbooks.Open Filename:="C:\users\" & Environ("UserName") & "\Documents\", _ Local:=True También revisa la configuración regional, supongo que debes tener la de España, donde el decimal es coma (,) y el...