señores, como les va, disculpen la molestia, necesito su ayuda.
voy a explicar lo que necesito y lo que busque.
tengo un documento de excel, en el cual tengo 7 hojas, cada una tiene el nombre de una persona, en cada hoja hay titulos como por ejemplo:
fecha, estatus, observasiones, etc.
la ultima hoja se llama: Pendientes
la idea es que los datos de las filas de cada hoja, en las que el estatus es: "abierto", se copien en la hoja: Pendientes, ya que hay filas en las que el estatus es: "cerrado".
en base a esto, busque en internet y encontre 2 codigos para unas macros.
en el primer codigo, al ejecutarlo me da el error: 1004 y me señala la fila que dice:ActiveCell.Offset(1).Select
el codigo lo tome de aqui:
http://www.todoexpertos.com/categori...a-varias-hojas
espero me puedan ayudar, ya que esto me ayudaria mucho a consolidar los datos en la Hoja Pendientes, tomados de las otras hojas.
Código:
Sub Mandadato()
'
Dim x As Object
Dim sname, origname As String
origname = ActiveSheet.Name
sname = ActiveCell.Value
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err <> 0 Then
MsgBox "No existe hoja con el nombre elegido: " & sname, vbCritical, "ERROR DE NOMBRE"
Exit Sub
End If
On Error GoTo 0
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets(sname).Select
Range("A1").Select '<- Chofi, Reemplaza esta celda con la primera ocupada que tengas en la hoja de destino.
Selection.End(xlDown).Select
ActiveCell.Offset(1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(origname).Select
End Sub