hola a ver quien me puede ayudar... en el siguiente codigo quiero que el inputbox OBRA sea una lista desplegable que tome datos de un rango de celdas de otra hoja saludos y gracias Option Explicit Sub GASTOS() Dim VCATEGORIA As String Dim VOBRA As String Dim VFECHA As Date Dim VMESENTREGA As String Dim VDETALLE As String Dim VNETO As Double Dim VIVA As Double Dim VTOTAL As Double Dim VAÑO As Integer 'DETERMINA CADA VARIABLE PARA CADA TITULO Dim VCODIGO As Integer Dim VMES As Integer Dim vfilas As Long 'esto agrega fila nueva cuando vuelco datos 'esto agrega fila nueva cuando vuelco datos Dim vcontinuar As String Range("a6").Value = "CATEGORIA" Range("B6").Value = "OBRA" Range("C6").Value = "FECHA" Range("D6").Value = "MES DE ENTREGA" Range("E6").Value = "DETALLE" Range("F6").Value = "NETO" Range("G6").Value = "IVA" Range("H6").Value = "TOTAL" Range("I6").Value = "AÑO" 'TITULOS DEL EJERCICIO 6 Do VCODIGO = InputBox("CODIGO : 1 GASTOS - 2 INGRESOS - 3 SIN FACTURA - 4 JORNALES") VOBRA = InputBox("OBRA", "OBRA") VFECHA = CDate(InputBox("FECHA", "FECHA")) VMES = InputBox("MES DE ENTREGA ; 1 ENERO - 2 FEBRERO - 3 MARZO - 4 ABRIL - 5 MAYO - 6 JUNIO - 7 JULIO - 8 AGOSTO - 9 SETIEMBRE - 10 OCTUBRE - 11 NOVIEMBRE - 12 DICIEMBRE") VDETALLE = InputBox("DETALLE", "DETALLE") VNETO = Val(InputBox("NETO")) 'ESTO GENERO LOS 4 INPUTBOX A TRAVES DE LOS CUALES INGRESARE LOS DATOS If VCODIGO = "1" Then VCATEGORIA = "GASTOS" Else If VCODIGO = "2" Then VCATEGORIA = "INGRESOS" Else If VCODIGO = "3" Then VCATEGORIA = "SIN FACTURA" Else If VCODIGO = "4" Then VCATEGORIA = "JORNALES" Else VCATEGORIA = "CODIGO INCORRECTO" 'ESTABLECEMOS CONDICIONES IF PARA LOS CODIGOS DE LAS CATEGORIAS 'PARA QUE LOS CODIGOS NOS ARROJEN EL NOMBRE DE LA CATEGORIA UNA VEZ QUE INGRESAMOS DICHOS CODIGOS End If End If End If End If If VMES = "1" Then VMESENTREGA = "ENERO" Else If VMES = "2" Then VMESENTREGA = "FEBRERO" Else If VMES = "3" Then VMESENTREGA = "MARZO" Else If VMES = "4" Then VMESENTREGA = "ABRIL" Else If VMES = "5" Then VMESENTREGA = "MAYO" Else If VMES = "6" Then VMESENTREGA = "JUNIO" Else If VMES = "7" Then VMESENTREGA = "JULIO" Else If VMES = "8" Then VMESENTREGA = "AGOSTO" Else If VMES = "9" Then VMESENTREGA = "SETIEMBRE" Else If VMES = "10" Then VMESENTREGA = "OCTUBRE" Else If VMES = "11" Then VMESENTREGA = "NOVIEMBRE" Else If VMES = "12" Then VMESENTREGA = "DICIEMBRE" Else End If End If End If End If End If End If End If End If End If End If End If End If Select Case VCODIGO Case Is = 1 VNETO = VNETO * -1 VIVA = VNETO * 0.22 Case 2 VNETO = VNETO VIVA = VNETO * 0.22 Case Is = 3 VNETO = VNETO * -1 Case 4 VNETO = VNETO * -1 End Select 'final de calculos VTOTAL = VNETO + VIVA vfilas = Range("a1048000").End(xlUp).Row + 1 'en todos los ejercicios debo poner esta instruccion entre 'el final de calculos y el volcado de datos Range("A" & vfilas).Value = VCATEGORIA Range("B" & vfilas).Value = VOBRA Range("C" & vfilas).Value = VFECHA Range("D" & vfilas).Value = VMESENTREGA Range("E" & vfilas).Value = VDETALLE Range("F" & vfilas).Value = VNETO Range("G" & vfilas).Value = VIVA Range("H" & vfilas).Value = VTOTAL 'COLOCA LO QUE INGRESAMOS EN EL INPUTBOX EN UNA CELDA DETERMINADA vcontinuar = MsgBox("¿Desea continuar?", vbYesNo) 'la variable siempre será vcontinuar 'siempre va debajo del volcado de datos 'cierro estructura do Loop Until vcontinuar = vbNo 'no poner comillas a vbno porque es un valor no un texto 'pongo vbno para que corte el macro y no me pida completar datos nuevamente Range("A:H").EntireColumn.AutoFit End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

LISTA DESPLEGABLE

Autor del tema GRAWEN
Fecha de inicio 26 Ene 2016

GRAWEN

New member

26 Ene 2016

hola a ver quien me puede ayudar... en el siguiente codigo quiero que el inputbox OBRA sea una lista desplegable que tome datos de un rango de celdas de otra hoja
saludos y gracias

Option...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Listbox y Lista desplegable

Respuestas: 7

17 May 2026

klex

Resuelto

lista desplegable segun lista en fila de base de datos

Respuestas: 7

21 Ago 2025

JMONTALVO22

Resuelto

Lista Desplegable dependientes en VBA

Respuestas: 12

18 Oct 2025

FGV

Resuelto

lista desplegable dinamica

Respuestas: 8

20 Ago 2024

sergiosueiro

Pregunta

Macro y lista desplegable...

Respuestas: 9

7 Ago 2024

VictoriaPortos

Resuelto

Macro que abra consecutivamente los nombres de una lista desplegable

Respuestas: 23

24 Ago 2024

Luisito66

Pregunta

Lista Desplegable con Macro

Respuestas: 3

5 Jul 2024

Erik Lopez

Resuelto

Crear funciones que retorne un lista desplegable

Respuestas: 6

5 Jun 2024

farzante

Pregunta

Macro lista desplegable en automatico

Respuestas: 6

25 Feb 2024

FGV

Resuelto

Lista desplegable condicionada

Respuestas: 4

11 Ene 2024

Damian Pellegrini

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba