Dante Amor

Te anexo la macro Sub Copiar_Rango_Seleccionado() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' Set r1 = h1.Range(Selection.Address) If r1.Cells(1, 1).Column = 1 Then MsgBox "No se puede seleccionar una columna a la izquierda"...

En inglés es Networkdays, en español es Dias.Lab En la imagen se ve el ejemplo en la hoja y también en el Userform. Estoy utilizando las celdas que pusiste en tu ejemplo. El código en el form, podría ser así, es solamente un ejemplo: Private Sub...

Puedes poner imágenes o describir el ejemplo detallando en qué filas y columnas tienes la información. Y también en la "otra hoja" exactamente en dónde quieres el resultado. Escribe el nombre real de tus 2 hojas en los ejemplos.

¿Cómo se llama tu textbox? ¿Se llama FECHA? La línea que pusiste tiene error de sintaxis, debería ser así: Sheets("hoja").Cells(i, "A") = CDate(FECHA. Value) Puedes poner un ejemplo de lo que capturas en el textbox sal u dos

Cambia la forma en que cargas tu combo Codigo y utiliza la forma que te estoy poniendo en el evento Activate: Private Sub Codigo_Change() Descripcion.value = "" If Codigo.value = "" Or Codigo.ListIndex = -1 Then Exit Sub End If fila =...

El problema es el rango o el que no te está encontrando el dato. Si el proveedor es un número, entonces hay que cambiar el dato del textbox1 a número. También te sugiero que cambies el método de búsqueda a Find( ) Prueba con lo siguiente: Private Sub...

Si en las 2 columnas tienes el apostrofe ' entonces no es necesario poner Val( ) Prueba con los siguiente: Sub RenombrarProvisional() Set h1 = Sheets("CalculoOTSolred") Set h2 = Sheets("ProvisionalSOLRED") For i = 365 To h1.Range("H" &...

Revisa en Opciones de Excel, Revisión, Opciones de Autocorrección, Autoforamto mientras escribe, que estén activadas las casillas "Incluir nuevas filas" y "Rellenar fórmulas en tablas" Si ya están activas las casillas, una opción es que copies las...

Te anexo un ejemplo para validar el archivo, el éxito de una programa depende en medida de las validaciones que pongas, de lo contrario podrás tener varios errores y no saber en dónde tienes el problema. Sub MarcroConsulta() ' r2 = Range("A2") r3 =...

Te anexo la macro actualizada Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante.Amor Dim fila As Integer, Rango As Range, u Set Rango = Range("Y3:Y80") If Intersect(Target, Rango) Is Nothing Then Exit Sub If...