Dante Amor

Prueba esto: Sub Macro2() Dim i As Long, bprn As Boolean For i = 3 To Range("U" & Rows.Count).End(3).Row Step 10 If Range("U" & i).Value <> "" Then ActiveSheet.PageSetup.PrintArea = "T2:Z" & i + 7 bprn = True End If Next If bprn Then...

No entiendo bien lo que necesitas, sería mejor si lo explicas con un ejemplo. Este es un ejemplo: =PROMEDIO.SI(B2:B6,"<>",C2:C6) La fórmula promedia los valores de la columna C, si en la columna B tiene datos.

Prueba esto: Sub Copiar_Discontinuo() With Sheets("Hoja1") .Range(Replace("A2:A@,B2:B@,E2:E@,Z2:Z@", "@", .Range("A" & Rows. Count).End(3). Row)).Copy _ Sheets("Hoja2").Range("A" & Sheets("Hoja2").Range("A" & Rows. Count).End(3).Row + 1) End With End Sub

Te paso la macro: Sub ExtraerDuplicados() 'Por Dante Amor Dim dic As Object Dim i As Long, j As Long, k As Long Dim a As Variant, b As Variant Dim fila As Long ' Set dic = CreateObject("Scripting.Dictionary") fila = ActiveCell.Row a = Range("A" &...

Prueba esto: Sub copiavalores() Dim fila As Long, i As Long, j As Long fila = ActiveCell.Row j = 12 For i = 1 To 10 If Cells(fila, i) <> "" Then Cells(fila, j).Value = Cells(fila, i) j = j + 1 End If Next End Sub

Te anexo la macro Sub concatenar_permutaciones_una() 'Por Dante Amor Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long Dim fila As Long fila = ActiveCell.Row a = Range("A" & fila & ":AD" & fila).Value ReDim b(1 To 1, 1 To...

Solamente vuelve a cargar el listbox con esta línea: lstclientes.RowSource = "Clientes!TClientes" Quedaría así: Private Sub btnguardar_Click() ' boton guardar If (cbovendedor) = Empty Or (txtcliente) = Empty Then MsgBox "Recuerda que tienes que...

Según tu código: Range("Clientes!b2") = cbovendedor.Value Range("Clientes!A2") = txtcliente.Value El cliente va en la columna "A" y el vendedor en la columna "B", entonces: Private Sub btnactualizar_Click() Dim hojadatos As Worksheet 'crear variable...

Te anexo el código completo para los 3 filtros. Al parecer las personas las tienes en un listbox con la propiedad multiselect, para poder seleccionar varias personas. Actualiza en el código los nombres de los controles (Listbox1, TextBox y...

Te muestro unos ejemplos para insertar una tabla en el correo: ¿Cómo crear macro para enviar diferente información a cada destinatario? Ejemplo de E-mail enviado desde excel con tabla de datos Macro para copiar rango de celdas en Outlook no funciona...