Adriel Ortiz Mangia

H o l a: Te paso la macro actualizada asumiendo que SUELDO a promediar es la columna i a partir de fila 5 de la Hoja2 Private Sub BtnFiltrar_Click() On Error GoTo ErrorFiltro Dim fila1 As Integer Dim fila2 As Integer Dim StrArea As String Dim...

H o l a: Sub Insertafila() ActiveSheet.Cells(3, 1).EntireRow.Insert shift:=xlDown End Sub

¿Pero cuál es el código?

H o l a: Investigando encontré esta macro y si funciona Sub proceso() 'por luismondelo ruta = "C:\Users\INICIAL-EIB\Downloads" parte = ActiveCell.Value Set fso = CreateObject("scripting.filesystemobject") Set carpeta = fso.getfolder(ruta) For Each...

H o l a: Te paso la macro Sub copiado() If [A1] = "" Then Exit Sub For Each hoja In ThisWorkbook.Worksheets If [A1] = hoja.Name Then MsgBox "hoja ya existe" Exit Sub End If Next Set h1 = Sheets("GENÉRICO") h1.Copy After:=Sheets(1) ActiveSheet.Name =...

H o l a: Nuestro amigo Dante esta ausente estos días, porque siempre estoy a la expectativa de sus respuestas, será que está a Full trabajo. Pero si deseas puedo apoyarte Muestra el código del combobox para validar los datos saludos!

H o l a: Agrega un módulo y pega esto Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double Dim celda As Range For Each celda In Rangosuma If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor =...

H o l a: Private Sub CMD1_Click() If TextBox15 <> "" Then Set h1 = Sheets("NUCLEOS PRODUCIDOS") j = h1.Range("I" & Rows.Count).End(xlUp).Row + 1 pedazo = 10 For i = 1 To Len(TextBox15) Cells(j, "I") = Mid(TextBox15, i, pedazo) Cells(j, "J") = Date...

H o l a: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("U4:U104")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target) Case "BAJA" MsgBox "El trabajador se encuetra...

H o l a: Te paso la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then Range("C10:C1002").ClearContents End If End Sub