Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

InputBox para coparlo a un celda

07/11/2005 - 20:31 por KM **Ve | Informe spam
Ayuda Hacer una pregunta
Hola amigos, Quero ciando que me levanta un cuadro de mensaje (InputBox)
Introduzca una fecha y que me lo pega en la celda (G1) para que me guarda el
nombre del Libro con la fecha. el mensaje de (InputBox) donde estas las
Asterico ******* elli tiene que ir el mensaje para la foncion.


Gracias
KM**VE

=aqui esta el macro



Sub Nuevo()
'
' Nuevo Macro
' Macro grabada el 01/11/2005 por flycom
'

'
If InputBox("si usted Persona Autorizada Introduzca la clave:", "") <>
"0000" Then _
MsgBox "Usted no esta autorizado.": Exit Sub

'Intredusca la fecha del nuevo mes del libro
If
InputBox("*************************************************************************.":
Exit Sub


'Guardar el libro Interior antes de borrar para comenzar un nuevo libro
ActiveWorkbook.Save

'Borar todo el libro para comensar de nuevo
ActiveWindow.SmallScroll Down:=-15
Range("C7:C37").Select
Selection.ClearContents
Range("D7:D37").Select
Selection.ClearContents
Range("F7:F37").Select
Selection.ClearContents
Range("G7:G37").Select
Selection.ClearContents
Range("H7:H37").Select
Selection.ClearContents
Range("K7:K37").Select
Selection.ClearContents
Range("L7:L37").Select
Selection.ClearContents
Range("M7:M37").Select
Selection.ClearContents
Range("N7:N37").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("P7:P37").Select
Selection.ClearContents
Range("Q7:Q37").Select
Selection.ClearContents
Range("S7:S37").Select
Selection.ClearContents
Range("T7:T37").Select
Selection.ClearContents
Range("V7:V37").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
Range("W7:W37").Select
Selection.ClearContents
Range("Z7:Z37").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Control Bancos").Select
Range("A9:C125").Select
ActiveWindow.SmallScroll Down:=-21
Range("A9:C128").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-141
Range("E9:E128").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-135
Range("G9:J127").Select
ActiveWindow.SmallScroll Down:=-21
Range("G9:J128").Select
ActiveWindow.SmallScroll Down:=-141
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-18
Range("A9").Select
Sheets("Relacion de Compra").Select
Range("A9:B9").Select
ActiveWindow.SmallScroll Down:=-18
Range("A9:U40").Select
Selection.ClearContents
Range("A24:B24").Select
Sheets("control d vta").Select
ActiveWindow.SmallScroll Down:=-12
Range("C7").Select

'Guardar el Archivo con el nombre de unas celda en la hoja
ThisWorkbook.SaveAs Range("I3") & Range("g1"), xlWorkbookNormal
End Sub
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
08/11/2005 - 06:22 | Informe spam
hola, KM !

... ciando... levanta un... (InputBox) Introduzca una fecha y que me lo pega en la celda (G1)
... guarda el nombre del Libro con la fecha [...]



si entiendo bien lo que requieres [y siguiendo la pista de tus mensajes anteriores]...
haz una prueba con la siguiente macro ->sobre una copia<- de tu archivo 'original' ;)
-> se supone que el usuario SOLO introduce en el segundo inputbox el formato "mm-yyyy" <-
no contiene ninguna 'prevencion/correccion/..' de posibles errores en la 'entrada' <= OJO
[analizala y ya comentaras 'donde le va doliendo' a mis supuestos] :D

saludos,
hector.
en un modulo de codigo 'normal' ==Sub Nuevo()
Dim Fecha As String, Ruta As String, Nombre As String
If InputBox("Si Usted es Persona Autorizada Introduzca la clave:", "") <> "0000" _
Then MsgBox "Usted no esta autorizado !!!": Exit Sub
' Fecha del nuevo mes del libro
Fecha = InputBox("Introduzca la fecha para el nuevo mes del libro" & vbCr & _
"Utiice el formato de ejemplo para el mes actual...", "", _
Format(Date, "mm-yyyy"))
If Fecha = "" Then MsgBox "Operacion cancelada !!!": Exit Sub
Nombre = "Ventas control mensual " & Fecha
' Guardar el libro Interior antes de borrar para comenzar un nuevo libro
With ThisWorkbook: .Save
' Borar todo el libro para comenzar de nuevo
Ruta = .Worksheets("Control d vta").Range("I3")
.Worksheets("Control d vta").Range("g1") = Nombre
.Worksheets("Control d vta") _
.Range("c7:d37,f7:h37,k7:n37,p7:q37,s7:t37,v7:w3,z7:z37").ClearContents
.Worksheets("Control Bancos") _
.Range("a9:c128,e9:e128,g9:j128").ClearContents
.Worksheets("Relacion de compra").Range("a9:u40").ClearContents
' Guardar el Archivo con el nombre de unas celdas en la hoja
.SaveAs Ruta & Nombre, xlWorkbookNormal
End With
End Sub

Preguntas similares

 

Busqueda sugerida :