Jump to content

Jose BN

Members
  • Content Count

    209
  • Joined

  • Last visited

  • Days Won

    8

Everything posted by Jose BN

  1. @paikerr Me parece recordar que trabaja desde la versión 2007 Saludos
  2. howling Solo debes dar clic sobre este mismo, ahí escribes el código de la macro y todo debe andar bien. Saludos
  3. A ver si es lo que buscas: Dim Resp As Byte Resp = MsgBox("La información suministrada es correcta? Deseas continuar con la ejecución ?", _ vbQuestion + vbYesNo, "ExcelJB") If Resp = vbYes Then MsgBox "Se eligió continuar...", vbExclamation, " ExcelJB " 'Aquí se ejecutaría el código MsgBox "Proceso realizado de forma exitosa!", , "Administrador" Else MsgBox "Se eligió cancelar...", vbCritical, " ExcelJB " End If Saludos J
  4. Silvia Creo que itz tiene razón en parte de no funcionar lo que le indicas, esto porque ella debe notar que la forma como se visualizan los datos no es la misma como esta definido en la celda, lo que significa que lo que se busca no es exactamente lo mismo (en cuanto a los datos con los que se cuenta), p.e esto puede ser algun espacio o caracter no visible a simple vista. Esto puede suceder cuando se extraen datos desde la web, esta es una posible razón para que una busqueda o las funciones de busquedad no encuentren el dato. Por ejemplo si buscas 5/1/2020 se posicionará donde encont
  5. Te podrá ayuda en algo: http://www.cpearson.com/excel/unselect.aspx
  6. Siempre tienes un truco bajo la manga! al carajo los lentes que pase a comprar entonces.... Saludos J
  7. Muchas gracias! JSDJSD y a todos! Tema resuelto...
  8. Bueno! Antoni La genialidad está de sobra! está muy buena la opción, seguramente no me hubieran alcanzado los años para lograr algo así. Saludos J
  9. tierra_pampa está muy buena la propuesta, solamente me salta el error al cambiar el día:
  10. Buenos días, Amigos de foro quisiera solicitar la colaboración de ustedes para resolver lo siguiente, estoy intentando aplicar un filtro a listbox en un form(Userform5), en el cual los criterios del filtro se definen en: mes(combobox1) y día(combobox2), esto sin recurrir al uso de un botón, respetando el encabezado de cada columna y que los valores de ambos combobox sean valores únicos. Hace pocos días JSDJSD me dío un ejemplo de este tipo de filtro por medio de un combobox pero he sido incapaz de agregar el segundo, adjunto el archivo por si pueden colaborar. Sal
  11. Sub nomuestra() Application.DisplayFormulaBar = False ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False .DisplayGridlines = False End With End Sub Por si te puede aportar algo. Sub nomuestra() ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") End Sub
  12. Private Sub CommandButton4_Click() Dim wb As Workbook For Each wb In Workbooks wb.Save Next Application.Quit End Sub Si te puede servir en algo.
  13. JSDJSD He definido las variables, muchas gracias! ha quedado marchando bien... Saludos
  14. JSDJSD intentand adaptar tu aporte a una necesidad Private Sub ComboBox1_Change() Dim Filas, i, ii As Integer With Hoja2 Filas = .Range("C" & Rows.Count).End(xlUp).Row ListBox1.RowSource = "" If ComboBox1.Value = "" Then Exit Sub ListBox1.AddItem For i = 6 To Filas If .Cells(i, 6) = ComboBox1 Then Me.ListBox1.AddItem .Cells(i, 1) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(i, 1).Offset(0, 1) ' Aqui hay que configurar la columa (Columna 2) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(i, 1).Offset(0,
  15. Buenos días! Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios: Si el valor en la columna G de la hoja Diario es mayor que cero, se copien los datos de Diario(hasta la ultima celda con datos) a la hoja BD pegando los datos en la ultima celda vacía de BD. Al copiar aquellos valores mayores a cero en la hoja BD quitarlos de la hoja Diario, solamente dejando los datos que contengan cero o se encuentren vacios en la columna G de la hoja Diario
  16. Tema solucionado! Se agradece la ayuda. Saludos JB
  17. LeandroA te agradezco el aporte! dejo un link de algunos documentos que me encontré por la web por si llegará a existir alguna consulta similar al tema. https://www.excelguru.ca/files/RibbonXCh07.pdf Saludos JB Prueba1.xlsm
  18. JSDJSD entonces solamente es identificar (MacroBoton1,2,3,4,5) y asignar la macro o el userform.show, cierto? Una ultima consulta como agregó un combobox ? actualmente los tengo incrustados en la hoja, es posible meterlos en el Ribbon? Estos tiene la siguiente función: Sub CargarCombos() Dim j As Integer Hoja3.ComboBox1.Clear Hoja3.ComboBox2.Clear 'Recupera dados de coluna A. .. For j = 8 To Hoja1.Range("A65536").End(xlUp).Row Hoja3.ComboBox1 = Hoja1.Range("A" & j) Hoja3.ComboBox2 = Hoja1.Range("A" & j) '...e filtrar duplic
  19. Agradezco JSDJSD tu apoyo adjunto el fichero, no contiene ninguna macro especifica. De momento estoy aprendido a conocer la herramienta y como comentaba. Tengo ciertas dudas sobre la posibilidad de agregar controles como actualmente se realiza en vba. Por mi parte continuaré estudiando. Saludos JB Prueba Ribbon.xlsm
×
×
  • Create New...

Important Information

Privacy Policy