Dante Amor

A qué te refieres con 2 tablas distintas. Podrías compartir tus archivos de word y de excel en la nube. Podría ser en dropbox o en google drive. Si tienes datos confidenciales puedes reemplazarlos con datos genéricos. Si puedes en un tercer archivo,...

Utiliza la misma funcionalidad para Quitar Duplicados, solamente selecciona las columnas o los encabezados que forman la "llave" completa.

Para eso, cuando proteges la hoja, debes marcar las casillas - Seleccionar celdas bloqueadas - Seleccionar celdas desbloqueadas

Prueba lo siguiente y me comentas. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor Dim c As Range, rng As Range Dim n As Variant Set rng = Intersect(Target, Range("L:L"), Rows("12:" & Rows.Count)) If Not rng Is Nothing Then...

Prueba lo siguiente: Private Sub CommandButton1_Click() CommandButton1.Visible = False ' 'pon aquí tu código para imprimr el userform ' CommandButton1.Visible = True End Sub

Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If If TextBox2.Value = "" Then MsgBox "Captura el segundo dato" TextBox2.SetFocus Exit Sub End If ' Dim...

De acuerdo cesar corado, con gusto te ayudo, pero quisiera que me ayudaras a ayudarte. El ejemplo que yo puse solamente son suposiciones, me gustaría que tú pusieras un ejemplo con datos y con imágenes de la siguiente manera: 1. Una imagen de la hoja...

Utilicemos esta opción: Las hojas pueden estar nombradas por ejemplo: "A" - "B" Pon el siguiente código en tu formulario: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If...

Prueba la siguiente macro: Sub Eliminar_Hojas() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In Sheets If LCase(sh.Name) <> LCase("FUNCIONA") Then sh.Delete Next End Sub

Prueba la siguiente: =SUMAPRODUCTO(('[Encuesta Alumnos (respuestas).xlsx]river'!A1:A100="COMUNICACIÓN")* ('[Encuesta Alumnos (respuestas).xlsx]river'!N1:N100=1)* ('[Encuesta Alumnos (respuestas).xlsx]river'!B1:L100="Alguna Vez"))