Copiar una fila de registros a otra hoja
Tengo una tabla de la siguiente forma:
Unidad observ aaa bbbb
URH 123 AA BB
UGI 124 A B
eN LA PRIMERA FILA HE APLICADO UNA LISTA DESPLEGABLE que contiene lo siguiente URH, UGI, UAC, en la lista he elegido "URH", quiero que en otra hoja llamada URH se copie toda la fila, y si cambio la opcion a "UGI" se copie toda la fila a la hoja llamada UGI, como hago? Espero que se comprenda.
Unidad observ aaa bbbb
URH 123 AA BB
UGI 124 A B
eN LA PRIMERA FILA HE APLICADO UNA LISTA DESPLEGABLE que contiene lo siguiente URH, UGI, UAC, en la lista he elegido "URH", quiero que en otra hoja llamada URH se copie toda la fila, y si cambio la opcion a "UGI" se copie toda la fila a la hoja llamada UGI, como hago? Espero que se comprenda.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
¿Es necesario crear hojas en base a tu escogencia? ¿No has pensado que si incluyes muchos Unidades se te harían demasiadas hojas? ¿No te parece que sería mejor utilizar un Filtro Avanzado para facilitarte las consultas?
[email protected]
[email protected]
En realidad tengo que copiar las 4 primeras celdas de la fila a otra hoja, es decir hasta la columna llamada BBBB, (Estas celdas las voy a proteger) las siguientes columnas deben ser llenada por otra persona (unidad), es por eso que necesito diferentes hojas
Por ejemplo:
Hoja (urh)
UNIDAD OBSERV AAA BBBB CCCC DDDD
URH 123 AA BB CC DD
Por ejemplo:
Hoja (urh)
UNIDAD OBSERV AAA BBBB CCCC DDDD
URH 123 AA BB CC DD
Puedes usar una macro como la siguiente:
Sub CreaHoja()
Dim NombreNuevo As String
NombreNuevo = ActiveCell.Text
With ActiveCell
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
End With
If WorksheetExists(NombreNuevo) = True Then
Hoja1.Select
Range("A1").Select
Application.CutCopyMode = False
Exit Sub
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(NombreNuevo)
Range("A65000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
Hoja1.Select
Application.CutCopyMode = False
End Sub
La macro verifica que la hoja no sea repetida y no importa cuántas celdas de la misma fila copias (siempre que estén contiguas).
[email protected]
Sub CreaHoja()
Dim NombreNuevo As String
NombreNuevo = ActiveCell.Text
With ActiveCell
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
End With
If WorksheetExists(NombreNuevo) = True Then
Hoja1.Select
Range("A1").Select
Application.CutCopyMode = False
Exit Sub
Else
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = CStr(NombreNuevo)
Range("A65000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
Hoja1.Select
Application.CutCopyMode = False
End Sub
La macro verifica que la hoja no sea repetida y no importa cuántas celdas de la misma fila copias (siempre que estén contiguas).
[email protected]
