Error al duplicar nombre
Hace unos días Elsa me solucionó como crear hojas y que me pidiera el nombre que le quería dar. Ahora la quiero completar para que en el caso de que el nombre se repita me dé un mensaje para que pulse aceptar y luego me salga para que vuelva a empezar. Aprovecho de tu generosidad para que me digas una macro para insertar una columna siempre al final de las que ya existen. Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
La instrucción:
Activesheet.range("A1").End(xlToRight).select
te posiciona en la con datos de la fila 1
Pero es mejor obtener el rango, para saber con exactitud cuál e a col con datos:
Sub ultimaCol()
Dim colTotal as Integer
'aquí tus instrucciones de al libro deseado
'....
'seleccioné la hoja 5- Ajustar
ActiveWorkbook.Sheets(5).Select
A.Range("A1").CurrentRegion.Select
colTotal= Selection.Columns.Count
ActiveSheet.Cells(1,+ 1).Select
'siguen tus instrucciones
End Sub
Saludos
Elsa
http://es.geocities.lesdepunilla/manual
Activesheet.range("A1").End(xlToRight).select
te posiciona en la con datos de la fila 1
Pero es mejor obtener el rango, para saber con exactitud cuál e a col con datos:
Sub ultimaCol()
Dim colTotal as Integer
'aquí tus instrucciones de al libro deseado
'....
'seleccioné la hoja 5- Ajustar
ActiveWorkbook.Sheets(5).Select
A.Range("A1").CurrentRegion.Select
colTotal= Selection.Columns.Count
ActiveSheet.Cells(1,+ 1).Select
'siguen tus instrucciones
End Sub
Saludos
Elsa
http://es.geocities.lesdepunilla/manual
Gracias Elsa, es lo que quería.
Aquí va la rutina que contempla lo que mencionas:
Sub creahoja()
Dim nbreHoja As String
nbreHoja = InputBox("Ingrese Nombre de hoja a insertar")
If nbreHoja <> "" Then
'se agrega una hoja al final
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'se le asigna el nombre ingresado
On Error GoTo CreaError
ActiveSheet.Name = nbreHoja
Exit Sub
CreaError:
MsgBox "Ya existe hoja con ese nombre..."
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub
Con respecto a lo que sigue (agregar 1 col ...) no entiendo la idea, ¿si al final de las que existen siempre hay una col vacía?
Sub creahoja()
Dim nbreHoja As String
nbreHoja = InputBox("Ingrese Nombre de hoja a insertar")
If nbreHoja <> "" Then
'se agrega una hoja al final
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
'se le asigna el nombre ingresado
On Error GoTo CreaError
ActiveSheet.Name = nbreHoja
Exit Sub
CreaError:
MsgBox "Ya existe hoja con ese nombre..."
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub
Con respecto a lo que sigue (agregar 1 col ...) no entiendo la idea, ¿si al final de las que existen siempre hay una col vacía?
