Adriel Ortiz Mangia

Prueba la macro Sub macro() ' For Each r In Range("D2:Q20") If r.Value < 1000 Then r.Value = 0 Next r mgbox "fin" End Sub

Puedes explicar con otro ejemplo

Prueba la macro, lo pones en el evento initialize el código será en automático Private Sub UserForm_Initialize() Set h = Sheets("Hoja1") ' u = Range("A" & Rows.Count).End(xlUp).Row + 1 cod = WorksheetFunction.Max(h.Range("A2:A" & u - 1)) If Not...

[Hola Selecciona el Rango A1:C5 y empieza a digitar tus datos utilizando enter sin quitar la selección

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