jazzkoba

Dante Amor respondió: Lo reviso y comento

ActiveSheet.Range("$D$2:$D$1048576").AutoFilter Field:=4, Criteria1:="<>Usuario" Prueba de esta forma y me comentas, que tal

Te anexo código para buscar por encabezado... Sub buscar_encabezado() Sheets("tempsap").Select Rows(1).Find("TU ENCABEZADO").Offset(1).Select Range(Selection, Selection.End(xlDown)).Copy Hoja7.Range("A1") End Sub Comentame que tal te fue...

Te anexo archivo, checalo y me avisas si es lo que necesitas. https://www.dropbox.com/s/x51a2lxcagx64ft/Listado%20de%20hojas.xls?m=

Aquí te anexo archivo, cualquier duda avisame. https://www.dropbox.com/s/rsxt5dj7442rb06/Desgloce%20billetes.xls

Te comento que no se si te funcione esta macro, ya que yo tengo 2007.. prueba y me comentas que tal... Sub Autoabrir() ' Corre la macro, esconder la barra de herramientas 3 segundo desde ahora. Application. OnTime Now + TimeValue("00:00:03"),...

Que tal con gusto te apoyo, unicamente enviame el ejemplo de como esta la información por ahora y otra donde me expliques a donde quieres llegar.

Ingresa el código siguiente donde corresponda. Sub ingresar() dato = InputBox("Ingresa el dato") If dato = "" Then Exit Sub dato = UCase(dato) ActiveSheet.Range("A1").Value = dato End Sub Yo estoy poniendo el valor capturado en la celda A1, tu puedes...

Sub copiar() Sheets("Hoja1").Range("A1:C10").Copy _ Sheets("Hoja2").Range("A" & Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1) End Sub Aplica la macro, ajustando el rango de tus datos.

Yo estoy suponiendo que en la columna Y es donde contara el total de registros, habría que adaptarlo a la columna correspondiente Aplica esta macro en un modulo: Sub formula_autocompletar() Sheets("Hoja1").Select Range("Y65000").End(xlUp).Offset(1,...

Dante Amor respondió: Te hice una pregunta por correo

Me puedes enviar tu archivo ejemplo.

Me puedes enviar un ejemplo para trabajar sobre el.

Prueba esto: Sub multiplicacion() For i = 1 To 12 Cells(i, "C") = Cells(i, "B") * 1 Next Columns("B:B").Select Selection.Delete Shift:=xlToLeft End Sub