Adriel Ortiz Mangia

H o l a va la macro Sub duplicar() 'AOM Set h1 = Sheets("Hoja1") 'nombre de hoja modelo Set h2 = Sheets("Hoja2") 'nombre de hoja listado ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row ' h1.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)...

Prueba la macro Sub Macro1() ' ' AOM Application.ScreenUpdating = False Columns("E:G").ClearContents Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _ ), Unique:=True Range("G1") = Range("C1") With Range("G2:G" &...

[Hola prueba con esto Sub Macro1() ' ' AOM Application.ScreenUpdating = False Columns("E:G").ClearContents Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _ ), Unique:=True Range("G1") = Range("C1") With Range("G2:G" &...

[Hola va la macro Sub mostrar() For Each h In Sheets Select Case h.Name Case "Hoja2", "Hoja3 ' para mantener ocultas" Case Else h.Visible = True ' para hacer visible las hojas End Select Next End Sub Puntuar para cerrar la pregunta..

[Hola prueba con esta función =SIFECHA(D1;E1;"d") revisa tu separador si es , o ;

[Hola Prueba así modificar = MsgBox("¿Deseas modificar ?", vbQuestion + vbYesNo, "AVISO") If modificar = vbYes Then Range("C13") = Format(Date, "dd/mm/yyyy") End If

[hola va la macro Sub Eliminar_Reclamacion() Worksheets("Registro_anual").Unprotect ("contraseña") valor = InputBox("¿que quieres eliminar?") If valor = "" Then Exit Sub ' Set Celda = Range("B:B").Find(valor, Lookat:=xlWhole) If Not Celda Is Nothing...

h o l a Sube tu archivo de ejemplo a la nube ¿Y qué pasa si el nombre del cliente se repite?

H o l a prueba esto Private Sub Worksheet_Change(ByVal Target As Range) 'http://foro.todoexcel.com/macro-para-controlar-cambio-valor-una-celda-t32389.html Dim ValorAnterior, ValorActual If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub...

Va la macro del generoso Dante Sub contarduplicados() 'Por.Dam Range("AZ3:AZ" & Range("AZ" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone For i = 3 To Range("AZ" & Rows.Count).End(xlUp).Row ant = Cells(i, "AZ") For j = i + 1 To Range("AZ"...