Dante Amor

H o l a: Envíame un correo nuevo. En el correo me envías la última versión de tu archivo que tengas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “carlos arana” y el título de esta pregunta.

En el optionbutton6, me faltó un Exit Sub: If OptionButton6 Then 'Agregar registro Set b = Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "El nombre ya existe" TextBox1.SetFocus Exit Sub End If Range("A" & Range("A" &...

H o l a: Te anexo la macro actualizada. Pon la macro en un botón y la ejecutas desde el botón. Sub DarEnter() 'Por.Dante Amor On Error Resume Next Set rango = Application.InputBox("Selecciona el rango a comparar", _ Default:=Selection.Address,...

H o l a: Estoy algo confundido. ¿Primero quieres que el userform siempre guarde los datos en la hoja1? Si es así eso se resuelve con esto: Private Sub CommandButton1_Click() Dim fila As Long Dim duplicados As Boolean Dim h1 As Object Set h1 =...

Te anexo la segunda parte para ordenar Sub CargarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet h1.Cells.Clear tit = Array("LISTA DE MATERIALES / SPOOLA_PART...

Te anexo la macro Sub ContarVisibles() 'Por.Dante Amor For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row If Rows(i).Hidden = False Then filas = filas + 1 Next MsgBox "Filas visibles = " & filas End Sub 'S aludos. Dante...

H o l a: Te anexo la macro Sub Resultado() 'Por.Dante Amor Set h1 = Sheets("Datos") Set h2 = Sheets("Resultado") h2.Cells.Clear h2.Range("A1:B1") = Array("Workzone", "Carro") j = 2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row k = 2 Do While...

Te anexo lo que agregué a tu formulario: Private Sub OptionButton7_Click() If cbo_Nombre.ListIndex = -1 Then MsgBox "Selecciona un registro del combo" cbo_Nombre.SetFocus OptionButton7 = False Exit Sub End If TextBox1 = cbo_Nombre End Sub 'S aludos....

H o l a: No sé cuáles celdas están en la hoja1 y cuál celdas van en la hoja2. Te anexo la macro con la sintaxis. Solamente tienes que cambiar h1 si las celdas están en la hoja1 y h2 si las celdas están en la hoja2 Sub CopiarValor() 'Por.Dante Amor...

Envíame un correo nuevo, en el asunto escribe tu nombre de usuario.