Jump to content

Jhony

Members
  • Content Count

    28
  • Joined

  • Last visited

1 Follower

About Jhony

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Lo siento, envio el documento correcto. En este tiene explicaciones de lo que hace cada macro y el ejemplo que explique anteriomente. HOteles - macro (1) (1).xlsm
  2. Buen día a todos. Les comparto que estoy en un nuevo proyecto. Estoy realizando un calendario de reservaciones dinamico que permita visualizar que dias estan reservados o libres. Lo que realice fue lo siguiente: Hay una hoja llamada Visor de Habitaciones el cual es un calendario - Desde ahi guardo las reservas solo dando clic al calendario segun fecha y habitacion Genero un codigo automatico de reserva la cual es la combinacion de la habitacion y la fecha Ese codigo me servira para buscar en la hoja de Registro de Reservas y mostrarlo cada vez que doy clic en las flechas que mueven el calendario Cada vez que doy clic en las flechas me muestra en el calendario las reservaciones segun la Hoja de Registro de reserva. Mi inconveniente es el siguiente: Yo coloque el siguiente codigo, el cual explico: Busca en la fila del codigo de reserva de la hoja "Registro de Reservas" la celda L, para ver si esta pagada. Si cumple con la condicion lo que hace es marcar con verde la celdas en el calendario desde la fecha de inicio de la reservacion hasta las fecha segun las noches que indica en la hoja "Registro de Reservas". If Sheets("Registro de Reservas").Range(dirección).Offset(0, 11).Value = "Pagado" Then Sheets("Visor de habitaciones").Range(Cells(x, c).Offset(0, 0), Cells(x, c).Offset(0, otrafecha)).Interior.COLOR = rgbDarkGreen Else End If Nota: Esta parte del codigo se muestra en el editor de Visual Basic en la Hoja Visor de habitaciones bajo el nombre AGREGO El codigo funciona bien media vez se muestre en el calendario la fecha de inicio sin embargo cuando eso no sucede no funciona. En el ejemplo siguiente lo explico mejor: Imagen 1: La habitacion 2 tiene al huesped Prueba prueba desde la fecha del 23 al 26 de diciembre del 2017. El visor muestra que la habitacion esta ocupada en esa fecha, es decir que aparece en color verde y el nombre. Imagen 2: Sin embargo, cuando muevo la flecha para ver en el visor otras fechas, Aunque sabemos que el 26 de diciembre del 2017 ya esta ocupado, no me lo indica el visor es decir no se pone en verdeni el nombre. Agradezco de antemano el apoyo y las sugerencias para modificar mi codigo HOteles - macro (1).xlsm
  3. Agradezco tu apoyo JSDJSD. Ya logre ver las dos formas que me indicaste. Ha sido de bastante beneficio para mi. Gracias por compartir tus conocimientos. Feliz dìa!
  4. Tengo una pregunta JSDJSD. Estoy analizando el código para aprender de el, sin embargo me surge una pregunta. Que parte del código hace que listbox se llene con los datos que ingresas en los comboboxs? Por que en el código solo veo que interactuas con la hoja pero nunca con el listbox. Agradezco de antemano tu tiempo. Private Sub btel_Click() Set celda = Hoja2.Columns("A").Find(What:=ListBox1.Value, LookAt:=xlWhole, After:=Hoja2.Range("A1")) fila = celda.Row Set celda = celda.Offset(1, 0) Hoja2.Rows(celda.Row - 1).Delete End Sub Private Sub btel_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'Cambia de color el boton cuando se pasa sobre el btel.BackColor = RGB(0, 255, 0) End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'Cambia de color el boton cuando se pasa sobre el btel.BackColor = RGB(192, 192, 192) End Sub Private Sub cbca_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Dim i As Long With Sheets("Pedido") i = .Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja2.Range("A" & i).Value = cbar.Value Hoja2.Range("B" & i).Value = cbob.Value Hoja2.Range("C" & i).Value = cbca.Value End With MsgBox "Pulse para Continuar" cbar = "" cbob = "" cbca = "" cbar.SetFocus End If End Sub Private Sub Solicitudformulario_Initialize() 'Lo que esta indicando aca es que el combobox cbar traera los articulos desde la B2 hasta el ultimo que exista cbar.RowSource = "'" & Hoja1.Name & "'!B2:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row End Sub
  5. Gracias por tu apoyo. Tu aporte es lo que necesito. Además agradecido por hacer que el botón cambien de color. No sabia que se podía hacer eso. Saludos.
  6. Buena tarde a todos. Les comparto que tengo un formulario con un listbox al cual agrego datos de un combobox, lo cual no me genera problema, sino hasta que deseo seguir agregando datos aun listbox que al iniciar el formulario toma los datos guardados de una hoja. El fin es hacer una plantilla de solicitud de articulos Espero puedan ayudarme con ideas. Desde ya muy agredecido. prueba de edicion.xlsm
  7. Gracias @Antoni, @Gerson Pineda, @Riddle @bigpetroman. Les comento que he intentado lo indicado en mi maquina con varias versiones (2013 y 2016) y me sigue sucediendo lo mismo. Mañana tratare de intentar con otras maquinas, haber que sucede, talves la maquina sea la dificultad. Les cuento luego como me fue. Saludos cordiales,
  8. Gracias por el apoyo. Les comparto que actualmente la macro (Botones y Formulario) me ubica en la celda A1, entonces cuando quiero bajar con las flechas hasta la celda A25 por ejemplo, la pantalla se congela, es decir que no me muestra el desplazamiento aunque en la barra de formulas me indica que si esta ubicada en esa celda A25. Me doy cuenta que esto me sucede apartir de la celda A23. Nota: El documento adjunto es donde se me presenta el inconveniente. Agradezco desde sus respuestas, Libro1.xlsm
  9. Buen dia comunidad Les comparto que después de ejecutar una pequeña macro se congela la hoja actual. La macro realiza lo siguiente: Abre un formulario que es como un menú El formulario contiene un botón que me diseccionara a la hoja 2 La cuestión es que tengo un computadora con iCore 5, memoria ram de 4 GB y Microsoft estandar 2016 en español. Consideran que esto se debe al office que utilizo o existe otro elemento que provoca esto? Libro1.xlsm
  10. Gracias a todos por el apoyo. Me quedare con la propuesta de Antoni. Saludos
  11. Gracias por tu ayuda, Enigma. Tu codigo funciona bien, sin embargo creo que te confundi con tanto contexto. Fijate que mi problema sucede porque necesito sumar desde la celda D11 hasta una celda que es indefinida, en algunas ocasiones serà la D15, D200 ,D1000 o cualquier celda de la D ya que estoy agregando cantidades en esa columna continuamente. El resultado de la suma lo puedo colocar en la F11 o en cualquier otra celda, eso no me importa mucho. Agradezco de antemano tu apoyo, Ayuda Excel-Sumarrangos (1).xlsm
  12. Buen día comunidad.Les comparto que ando por 2 días leyendo código tras código para entender como hacer lo siguiente pero me he dado por vencido por lo que pido apoyo de ustedes. Pensè que seria lo mas fácil.La cuestión consiste que necesito realizar una suma desde la celda D11 hasta la celda indefinida seguida de la antes mencionada ubicada en la misma columna D. El resultado lo debo colocar en la celda vacía siguiente de la misma DAgradezco el apoyo y sus sugerencias, Sumarrangos.xlsm
  13. Te envío una foto de mi explicación, anterior. https://drive.google.com/file/d/0BzsE8j0mvGE9bDFtWFdUeGJXbjA/view?usp=sharing Gracias nuevamente por tu ayuda
  14. Lo siento Dr Hyde. Creo que te enrede con todo lo que he dicho. Fíjate que mi problema se encuentra en el listbox: Cuando seleccione un dato en listbox, de todos lo que aparezcan después de aplicar el filtro, deseo que se ubique en la celda de la hoja donde este ese dato, para que la celda de ese dato quede activa. Fijate que en mi ignorancia sobre listbox_clic he puesto el siguiente código pero no me realiza lo que te indico antes: Private Sub ListBox1_Click() 'se supone que practicamente este intruccion deberia ubicarse en la celda del dato seleccionado del listbox If ListBox1.ListCount <> 0 Then For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Exit For Next i End If End Sub Con el ejemplo de Mario, te daras cuenta que lo selecciono en listbox pero al ver la celda activa de la hoja, te das cuenta que esta otro dato y no en el de Mario., Agradecido por tu ayuda, listobox.xlsm
×
×
  • Create New...

Important Information

Privacy Policy