Necesito crear un programa para mostrar los números primos inferiores a un número siendo N un número entero positivo mayor que uno. Implementar el programa en un USERFORM que vaya colocando los resultados de los numeros primos en el excel en columna, a partir de una celda seleccionada por el usuario. Se debe colocar un boton en la hoja que llame a la .Por ejemplo, los números primos menores que 50 son: 2, 3, 5, 7, 19, 23, 29, 31, 37, 41, 43. Si N=50, el programa debería imprimirlos en columna a partir de la celda seleccionada. Un procedimiento clásico para hallar todos los números primos menores que un entero positivo es la llamada criba de Eratóstenes. Lo que se hace…

Buenas tarde tratando de acoplar a un archivo de auto filtro me quedo con la sorpresa que me manda un error al momento de ejecutarlo revisándolo y viendo que el código es el correcto no logro encontrar cual es el error Public Ruc As Double Public Nomclien As String Public Articulo As Double Public Descripcion As String Public Unidad As String Public Cantidad As Double Public Familia As String Public Documento As String Public fecha As Date Public fecha2 As Date Public CodFam As Integer Private Sub DTPicker1_Change() If Not IsNull(DTPicker1.Value) Then _ fecha = VBA.Format(DTPicker1.Value, "mm/dd/yyyy") super_turbofiltro_GP End Sub Private …

Hola, quisiera saber si es posible colocar en alguna parte de un documento la IP externa del equipo en el cual se utiliza dicho documento. Gracias

Hola buenas tardes, el dia de hoy vi un foro en donde marco antonio nos adjuntaba una macro muy util sobre enviar una hoja de un libro de excel en el cuerpo del correo. "CÓDIGO: Worksheets("Hoja1").Activate With ActiveSheet.MailEnvelope .Introduction = "Te adjunto la información que me solicitaste." & vbCrLf .Item.To = "username@server.com" 'Destinatario .Item.Subject = "Asunto" .Item.Send 'Enviamos el e_mail End With End Sub" este codigo me presentaba un problema y es que me arrojaba un error cuando lo corria por segunda vez, me tocabab cerrar el archivo y volverlo a abrir para que funcionara, esto lo corregí guardando el libro una vez finalizada la macro,…

Hola: Sub ColorearMeses() For i = 1 To 12 Cells(1, Columns.Count).End(xlToLeft).offset(0,1).Offset(0, -i).Select ActiveCell.Interior.ColorIndex = 4 Next i End Sub[/CODE] Esta macro recorre las columnas de una fila hacia atrás (izquierda) rellenándo cada celda con el color indicado. Pero todas quedan del mismo color. Quisiera que cada celda la rellenara alternativamente con dos colores más, por ejemplo (6 y 44). Es decir: para i = 1, color =4 para i=2, color =6 para i = 3, color = 44 para i = 4, color [b]4 [/b](se repite el ciclo), El archivo está como quiero que quede. Saludos. Color.rar

Buenas, Actualmente estoy haciendo una macro, y estoy trabajando con su base de datos. Un amigo me mostro que podía hacer una base de datos con google drive pero la misma solo registra el tiempo y fecha en la cual se subieron los datos (esto lo hace solo). Quisiera saber si alguien tiene experiencia en el asunto y me ayuda con los códigos a ver qué hago mal. Gracias de ante mano. Dim resultado As String Dim url As String, datometodopost As String Dim winhttpsolicitud As Object Set winhttpsolicitud = CreateObject("WINHTTP.winhttprequest.5.1") url = "https://docs.google.com/forms/d/1PJ2RzhSLjli6VQthfnO_2W3ydw7qmc6KXI2N1bIRmFA/formResponse" d…

Buenas, Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito. Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add. Adjunto la macro que encontré por si sirve de ayuda. Sub GeneraMiniArchivoDeTexto() Dim myfile As String, mytexto As String myfile = ThisWorkbook.Path & "\" & _ Cells(Selection.Row, "a") & ".txt" If Dir(myfile) <> "" Then Kill myfile mytexto = Cells(Sel…

Buenas a todos, acudo a su ayuda para intentar terminar una macro en la que llevo comiéndome la cabeza bastante tiempo. Resumiendo, lo que intento es hacer una hoja de firmas de profesores, en la que según los horarios de cada profesor, donde tienen clase o alguna actividad la casilla quede en blanco con la intención de que firmen y donde en su horario no tengan clase pues aparezca una X para no firmar. Por tanto, la planilla sería diaria, para firmar cada día de la semana, de manera que según el día seleccionado en la lista desplegable de la hoja "HOJA" del Archivo principal "MACRO FIRMAS", la macro abra los archivos de los horarios de los profesores, que se en…

Buenas tardes Quisiera saber como podria agregar una columna en un listbox donde pueda digitar cantidades segun la lista de materiales que aparecen en el listbox... EL formulario aparece al hacer click en el botón "Liquidación de Materiales" Gracias por la ayuda. Sistema de Inventarios.xlsm

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

Hola buen día.. Necesito una macro que me haga lo siguiente Tengo un textbox5 dentro de un formulario cuyo contenido lo arroja en la hoja activa, al darle aceptar, este contenido del textbox5, se completa al seleccionar en un listbox que extrae de una base de datos (Hoja27), es decir de otra hoja...hasta ahi todo funciona...pero como puedo hacer para que al ser diferente el contenido del textbox5 pueda yo corregir en este, y me lo pueda reemplazar en la base de Datos?...cuyos datos se encuentran el la columna F a partir de la fila 2 de la hoja27 ActiveCell.Offset(0, 1).Select ActiveCell = TextBox5--------------------- 'Esto si funciona sin problemas en…

Muy buenas foro. Tengo un libro con 2 hojas de operarios internos y externos que se llama "Prueba General". Lo que quiero es traspasar todos los datos de las filas a otra hoja según el operario (TO, GA, OR, JP, MJ, ..) para que cada uno rellene las columnas AN, AO y AP, de su hoja particular y, posteriormente, se actualice en "Prueba general". Las iniciales de los operarios están en la columna D. La hoja "TO" que adjunto está copiada. Espero haberme explicado bien. Gracias por adelantado. TO.7z prueba general.7z

Hola estimados, aqui nuevamente solicitando ayuda de esas magicas..que uds. tienen les comento tengo textbox1(donde ingreso fecha de recepcion factura ); 1 combobox ( que es para seleccionar dias) y y textbox2 ( que es donde automaticamente debe cargar la fecha de pago, segun la cantidad de dias seleccionado ) por favor, no es flojera sino el no saber..uds. podrian a yudarme con la sintaxis atte. Milton fecha de pago.xlsm

Buenos días, A ver si alguien me puede ayudar con esta macro : Lo que necesito es poner la ruta que hay + todas las subcarpetas que hay después de \2019 Pedidos\..... y no se como hacerlo, Gracias de antemano Sub Proceso_hipervínculo_al_pedido() Ruta = "\\192.169.11.18\RecursosCompartidos\ADMINISTRACION-VENTAS\Interdepartamental\2019 Pedidos\" parte = ActiveCell.Value Set fso = CreateObject("scripting.filesystemobject") Set carpeta = fso.getFolder(Ruta) For Each archivo In carpeta.Files If archivo.Name Like "*" & parte & "*" And Right(archivo, 3) = "pdf" Then Shell "C:\Program Files (x86)\Adobe\Acrobat D…

Buenas Dias, tengo el siguiente proyecto, en el cual con la busqueda de un dato me arroje todos los datos que concueden. detallo en la base de datos se encuentra la placa de los autobuses atendidos, con su numero de ticket o orden de servicio, motivo del daño y solucion proporcionada. entonces en una de las busquedas esta que ponga la placa y me muestre todas las atenciones que recibio el bus. adicional si coloco el numero de ticket realice lo mismo, o si coloque el estado del ticket me muestre todos los que estan con el mismo estado. como dato de referencia, cada placa puede tener hasta o mas registros y es necesario que se muestren todas las atenciones. …

Buenos días a todos. He creado un Excel y un formulario de visual basic para guardar datos diarios. Os explico, En la primera columna he puesto los datos que necesito (Temperatura, ph, cloro...) y en el resto de columnas las fechas (01/01/2020, 02/01/2020...) He creado el formulario de visual basic y lo tengo hasta que me lo guarda en la segunda columna (que sería, por ejemplo el 01/01/2020) Lo que necesito ahora y no consigo de ninguna forma, es que cuando vuelva a registrar otros datos me lo guarde en la siguiente fecha o en la fecha que yo quiera. Es decir, si añado un combobox en el formulario con todas las fechas, si selecciono 02/03/2020, por ej…

Buenos días, soy bastante novato en programación y tengo un problema, no consigo ver las listas en el Combobox del Formulario. A ver quien me puede echar una mano. Gracias.prueba.xlsm

Buenas tardes. Queria saber si habra alguna forma de indicarle al userform que se ubique en una posicion especifica. Voy a tratar de ser mas explicito, el userform en este momento se ubica en el centro de la pantalla, mas yo quiero que se ubique en la misma posicion centrada, pero unas lineas mas abajo. Es decir, debajo de la celda 7, pero centrado. Dejo una imagen que vale mas que mil palabras. Agradecido de antemano por vuesta ayuda

Estimada red, espero me puedan ayudar con esto: Tengo un formulario desde el cual puedo agregar datos a una hoja de Excel se compara la celda Nombre "Hoja14.Cells(j, 2)" con el TextCLIENTE. Si cliente NO esta registrado, lo registra y agrega los datos. Pero si el cliente ya esta registrado quiero que lo modifique con los nuevos datos asignados El código que tengo funciona para registrar un nuevo cliente. EL PROBLEMA SURGE AL MOMENTO DE MODIFICARLO (SI SE MODIFICA) PERO TAMBIEN LO AGREGA. Este es el código que tengo: Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim Final As Integer Dim F…

Hola chicos, no sé por qué razón dentro de mi módulo de login cuando introduzco mal la contraseña una vez, se repite el mismo proceso dos veces... Cuando introduzco mal la contraseña dos veces, se repite el mismo proceso tres veces... Cuando introduzco mal la contraseña tres veces, se repite el mismo proceso cuatro veces, y así sucesivamente... Adjunto el fichero para que lo echéis un ojo. Las contraseñas son: programador@email.com > "asdfg" administrador@email.com > "zxcvb" Por favor, cualquier aclaración por vuestra parte me sería de muy grata utilidad. Saludos. PRUEBAS.xlsm

buen día comunidad me gustaría aclarar una duda si es posible realizar y/o modificar datos de una columna sin que se tenga que registrar en una hoja primero para poder visualizar el dato en un listbox llevo dias tratando de realizar esta consulta no lo e logrado lo que me gustaria ver en el listbox sin insertar en una hoja el dato modificado de una caja de texto, que quiero decirlos datos estan cargados en el listbox con un control de busqueda tipo texto carga el listbox con otro textbox quiero colocar un dato numerico y este a su vez cambie la columna 4 del listbox realizando una suma o la operacion matematica que quiera implementar y se visualize en el listbox es decir …

Buenas noches, No sé casi nada de programación en vba comparado con lo que he visto, tengo un error en la ejecución y no consigo adivinar cual es, simplemente quiero extraer datos de una tabla entre dos fechas, si es posible que alguien me ayude. Gracias y un saludo. busqueda fecha.xlsm

Hola a todos: En el trabajo diario tengo que estar revisando varios documentos o archivos, muchos de estos son PDF. es una revisión visual. Y así con todos los que tengo en una carpeta y van cambiando. Manualmente tengo que estar abriendo cada archivo y cerrarlo. trato de automatizarlo algo asi. Con una macro en Excel he puesto el nombre de los archivos pero con un hiperlink para poder abrirlo con la ruta del archivo. en la celda mostrando solo un nombre que requiero. esto funciona bien. Pero con ayuda de otra macro mi idea es visualizar todos esos PDf que listé en mi hoja de Excel. Con la siguiente macro he podido abrir el archivo selecc…

Saludos amigos Estoy obligado a desarrollar algo conVB de E-2007, y comencé a chocar con algunas cosas que me obliga a molestarlos para intentar resolverlos. La máquina que uso para el desarrollo, tiene WXP y sólo E-2007, ni rastros del 2003. Caso 1 Estaba probando y salió un enorme cartel que comenzaba diciendo, “Microsoft Office Excel detectó un problema y debe cerrarse…”,… se cerró y se activó la restauración del libro. El mismo cartel salió en otras ocasiones donde yo no estaba haciendo pruebas, tan sólo estaba mirando la pantalla pensando en como resolver algo. También apareció en la PC donde correrá lo que estoy haciendo,… apareció solito, no se estaba usando…

Con los buy buenos dias a todos , les manifiesto que me gustan mucho las macros, pero conozco muy poco de ello y estoy grabando una macro donde estoy sumando las celdas AR5 + AS5, o sea las columnas 44 y 45 Fila 5 y la furmula en la macros la siguiente: FormulaR1C1 = "=R[1]C[-9]+R[1]C[-8]" como se interpreta esa formula, que significa el signo menos antes de los Nros 9 y 8 y por que si estoy colocando la formula en la celda BA4, la macro hace referencia al rango BA5. Les adjunto la macro motivo de mis preguntas. Cordial Saludo y agradecimientos Sub SUMARMANOS() ' ' SUMARMANOS Macro ' ' ActiveCell.FormulaR1C1 = "=R[1]C[-9]+R[1]C[-8]" Range("BA5").Select End Sub