Jump to content

Juanmasi

Members
  • Content Count

    11
  • Joined

  • Last visited

About Juanmasi

  • Rank
    Member

Recent Profile Visitors

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

  1. Bueno veo que la respuesta de Antoni me permite abrir dos userform al mismo tiempo, pero no no termina de solucionar mi problema, ya que no consigo que en ambos userform me aparezca la imagen dependiente del combobox del primer formulario. No se si es que no es posible. Me podeis ayudar?
  2. Perdón Antoni por no haber contestado antes. Lo que me comentas me ha servido dada mi ignorancia en muchas cosas, pero lo que no consigo es que en el segundo userform me aparezca la misma imagen del primer userform. En cualquier caso, muchisimas gracias por tu ayuda. Un Saludo
  3. Hola de nuevo. Vuelvo a necesitar de vuestra ayuda y generosidad. Tengo una plantilla con dos formularios que se abren al mismo tiempo al pulsar el botón mostrar. En el primero muestro todos los datos que necesito y en el segundo quiero que me aparezca la misma imagen que muestro en el primer formulario. Perdonar mi torpeza y mi ignorancia, pero por mas que lo intento no lo consigo.Y creo que la cosa debe ser más fácil de lo que intento hacer, pero nada. Espero saberme explicar para que me podáis entender. Muchas gracias por todo. Un saludo adjunto archivo que contiene mi plantilla Las Cumbres.xlsm
  4. Hola de nuevo. Necesito vuestra generosa ayuda. Tengo un formulario para registrar artículos y necesitaria que al seleccionar de un combobox una hoja, en el textbox me apareciera el numero siguiente al último registrado en la hoja seleccionada. Espero saberme explicar. Gracias
  5. Si perfectamente. Muchas gracias por tu interes y dedicarme tu tiempo. Un saludo
  6. Se ha producido error 91 en tiempo de ejecución. Variable de objeto o bloque with no establecido. Private Sub Workbook_Open() 'With Application '.WindowState = xlMaximized 'End With 'Sheets("Inicio").Select Application.DisplayFormulaBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayWorkbookTabs = False End Sub Cuando me voy a depurar, me aparece marcada la linea que ves aqui en rojo. Perdon por mi ignorancia y muchas gracias
  7. JSDJSD perdona mi torpeza, lo he probado y al abrirlo ya me genera un error. Tampoco entiendo el cambio. Como comenté, lo que pretendo es incluir un botón que me permita realizar modificaciones sobre el registro activo y guardarlo, sustituyendo el antiguo. De todas formas muchisimas gracias por tu interés.
  8. Las Cumbres.xlsm Este es el archivo. La idea es en el formulario "mostrar" agregar un boton que me permita modificar el registro seleccionado. Muchisimas gracias por el interés. Un saludo
  9. Hola a todos, soy nuevo en el foto y en estos mundos de la programación vba. Estoy realizando una hoja de registro de artículos pero no consigo incluir la opción modificar un registro. Este es el codigo que tengo para incluir artículos y creo que el mismo me podría servir para modificar. El problema es que con este código lo que hago es añadir un registro nuevo al final de la tabla en vez de modificar el que esta seleccionado en el combobox. (Espero explicarme para que me podáis entender ya que como os digo soy totalmente novato en este mundo) Private Sub BtnGuardar_Click() Dim Drep As Object, Registro As String If Txt_Precio = "" Or Txt_Descripcion = "" Or Txt_Catalogo = "" Or txt_NombreI = "" Or Txt_RutaImagen = "" Then MsgBox "Complete los Campos Vacios.", vbCritical, "MacroExcelVBA-Ag" Exit Sub End If Registro = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja2.Cells(Registro, 1) = Txt_Precio Hoja2.Cells(Registro, 2) = Txt_Descripcion Hoja2.Cells(Registro, 3) = Txt_Catalogo Hoja2.Cells(Registro, 4) = txt_NombreI Hoja2.Cells(Registro, 5) = Txt_RutaImagen Txt_Precio = "" Txt_Descripcion = "" Txt_Catalogo = "" txt_NombreI = "" Txt_RutaImagen = "" BorrarFoto MsgBox "Datos Registrados con Exito", vbInformation, "MacroExcelVBA-Ag" 'Unload Me End Sub Posiblemente mi consulta sea de primero de primaria, pero por mas que busco no encuentro la solución. Entiendo que la clave está en la siguiente linea. Registro = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Bueno, espero que me haya podido explicar y perdonar mi ignorancia en todo este tema. Muchas gracias
  10. Hola, soy nuevo en el foro y en el mundo de la programación en excel. Soy autodidacta y aunque he tocado en alguna ocasión algo de excel, ahora me he metido algo mas en profundidad. Espero aprende mucho con vosotros. Un saludo a todos
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png