Dante Amor

¿Hay qué recorrer la columna H o solamente revisar H3? Puedes poner una imagen y explica.

Una opción es que copies todas las filas completas del archivo origen. En el archivo destino selecciona la celda destino, presiona el botón derecho del mouse, del menú que se despliega, selecciona la opción Insertar celdas copiadas. Esto insertará...

Pon la siguiente línea MsgBox "pedido copiado correctamente"

Pon el siguiente código en los eventos de la hoja. Option Explicit Const texto = "Texto por defecto" ' Private Sub TextBox1_Change() With TextBox1 If .Value = vbNullString Or .Value = texto Then Call inicio Else .Value = Replace(.Value, texto, "")...

¿Qué dice el error? ¿Cuál es el código? --- ¿Solamente quieres seleccionar la hoja? Tienes que hacer la hoja visible para que la puedas seleccionar. Ejemplo: Sub boton1() Sheets("Hoja2").Visible = True Sheets("Hoja2").Select End Sub ---- Si no...

Si tienes -10, -10 y -5 el k.esimenor 1 es -10 el k.esimenor 2 es -10 el k.esimenor 3 es -5 Tal vez con ese ejemplo sea más clara la fórmula.

No entiendo cuál es la fórmula que tiene el problema y cuál es el resultado que necesitas. --- "si yo sustituyo las fórmulas de los números negativos y los escribo manualmente entonces si funciona " Cuál es la fórmula que utilizas para obtener esos...

En tu formulario PreguntasdeAuditorias Public DatoExport1 As String Private Sub UserForm_Activate() DatoExport1 = ListAuditoriaPersonal.Name End Sub --- En el evento de tu formulario AddPreguntaAuditoria Dim nombre As String nombre =...

Prueba lo siguiente: Sub AbrirArchivo() Dim fichero As String, ruta As String Dim arch As Variant ' ruta = ActiveWorkbook.Path & Application.PathSeparator & "Acciones Documentacion Anexa" & Application.PathSeparator fichero = "ISSUE.ICF.BUR.3.Rearme...

Aquí otra macro a considerar: Sub GuardarArchivo() Dim carpeta As String Dim arch As String ' carpeta = Environ("USERPROFILE") & "\Desktop\Planillas de pedidos\" arch = "Fayser Adm.xlsm" ' ActiveWorkbook.SaveAs Filename:=carpeta & arch, _...