Dante Amor

H o l a : Envíame un archivo con 3 hojas con el comprobante de egreso, en otra hoja llamada "consolidar" me pones cómo quieres el resultado de esas 3 hojas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Luis G...

H o l a: Te anexo la macro para que lo haga en todas las celdas del rango Sub CopiarValores() 'Por.Dante Amor For Each c In Sheets("PEGAR TEXTO").Range("F2:AX46") If c.Value > 0 Then c.Copy Sheets("INDIVIDUAL").Range("H" &...

H o l a: Te recomiendo que pongas en una hoja cada "Registro". De esa forma podrías utilizar la misma rutina, solamente tienes que cambiar de hoja. Además existe otra desventaja, por ejemplo, en el registro de urgencias tienes de la fila 45 a la 48...

H o l a: Te anexo la macro actualizada: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor If TextBox1.Value = "" Then Exit Sub 'si el texbox es vacío se sale ' Set r = Sheets("Hoja1").Range("I54") If r.Value = "" Or r.Value = 0 Then r.Value =...

H o l a: Te anexo la macro actualizada: Sub BorrarCeldas() 'Act.Por.Dante Amor For Each h In Worksheets h.Range("C11:Z11,AE11,AF11:AG11,AI11").ClearContents h.Range("F13:G24, J13:K24, O13:P24, T13:U24, Y13:Z24, AF13:AG24, AI13:AI24").ClearContents...

H o l a: Te anexo la macro actualizada Sub CopiarValor() 'Por.Dante Amor If Not IsDate([D8]) Then MsgBox "La celda D8 no contiene una fecha" [D8].Select Exit Sub End If mes = Month([D8]) año = Year([D8]) For i = 2 To Cells(42,...

H o l a: Te anexo la macro actualizada Sub CopiarValor() 'Por.Dante Amor If Not IsDate([D8]) Then MsgBox "La celda D8 no contiene una fecha" [D8].Select Exit Sub End If mes = Month([D8]) año = Year([D8]) For i = 2 To Cells(42,...

H o l a: Sigue las siguientes instrucciones: 1.- Crea un archivo nuevo. 2. - En la primera hoja del archivo nuevo pon los siguientes títulos en la fila 1 como se muestra en la imagen: 3.- En la columna "A" desde la fila 2 hacia abajo, pon el nombre...

H o l a: Hace tiempo hice esta macro y funcionó, puedes probar: Sub PasarDatosaPdf() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set h2 = Sheets("Hoja2") 'contador ' celdas = Array("A2", "B2", "C2", "D2",...

H o l a: Puedes utilizar la fórmula BuscarV Siguiendo con la imagen que pusiste en la hoja 2 en la columna H necesitas poner los precios. Entonces en la celda H5 pon la siguiente fórmula: =BUSCARV(E5;Hoja1!A:C;3;0) Si en la hoja2 los precios los...