Hola amigos, estoy haciendo un trabajo y necesito que unos valores que están en el rango(a:a) de la página 1 de mi libro, se copien en los labels de un formulario para realizar una posterior factura. Os adjunto una imagen con el problema en concreto, a ver cual es el fallo, porque me estoy volviendo loco ya jeje. He probado ya poniendo Label1.text=range(x).text y tampoco me ha servido. Gracias de antemano. Un saludo.

Tengo un formulario el cual contiene un textbox y un ListBox. En el cual quiero que mediante una busqueda en un Textbox, se visualize en el ListBox la busqueda. 1.- Quiero que busque mediante ingresando un Sistema Origen(Ejemplo S500,S404...) que existen desde la Fila A5 y me visualize en el data Grid. 2.- Que el ListBox tenga 9 datos de la hoja de Excel CA-PRO-INS (Esta parte creo la entiendo pero ocupo la parte 1 para probar si esta bien, si se puede Gracias) Informacion Columna Sistema A, Proceso V, Bin B, Segmento E, Producto C, Instrumento D, Segmento N, AcountType O, DescripcionLarga H. Gracias de antemano Adjunto el archiv…

Buenas tardes: Trabajo con varias hojas donde cada una tiene nombre y una hoja menu donde esta una lista de todos de nombres de las hojas de calculo, con este código : Sub Ir_a_kardex_tkt() ActiveWorkbook.Sheets(Range("s2").Value).Activate Range("A1").Select End Sub Voy a la hoja correspondiente, pero según el valor de la celda S2, como puedo hacer para que a cualquier celda que seleccione vaya a la hoja correspondiente?? Gracias y saludos cordiales Jesús

Buenas tardes, expertos para decirlo que recurro a su ayuda tengo una aplicacion en una hoja cuando pulso el boton buscar me muestra la ventana de inputbox para ingresar el codigo y buscar, pero que pasa cuando lo cancelo y/o pongo un codigo erroneo o que no exista no sale va buscando en toda la hoja y se repite muchas veces y no hay cuando terminar. Por favor si me pueden apoyar en que estoy fallando. Adjunto el archivo. Grupo 5_Holiday Inn Lima Airport Room Division Management (1).xlsm

Buenas noches colegas. Espero se encuentren bien todos. Tengo un pequeño problema; A partir del numero de identidad (para otros países creo que es RUP) yo extraigo la fecha de nacimiento, y calculo la edad de cada trabajador, pero me da un "desfase" con fechas que comienzan a partir del 2000. =FECHA(VALOR(EXTRAE([@[C. Identidad]];1;2));VALOR(EXTRAE([@[C. Identidad]];3;2));VALOR(EXTRAE([C. Identidad];5;2))) Fecha para hallar la edad =AÑO($A$2)-AÑO([@[FECHA NAC.]]) Pueden ayudarme a definir o corregir este problema? Y si no fuera mucho pedir, me gustaría hacer esto desde VBA y evitar fórmulas o funciones en la hoja de cálculo. Gracias de ante…

Hola chic@s, Después de unos largos intentos fallidos, no me queda otra opción que buscar ayuda alguna alma caritativa Detallo lo que intento hacer con la macro, solo he conseguido que lo haga en la hoja activa pero no me recorre todas las hojas del Workbook. - Cada hoja tiene una tabla con unos datos. Necesito eliminar todas las filas de cada hoja desde B4 hasta lastrow -1 (la b3 tiene que quedar intacta, cosas de otra macro que tengo linkeada) y mostrar ese lastrow en la B4. - Las hojas llamadas "Balance..." deben excluirse en la macro ya que no hay datos en ella que eliminar. - Necesito dejar la última fila con datos de cada tabla en la B4 e insertar ta…

Tengo un fichero donde la primera columna es la fecha (dd/mm/yy h:mm) Los datos son tomados cada minuto. Necesito que solo aparezca los datos correspondientes a cada 10 minutos, eliminando las filas que hay entre ellos. ¿como hacerlo? incluye fichero datos. Eficiencia_aviavi.xls

Buen día. Estimados miembros del foro. Solicitando su ayuda para desbloquear el proyecto de VBA de una macro de excel de la cual no conozco el password. Conozco el password de los libros contenidos en ella pero al querer desplegar los libros ya que se encuentran ocultos desde VBA el password que tengo no funciona. El password de los libros es Fluids_Scorecard Trate de adjuntar el archivo pero no me lo permite por el tamaño. Mi correo es par_meno en live.com De antemano agradezco su apoyo.

Hola!, les cuento que tengo una base de datos en excel que consiste en un libro compartido, esta es abierta por medio de otro libro excel que contiene macros para abrir, modificar, guardar y cerrar el libro compartido. El tema es... que cuando está cerrando el libro compartido aparece el siguiente mensaje.. "La siguiente acción quitará el uso compartido del libro, ¿Desea quitar el uso compartido? Si, No...", Quisiera saber si hay forma de que este mensaje no aparezca o bien, que se haga click en "No" automáticamente por código. La idea de modificar un libro compartido es que siempre este compartido no? Saludos y espero vuestra mano amiga. NombreArchivo = "Z:\Preciosv…

Hola que tal, Tengo el siguiente código que me ayuda a exportar una columna cada 100 filas y guardar lo en una carpeta en formato .txt pero cada vez que exporto al final de la línea 100 se agrega un espacio en blanco, me pueden ayudar a quitarlo y que solo queden las 100 líneas que necesito. Adjunto código: Sub ExportarTXT() Dim mPath$, iniCell$, i&, LR&, Vec, j%, iniTime!, R% iniCell = "$G$2" iniTime = Timer mPath = ThisWorkbook.Path & "\Txt\" With CreateObject("Scripting.FileSystemObject") On Error Resume Next: .GetFolder(mPath).Delete True: On Error GoTo 0 .GetFolder(ThisWorkbook.Path).subFolders.Add "Txt" End With LR = Cells(Rows.Count, R…

Hola buenas,un saludo a todos. No logro con esta macro que tengo que me funcione bien, me la hizo un amigo y ahora está muy liado. La macro consiste en base como prioridad en buscar los números de hoja RESULTADO en Y buscar la coincidencia en T coger los números de la misma fila y hoja de H,I y reflejarlos en Q3:R16 y como refleja ahora la macro máximo 8 filas. Si para completar las 8 filas de Q3:R16 los números de Y no fuesen suficientes con T la macro seguiría buscando en T de menor a mayor o sea desde 0, 1, 2,3 ect… hasta completar las 8 filas de Q3:R16. Los números no serán siempre iguales en Y, T y en T pueden estar repetidos en Y no lo estarán nunca. Los dato…

El Código que adjunto no funciona Código suma no funciona.rar Código suma no funciona.rar

hola expertos algun codigo que me copie y pegue los datos de la hoja estadistica a la hoja archivo consecutivamente como se muestra en la hoja estadistica-descriptiva.xls

Buenas noches!Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto) con este lo que se pretende es insertar la formula buscarv en las celdas de las columnas(A,B,C,D,F) en base al valor de la lectura de código de barras (TxtCodigodeBarras_) del formulario (fmrfact) y este valor es colocado a partir del rango G16 hacía abajo. El ingreso de lector del código de barras parece trabajar bien, pero al querer insertar las formulas para traer los datos de este código solamente lo hace con la fila 16, los valores de la búsqueda se obtienen de la hoja BD.Código vba: Sub convertir() On E…

Tengo una plantilla donde quiero introducir valores según los criterios que yo seleccione yo se que se puede hacer con funciones como índice y coincidir pero yo quiero evitar formulas en la tabla de datos de mi hoja 2, por esta razón me gustaría que fuera con macros en modulo o en formulario. EJEMPLO: Si selecciono prod1 y octubre criterio igual a la "cantidad producida" el valor que introduzca en la celda cantidad pase a la hoja 2 en la comuna Cantidad producida y posición Prod1 y octubre. Si selecciono prod1 y selecciono octubre y criterio igual a "perdida en proceso" el valor que introduzca en la celda cantidad pase a la hoja 2 en la columna perdida en proceso y pos…

Hola! Por favor su ayuda para realizar una macro que me genere automáticamente una taba dinámica con la información del hoja"BASE DATOS". necesito que en el reporte se muestre la fecha de la factura, que se agrupe por número de proyecto, luego por proveedor, y que en cada proveedor se muestren las facturas que se han ingresado, las facturas deben aparecer con el monto y su fecha y además que totalice por proveedor y total general por proyecto. Adjunto el documento. Me pueden ayudar por favor?. realmente me urge. Muchas gracias y saludos. Control de facturas v.3 final.xlsm

Buenas he estado buscando la forma de hacer una consulta WED desde la pagina de SUNAT donde segui los pasos de la pagina de youtube de excelnegocios, bueno mi consulta es q si coloco: Set Nombres = IE.Document.getElementbyId("f5_cspm") Rpta = Nombres.InnerText donde si me sale la respuesta por que tiene un nombre Mi consulta es en la linea: <td width="30%" height="15px" class="bgn">La Boleta de Venta Electrónica B001-12414 ha sido informada a SUNAT</td> Como podria o que funcion podrian sujerirme para tener esa linea como respuesta. Me ayudarian bastante la verdad en darme luces para poder realizarlo. Les adj…

Hola amigos de excel tengo un inventario que el sr. antoni me ayudo con el codigo para hallar el stock. estaba modificando para hallar el resultado deseado pero no he podido ya que mis conocimientos de vba son limitados. yo lo hago con formulas, pero me gustaria que sea automatico ya que estar copiando y pegando formulas es algo estresante ya que varia los rangos y puse 4 de ejemplo pero en realidad es mucho mas. deje el antes y despues de como quedaria lo que busco espero que se entienda. muchas gracias por su gentil ayuda de antemano. PRUEBA.xlsm

hola amigos buen dia construyo una base en acces que se alimenta a traves de un formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao, Call conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable End With For a = 1 To 130 If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then combo1.Add CStr(rs.Fields("FACTURAPOST").Value) End If rs…

buen día compañeros, en el excel adjunto, necesito que por cada nombre me filtre solo lo de ese nombre y me lo ponga en otro archivo a parte con dicho nombre. Es decir, si en el listado se encuentra Eliana, me haga filtro con ella, me copie solo la información de ella, me lo pegue en otro archivo y me lo guarde con el nombre Ejemplo.xlsx

Hola saludos. alguno que tenga alguna hoja excel con macros para hacer prorrateo. para tener una idea como se hace.

Buenos días a todos , agradecería su ayuda con el siguiente tema Lo que pasa es que vi esta consulta [sOLUCIONADO] Editar datos desde un ListBox | Ayuda Excel que realizo el señor Macro Antonio en la cual decía como eliminar un registro desde un listbox de búsqueda, que era justo lo que yo estaba necesitando, pero en el momento en que adapto el código para mi archivo me sale un error y la verdad no he podido dar con el problema. A contonuacion relaciono el link donde se encuentra el archivo: Dropbox - Eliminar Registro ListBox.xlsm Alguno me podría asesorar para saber cual es el problema por favor. Muchas gracias

Hola a Todos, Tengo un textbox con el siguiente codigo: Private Sub TextBox39_AfterUpdate() TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox39 = Format(TextBox39, "$#,##0.00") End Sub Private Sub TextBox39_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) sCar = Chr(KeyAscii) If sCar = "," Then KeyAscii = IIf(sDecimal = ".", 46, 44) sCar = Chr(KeyAscii) If (InStr(TextBox39, sCar) > 0) Then KeyAscii = 0 Exit Sub End If ElseIf InStr("0123456789." & Chr(8), sCar) = 0 Then KeyAscii = 0 Exit Sub End If End Sub Al momento de ingresar el dato, es conforme, por ejemplo $ 5,749…

Queria ver si me puede ayudar para ver como puedo encontrar las diferencias entre la hoja1 y la hoja2 de Excel del archivo que adjunto, muchas gracias por su ayuda de antemano. Las hojas tienen aproximadamente 4 mil filas, le tuve que quitar ya que por espacio no me dejaba subirlo. comparar.zip

Buenos días; -Tengo creado una macro Excel y una base de datos Access. Lo que me gustaría conseguir si es posible es lo siguiente: Hacer una consulta a una tabla Access según el valor de una celda Excel y que el resultado obtenido me lo aloje en otra celda adyacente. Adjunto macro de ejemplo. Saludos y buenas tardes o días a todos. MConsulta.zip