Dante Amor

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...

Quiero crear una macro que me borre todos los textbox del formulario del que le llamo. Tu macro está bien. Sub LimpiarTextBox(NombreFormulario As MSForms.UserForm) Dim contr As Control For Each contr In NombreFormulario.Controls If TypeName(contr) =...

Suponiendo que las 8 columnas están de la columna A a la H, empiezan en la fila 1 y hasta la última fila con datos. Utilizando un dictionary: Private Sub CommandButton1_Click() Dim dic As Object Dim a As Variant Dim i As Long a = Range("A1:H" &...