Dante Amor

¿De otra qué? ¿De otra fecha? ¿De otra celda? Por ejemplo ser: =si(H6="", "-", G6) Significa, si H6 igual a blanco, entonces que ponga un guión, de lo contrario pondrá el dato que tengas en la celda G6 Es un ejemplo, e spero y te sirva. . .

Pon la siguiente macro en los eventos de tu hoja base d datos Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por Dante Amor 'Copiar hoja Planilla de Solicitud ' If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...

Pon la siguiente fórmula en tu celda final =SI(CONTARA(D2:D11)=CONTAR.SI(D2:D11;"cumple"); "CUMPLE";"FALTAN CELDAS POR CUMPLIR") Cambia D2:D11 por las celdas que van a tener la palabra "cumple" . .

Te anexo la macro considerando lo siguiente: - Los códigos en ambas hojas están en la columna A - La columna "I" en la hoja1 es la que se tiene que actualizar - Los registros en la hoja1 empiezan en la fila 2 - Cambia en la macro "Hoja1" y "Hoja2"...

Envíame tu archivo con tu userform y me explicas con ejemplos lo que tienes y lo que esperas de resultado. No olvides poner tu nombre de usuario en el asunto del correo

Te anexo la macro Sub Copiar_Celdas() u = Range("B" & Rows.Count).End(xlUp).Row If u > 6 Then Range("AM6:AP6").Copy Range("AM7:AP" & u) End If End Sub sal u dos

Las puedes comentar en el siguiente orden: ¿Cómo se llama la hoja donde tú vas a poner el cursor?¿En cuál celda por ejemplo vas a poner el cursor?¿Qué valor por ejemplo puedes tener en la celda?Luego vas a ejecutar la macro y quieres que vaya "otra...

Para insertar una imagen y también para agrear una firma tienes que cambiar .Body por .HtmlBody Te anexo algunos ejemplos: ¿Cómo hago para enviar correos con mi firma de outlook mediante una macro con los datos en excel? Insertar firma con imagen a...

Si tienes varias páginas en una hoja de excel y solamente quieres enviar a PDF la primer página, entonces utiliza la siguiente macro: Sub Macro2() 'Por.DAM ruta = ThisWorkbook.Path & "\" hoja = "Hoja1" 'nombre de la hoja a pdf celda = "B2" 'celda con...

Te anexo una macro Sub concatena() Range("B2").Value = "" For i = 2 To Range("Z" & Rows.Count).End(xlUp).Row If Range("Z" & i).Value > 0 Then Range("B2").Value = Range("B2").Value & "/" & Range("Z" & i).Value End If Next Range("B2").Value = "'" &...