Copiar y pegar datos de una hoja a otra que yo seleccione
Publicado por CrossRntk (1 intervención) el 05/02/2014 02:04:12
Hola,
Tengo un problema pero para explicarlo debo plantear lo que deseo hacer.
Una macro que cree una nueva hoja con el nombre de una celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en una hoja que seleccione o que busque el nombre que coloque, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.
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 su pronta ayuda.
Tengo un problema pero para explicarlo debo plantear lo que deseo hacer.
Una macro que cree una nueva hoja con el nombre de una celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en una hoja que seleccione o que busque el nombre que coloque, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.
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 su pronta ayuda.
Valora esta pregunta
0