Dante Amor

H o l a: Te anexo la macro para: "necesito validar si, hay escrito en la columna A:A en las celdas texto, entonces me valide si en las celdas de la columna B dice "PAGO", entonces me deje la celda C vacía, de lo contrario, me escriba "SI"" Sub...

H o l a: Envíame tu archivo con tu formulario o con lo que tengas para capturar el usuario y la contraseña. Lo reviso y actualizo el código y el libro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Valeria...

H o l a: Para concluir la macro, me puedes decir: 1. En dónde vas a capturar el valor a buscar. 2. En cada una de las hojas (2 a la 8), en cuál columna hay que buscar el valor. 3. Si se encuentran varios datos, qué dato o datos son los que se tienen...

H o l a: Pon la siguiente fórmula E10, es el equivalente a 'PLA1'!B17 =INDIRECTO("'pla1'!B" &16+(FILA(A9)/9)) Copia la fórmula a E19, te debe quedar así, es el equivalente a 'PLA1'! B18: =INDIRECTO("'pla1'!B" &16+(FILA(A18)/9))

H o l a: Quedaría así, cambia "C:\trabajo\", por la ruta que quieras. Sub Contenido_carpeta() Dim carpeta, archivos As String Dim Contador As Integer carpeta = "C:\trabajo\" If carpeta = "" Then Exit Sub ElseIf Right(carpeta, 1) <> "\" Then carpeta =...

H o l a: Pon las siguientes líneas al principio de tu macro: Sub Transfiere() ' Dim ini As Date, fin As Date ini = "10/06/2015" fin = "31/07/2015" If Not (Date >= ini And Date <= fin) Then Exit Sub End If ' 'Continúa tu macro ' '... ' End Sub

H o l a: Te anexo la macro actualizada: Sub BuscarAusente() 'Por.Dante Amor Set h1 = Sheets("Hoja1") u = h1.Range("A" & Rows.Count).End(xlUp).Row If u = 1 Then u = 2 h1.Range("A2:A" & u).ClearContents j = 2 For Each h In Sheets If h.Name <> h1.Name...

H o l a: Sigue las indicaciones de este enlace para compartir archivos. Descripción general: compartir datos de Excel y trabajar en colaboración Existen muchas formas de compartir, analizar y comunicar información empresarial en Microsoft Office...

H o l a: Podrías enviarme tu archivo y me explicas cuál es tu base de dato, en dónde vas a capturar el código, en dónde se tiene que buscar el código, y en dónde quieres el resultado, procura explicar todo con ejemplos reales. Mi correo...

H o la: Te anexo la macro para exportar los datos Sub ExportarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) ruta = l1.Path & "\" ' h1.Columns("M").ClearContents u = h1.Range("D" &...