Copiar y pegar datos de una hoja a otra que yo seleccione
publicado
Hola,
Tengo un problema pero para explicarlo debo plantear lo que deseo hacer.
Una macro que cree una nueva hoja con el nombre de un texto(APELLIDOS) de celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en la hoja recien creada o en una hoja que seleccione , o que aparezca formulario pidiendome el nombre de la hoja que deseo copiar, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.También que el pegado sea de en la celda c22.
Dicho esto solo tengo una macro que crea una nueva hoja con el nombre de la celda que yo necesito:
Sub Nuevopaciente()
Dim i As Long
' Si el nombre ya existe, genere un mensaje y no cree la hoja
For i = 1 To Sheets.Count
If Sheets(i).Name = Sheets("Inicio").Range("C6") Then
MsgBox "El nombre de la hoja ya existe. Por favor, Genere un nuevo nombre"
Exit Sub
End If
Next i
' Crea la nueva hoja con el nombre que está en la hoja1 en la celda A1
Sheets.Add
ActiveSheet.Name = Sheets("Inicio").Range("C6")
End Sub
Muchas gracias, espero que compartan su pronta ayuda.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola,
Tengo un problema pero para explicarlo debo plantear lo que deseo hacer.
Una macro que cree una nueva hoja con el nombre de un texto(APELLIDOS) de celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en la hoja recien creada o en una hoja que seleccione , o que aparezca formulario pidiendome el nombre de la hoja que deseo copiar, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.También que el pegado sea de en la celda c22.
Dicho esto solo tengo una macro que crea una nueva hoja con el nombre de la celda que yo necesito:
Sub Nuevopaciente()
Dim i As Long
' Si el nombre ya existe, genere un mensaje y no cree la hoja
For i = 1 To Sheets.Count
If Sheets(i).Name = Sheets("Inicio").Range("C6") Then
MsgBox "El nombre de la hoja ya existe. Por favor, Genere un nuevo nombre"
Exit Sub
End If
Next i
' Crea la nueva hoja con el nombre que está en la hoja1 en la celda A1
Sheets.Add
ActiveSheet.Name = Sheets("Inicio").Range("C6")
End Sub
Muchas gracias, espero que compartan su pronta ayuda.