Dante Amor

H o l a : Te anexo la macro Sub CambiaColor() 'Por.Dante Amor For i = 15 To 500 cuenta = WorksheetFunction.CountIf(Range("D15:D500"), Cells(i, "D")) If cuenta = 1 Then Cells(i, "I").Interior.ColorIndex = 6 End If Next End Sub 'S aludos. Dante Amor....

Cambia la propiedad ShowModal del userform a False 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Prueba la siguiente macro para ver si te funciona enviar un correo desde excel. Cambia en la macro los siguientes datos: correo = "[email protected]" 'correo de office passwd = "pwd" 'password del correo destino = "usuario@gmailcom"...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Then Exit Sub ' If WorksheetFunction.CountIf(Columns(1), Target.Value) > 1 Then MsgBox "El...

Te anexo el código If OptionButton1.Value = True Then ' Set b = Hoja20.Columns("A").Find(suministro, lookat:=xlWhole) ' If Not b Is Nothing Then ' Hoja20.Rows(b.Row).Delete ' End If For i = Hoja20.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1 If...

H o la : Te anexo la macro. Pon en la macro el nombre de tu tabla en esta línea: tabla = "Tabla1" La macro: Sub ConvertirTabla() 'Por.Dante Amor Set h1 = Sheets("ORIGEN") Set h2 = Sheets("RESULTADO") tabla = "Tabla1" h2.Cells.Clear ' fini =...

Busca en la red este archivo, vienen conceptos básicos Gran tutorial de macros Puede ser de este enlace: http://www.academia.edu/11470478/GRAN-TUTORIAL-DE-MACROS

Para que solamente se ejecute cuando modificas la celda de Range("Planning_economic_study") Private Sub Worksheet_Change(ByVal Target As Range) 'MEJORAS MACROS If Not Intersect(Target, Range("Planning_economic_study")) Is Nothing Then...

Qué tienes en el cbo_nombre, ¿tienes un nombre o un número? Envíame tu archivo con el formulario y me explicas con un ejemplo cuál registro eliminarías de las 2 hojas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

Sería así: Sub DesprotegeHoja() Dim hojas As Worksheet For Each hojas In ActiveWorkbook.Worksheets If hojas.Visible = -1 Then hojas.Unprotect Password:="XXX" End If Next End Sub La macro tiene que recorrer todas las hojas y verificar si está visible,...