Muchas gracias por el vídeo, estoy viendo y de verdad muchísimas gracias, este esta completo, No soy profesionista ni ocupo el generar archivos grandes, pero me intereso por un hobby en especial que no pude hacer en Access, me recomendaron Excell y me tope con este, la verdad mucha dedicación y el tiempo que invertiste, voy estudiando en los ratos que descanso, pues soy conductor de un camión de pasajeros.
jose de Jesus Briseño Me alegra mucho que estés aprendiendo con este material. Eres una persona hambrienta por aprender y eso yo lo admiro muchísimo. Bienvenido al canal. Saludos!!!
Felicidades Otto, por tus videos didácticos sobre Excel y VBA. Están muy bien hechos, muy bien explicados y son fáciles de comprender. Gracias por compartir.
Maestro, gracias por compartir sus conocimientos, tengo el deseo de conocer este programa y después de revisar muchos videos, los suyos me parecieron los indicados para emprender la aventura de conocer un poco más de Excel. Que Dios le bendiga por su altruismo.
Muchas Gracias por los videos !!! son de gran ayuda, soy nuevo en el tema y estoy trabajando en unos proyectos. Muchas gracias de vuelta y espero mas videos :)
Buenos días desde Tenerife (Canarias-España), y muchas gracias por las explicaciones y poder compartir tus libros. Me ha resultado fácil comprender tus comentarios y la verdad, aunque existen miles de referencias enseñas redes, las tuyas son las que mas me han sido útiles. Gracias. Aprovechando de tu disposición quisiera hacerte una pregunta "¿ En un cuadro de texto, puedo programar una máscara de entrada ? por ejemplo una fecha "../../.." o número de teléfono "###.###.###". Gracias y enhorabuena de nuevo.
Muchas gracias, sus cursos seran de gran ayuda, programo en C# pero no podemos instalar bases de datos SQL en nuestro trabajo, asi que busque algo asi para hacer reportes y bases con Excel y me encontre su exelente curso, Desde ya le sigo, Saludos.
Muchas gracias por este vídeo , la verdad me fue de gran utilidad , todo me funciono a la perfección....bueno una cosa mas quisiera saber si tienes algún vídeo donde expliques como eliminar mas de un registro, lo intente en una opción de las propiedades del listbox pero cuando intento eliminar solo lleva a cabo el proceso sin arrojar ningún error pero los registros que seleccione no se eliminan...saludos
Buenos dias Otto, gracias por tus valiosos apuntes, necesito de tu conocimiento en los siguientes temas: 1. Como realizar vista preliminar del formulario que se quiere imprimir (Formulario, no libros ni hojas) 2. como imprimir un formulario con todo su contenido y que después de imprimir, guarde la información en una hoja de excel que contiene la Matriz con toda la información. 3. como crear una copia del formulario que se esta imprimiendo en PDF Gracias
Hola Otto, esta muy buena su explicación y entendible. En mi caso necesito crear un botón para imprimir unas celdas determinadas, ¿cual seria la función que debo ingresar en visual Basic para poder hacerlo? me serviría mucho! espero su respuesta, saludos desde Argentina.
+Lucas Garcia Buen Lucas, no entiendo si quieres decir celdas o un rango, si es por celdas creo que no se puede, pero si es rango entonces te puede servir esto: Serviría si el rango es fijo, tu decides que rango quieres imprimir. ActiveSheet.PageSetup.PrintArea = "$B$2:$K$20" Selection.PrintOut Copies:=1 Pero si quieres que sea variable, serial algo así, el usuario indica que rango quiere imprimir: ActiveSheet.PageSetup.PrintArea = Selection.address Selection.PrintOut Copies:=1 Saludos.
Excelente pedagogía para explicar, lo felicito, soy un nuevo suscriptor, estoy utilizando su formulario avanzado 2013, quisiera añadir un campo de captura de datos en la parte final, debajo de Email. que debo hacer para que cuando le de a enter pase para en otro cuadro de texto que quiero anexar y luego pase al botón Agregar/ Modificar. GRACIAS
Gracias, todos sus videos muy bien explicados,,, estaba viendo el video 31, si me pudiera resolver la siguiente duda: yo esto en la celda Range("d2"), y en esta celda quisiera usar la funcion contar.si,,,,, esta funcion te pide un rango y te cuenta en base a un criterio(rango),, pero en mi caso este rango es variable... (d3 : d41) algunas veces puede aumentar y en otras disminuir,, cualquier ayuda se lo voy a agradecer.
Hola Otto, Mil felicitaciones por tu talento para enseñar y todo mi reconocimiento y gratitud por compartir lo que sabes. Tengo un gran problema que yo creo que para ti es minimo, como podria restar cantidades de la columna A con las respectivas de la B, aplicarles la funcion ABS y sacar el MINimo de las diferencias y ademas aplicar la funcion SI con BUSCARV sobre esas columnas, pero todo esto en una macro. Lo puedo hacer manual, pero no logro automatizarlo, me lo podrias decir? Muchisimas gracias de antemano. graficamente seria mas o menos asi: COLUMNAS: A-B=C en D (ABS de C), en E (MIN de D) en F SI(A>0,BUSCARV(....)
Ese es el problema, activo grabar macro y al irlo haciendo todo sale bien, pero al correr la macro, aparentemente con los mismos pasos, sale error y no hallo la razon , lo que quiero es ver si con tu experiencia, me pudieras dar un tip de donde se genera dicho error. Gracias
cordial saludo, excelentes videos, gracias por compartir tus conocimientos. me surge la pregunta de como colocar una barra de desplazamiento en el formulario.cuando este es muy grande y no se logra ver todas las opciones colocado en el formulario, utilizo las opciones scrollbart y keepscrollbart, pero no se como colocar el codigo para que funcione. gracias por tu ayuda.
Muy buen aporte gracias, tengo una consulta como hago para colocar datos en un comboBox y al momento de seleccionar uno de la lista, este se vaya a una determinada celda que seleccione. gracias.
Amigo Gonzales, un saludo desde Perú, de antemano agradezco el conocimiento que comparte con la comunidad de TH-cam, tengo una consulta ojala me puedas ayudar. Cuando uno graba una macro con el editor, y luego quieres ejecutar dicha macro grabada, esta solo trabaja la cantidad de registros que tu grabastes, asi estos sean nuevos registros, siempre la macro edita o trabaja tu macro grabada en base a la cantidad de registros que editastes. Ejemplo: Tengo una mini base o una tabla con 10 registros y como siempre los edito para darle presentación, decido grabar la macro. pero da la casualidad que mi base creció, ya no son 10 registros, son 20 o 30 etc y le doy ejecutar la macro, solo va a editar los 10 campos que en un inicio grabe, el resto los deja igual. como puedo hacer para grabar una macro y que esta me trabaje la nueva cantidad de registros. Estaré atento a tu ayuda, Saludos,
Me gustó mucho el video, pero tengo una duda, ¿puedo manipular varios libros al mismo tiempo? Es decir, ¿añadís un registro en un libro Excel y que, de cumplirse una condición, también se añada en otro libro que no esté abierto? Saludos
***** Vale, ya capte, tengo otra duda, ojalá pudieras ayudarme, yo no se nada de Visual Basic, yo sé programar en Java y algo en C, pero necesito hacer un programa para manipular Excel y eso que es más sencillo desde Visual Basic. Esos códigos los realizas desde dentro del Excel, pero yo necesito hacer una aplicación que corra sin necesidad de entrar al archivo Excel, ¿la sintaxis que utilizas en tus tutoriales seria la misma si realizó la aplicación fuera de Excel?, o cambia Saludos
Hola Otto. Oye habilite el DESARROLLADOR en mi tablet pero no me aparecen los comandos de la ventana como Ti y no puedo hacer los ejemplos que explicas. ¿Me podrias ayudar a configurar el DESARROLLADOR, Por Favor? Me gusto mucho tu explicacion. Saludos
señor Otto como esta espero que bien me gustan sus vídeos ya soy suscriptor suyo pero tengo mucho problemas con la macros y no se que hacer me puedes ayudar
Hola O Javier, descargue una macro para abrir un archivo de Word, cuando la modifique dejo de funcionar. La línea de conflicto es < Set oarchivo = GetObject(strPath) > (en la original una línea anterior se definía < Const strPath = C:\tarea.docx > y funciona correctamente). En la modificación defini strPath como string y agregue la línea < strPath = “C:\tarea.docx”
como pasas datos de un formulario a otro, o sea, lo capturas se graba en la hoja1 y al mismo tiempo abres otro formulario con ese dato digamos numero, nombre y apellidos de empleado.
Hola Saludos, me han gustado mucho tus vídeos te felicito, una pregunta no encuentro el vídeo No. 5 Creando una Función Parte 1 VBA Excel 2013 donde puedo buscarlo? Gracias
Gerardo Arturo Flores Ibarra Buenos días Gerardo, Gracias por informarme. Tuve un problema con ese vídeo y fue eliminado de TH-cam. Ya resolví pero TH-cam me dice que no me lo puede restaurar. Lastimosamente yo perdí el original, sin embargo lo volví a hacer y ya lo resubí. Aquí está el enlace: th-cam.com/video/CpgKN_CEMlI/w-d-xo.html Saludos!!!
Hola!!! oye, tengo un archivo en mi trabajo en el cual tengo que ir generando una base de datos y posteriormente con esta voy generando unos reportes, pero una informacion tiene que estar en el encabezado y otra en el cuerpo del reporte... como le puedo hacer para que con una macro se pueda generar el reporte y tambien modificar la parte del encabezado??? saludos y gracias por compartir tus conocimientos...
Otto, Buena tarde. Te agradeceria me pudieras colaborar con el codigo visual basic 2013 Excel para bloquear un archivo en una fecha determinada, o como podria hacer que Visual Basic haga una formula "SI la celda A1 es < a 0" Bloqué el archivo. Gracias, Saludos desde Bogota, Colombia !!
Muchas gracias por el video, tengo una pregunta: ¿es lo mismo vba de Excel y vba de Access? o sea se puede utilizar indistintamente en un programa u otro con los mismos códigos?
Ariel Alberto En la mayoría del código posiblemente sí, pero hay muchas variantes ya que cada aplicación tiene su propio entorno de programación. Recuerda que se manejan librerías para cada uno. Si quieres programar algo de Excel en Access, tendrás que crear objetos declarados para Excel. En fín cada uno tiene lo suyo propio, pero sí se pueden interactuar entre sí.
Hola Otto fijate que cuando creo el boton siguiendo todas tus instrucciones me aparece un error con lo siguiente "Microsoft Map ya no es compatible con Microsoft Excel" o sera la version tengo Microsoft Oficce 2013 Professional Plus pero la version SP1 Update Mayo 2014.
Buen dia señor Otto, mi situación es la siguiente, tengo un userform al cual necesito que mediante un botón me genere un reporte en un libro de excel nuevo, los datos se deben sacar del libro "Vpresencial" de la hoja "Datos", he visto muchos videos pero no logro encontrar uno que se haga ese reporte desde VBA, los que he visto se hacen de excel a excel pero directamente. le agradezco su pronta ayuda.
+luifernando43 Estos dos vídeos te pueden ayudar: 1. th-cam.com/video/j5hXb3X00QE/w-d-xo.html 2. th-cam.com/video/K-rl3jQmbgg/w-d-xo.html Aquí lo que hago es tomar los datos de la hoja en el libro actual y los envío a un libro nuevo con formato y todo. Puedes tomar esa parte del código como ejemplo, para adaptarla a tus necesidades. Saludos!
william parada Podríamos decir que sí. PERO, cuando llegues a un punto avanzado tendrás problemas de incompatibilidad, ya que la versión 2013 no es compatible con la 2010 en alguna de las sentencias empleadas.Saludos!!!
Buenas noches Otto. Tengo una duda a ver si me puedes ayudar. Me ha pasado un par de veces una en el trabajo y otra en casa. Tengo una macro que me funciona perfectamente a la que tengo vinculado el atajo Ctrl+Mayusc+A. Modificando la macro este atajo a dejado de funcionar. Lo quito lo vuelvo a poner y nada, se oye un sonido como que está bloqueado ( como cuando clickeas en una celda teniendo una ventana modal ). En cambio si creo una macro nueva y le vinculo este atajo funciona perfectamente. ¿Sabes a que se puede deber? ¿ Y como solucionarlo?. Te paso la macro por si sirve de algo ( es un poco larga disculpa ). Simplemente reemplaza y un par de arreglos Muchas gracias de antemano. Sub Reemplazo() Dim RangoFecha As Range Dim Celda As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set RangoFecha = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
For Each Celda In RangoFecha Select Case Celda.Offset(0, 1) Case "Anna" Celda.Offset(0, 1).Replace What:="Anna", Replacement:="AnnaP", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "Alessia" Celda.Offset(0, 1).Replace What:="Alessia", Replacement:="AlessiaR", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "Domenico" Celda.Offset(0, 1).Replace What:="Domenico", Replacement:="DomenicoC", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "Lucia" Celda.Offset(0, 1).Replace What:="Lucia", Replacement:="LuciaF", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "Mattia" Celda.Offset(0, 1).Replace What:="Mattia", Replacement:="MattiaF", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "Saverio" Celda.Offset(0, 1).Replace What:="Saverio", Replacement:="SaverioC", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "ValeriaP" Celda.Offset(0, 1).Replace What:="ValeriaP", Replacement:="ValeriaPa", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Case "DattiloS@NOVACALL" Celda.Offset(0, 1).Replace What:="DattiloS@NOVACALL", Replacement:="DattiloS@novacall", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Select Next Celda Columns("B:C").AutoFit With Columns("A:B") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Columns("a:c").Font .Size = 12 .Name = "calibri" End With Range("b:b").Replace What:="-", Replacement:="/", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Range("b:b").NumberFormat = "m/d/yyyy" Rows("2:2").Select ActiveWindow.FreezePanes = True Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select ' Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic
HOLA BUENOS DÍAS , ES UN MAESTRO DE PRIMERA MUY BUENOS VÍDEOS, LO MOLESTO CON LO SIGUIENTE. COMO PUEDO CREAR UNA MACRO PARA OCULTAR COLUMNAS QUE CUMPLAN CON CIERTOS CRITERIOS. ES DECIR TENGO UN ENCABEZADO EN EL QUE DEPENDE SI HAY EVALUACIÓN, SI NO LA HAY ME APARECE UN CERO (0) QUISIERA QUE TODAS ESAS COLUMNAS QUE TENGAN CERO SE OCULTEN Y SOLO APAREZCAN LAS QUE SI TIENEN EVALUACIONES.
Estoy armando una aplicación que ejecute un proceso de otra aplicación. Como puedo obtener el codigo para que haga eso?. Hay algun "grabador" que vaya diciendo el codigo que corresponde o al menos oriente a la acción necesaria?
Buenas tardes tengo una consulta. Como puedo realizar una gráfica (productos vs precios) a partir de un formulario. Agradezco de antemano su respuesta.
Maestro Otto, buenos días: Habrá manera de que me ayude con mi proyecto de captura? Tengo el formulario ya hecho y trabaja sin problema, pero quisiera agregarle 5 cuadros de imagen que al darle clic pudiera seleccionar la imagen desde una ubicación especifica (Tipo Examinar). Me gustaría saber si pudiese mandarle mi proyecto para que lo viera y hacerle los comentarios para ver si se puede agregar dicha función. Desde ya, muchisimas gracias.
hola por favor necesito saber como sacar la diferencia de tiempo ejemplo llega a las 12:30 inicia a las 12:35 termina a las 13:15 tiempo que se demoro en empezar: ? tiempo que se demoro de inicio a fin: ? y total de tiempo que se demoro desde que llegó hasta que termino
tengo una consulta, tengo una libro excel conectado a la B.D que me muestra los datos en un rango en una tabla, la cual paso información a otra hoja para hacer el estado de caja, cree un botón en excel, cuando ejecuto linea por linea me sale todo perfecto , pero cuando ejecuto el botón que esta asociado a la macro, me copia como si no actualizara mi tabla , ojo, cuando hago clic , me conectado a la B.D hace una consulta por fecha y l actuliza, copia y pega en otra hoja , pero me copia una consulta anterior que ya hice y ya pegue cuando hice la primera
Otto gracias por compartir el conocimiento... quería pedir tu consejo... las instrucciones .to y .cc cuando estoy creando una rutina para enviar un correo automático desde Excel abriendo el outlook con Office 2013 no funcionan con las rutinas que tenia en los archivos 2007 y 2010, no he podido encontrar una solución. Sabes que cambios se han dado en la arquitectura? En ThisWorkbook: Private Sub Workbook_Open() Dim f As Date Set h1 = Sheets("Resumen") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If IsDate(h1.Cells(i, "B")) Then f = h1.Cells(i, "B") h1.Cells(i, "E") = DateSerial(Year(f), Month(f) + 2, Day(f)) h1.Cells(i, "F") = h1.Cells(i, "E") - Date If h1.Cells(i, "F") < 11 Then CorreoAuto i End If End If Next End Sub Funciona sin problemas, al arranque revisa la hoja y ejecuta la macro de correo: En el modulo: Sub CorreoAuto(i) Set correo = CreateObject("outlook.application").createitem(0) correo.To = Sheets("Resumen").Range("H" & i) correo.Cc = Sheets("Resumen").Range("I" & i) correo.Subject = "Alerta de vencimiento de revisión preventiva " & Range("A" & i) correo.display correo.send Set correo= Nothing End Sub Esta se detiene por las instrucciones .To y .CC, las he quitado y funciona sin problema, ejecuta un mensaje nuevo de Outlook y lo deja listo con el asunto, pero necesito que sea manual... espero me puedas ayudar.
Kelvo Amador Visutal Studio tiene su apartado para crear aplicaciones de Excel o cualquier otra de Office. Solo que tienes que crear código desde VS y generar desde ahí los proyectos.
señor otto buenos dias quisiera saber si me puede ayudar, necesito enviar un rango de celdas a un correo cada vez que lo desee, tambien quisiera que ese rango de celdas seleccionadas se guarde en una carpeta en el ordenador como PDF gracias.
Estimado Otto, no hago mas que abrir el archivo y me aparece este mensaje... en el compliador de VBA Private Sub UserForm_Initialize() Call OcultarHojas Hoja1.btn_Admin.Enabled = False End Sub Se marca el btn_Admin.... esto me pasa en algunos PC y en otros no... en todos abro el archivo con Excel 2010. Me puede orientar como poder arreglar este problema
bueno dias amigo, como puedo hacer un buscador desde un formulario de visual basic de una caja de texto, que mientras boy poniendo el dato me aparesca los datos o la busqueda automaticamente de los datos que se encuentran en excel, te agradeceria por adelantado si me ayudas otra preguntita amigo y que no he encontrado solucion es si puedo imprimir desde un formulario de visual imprimir una hoja de excel
Buenas noches Maestro Otto, nuevamente le escribo para solicitar ayuda. Ya eh estado trabajando en formulario para un llenado y modificacion de archivos (Tutorial 11) generando un boton de impresion el cual me funciona a la perfeccion... Ahora el detalle es que quiero exportar dicha area de impresion a Word, para lo cual necesito generar nuevo docuemento de Word y/o abrir un documento ya existente (Hasta ahi no hay problema). El problema resulta en que tengo q modificar los Margenes del documento de Word para luego Pegar los datos de Excel y ésto lo quiero hacer desde el comando q crea el docuemento de Word via Excel (VBA) y que a se pueda seguir exportando de Excel a Word sin necesidad de cerrar el Word y se tenga q volver a abrir para ser insertado en la parte inferior del Documento. Por otro lado, aun sigo en la espera de su correo para poder enviarle el programa que genera codigos de barra desde Excel, ya que tambien piendo generar los codigos en la impresion (Exportacion a Word). Me olvidaba, en el Formulatio del Video 11 cuando se graba o modifica un registro, el ComboBox genera una falla (Error: Nombre Invalido) cuando en el cbo_Nombre se ingresan digitos (por Ejemplo al guardar un registro con el nombre: PC - 01). Agradecere pueda ayudarme... Quiero terminar de hacer éste formulario para poder compartirlo y que de sea de ayuda a otros como lo sera conmigo. Saludos desde Perú
Mis saludos para ti Oto.... tengo el problema en ecxel vba que cada cierto tiempo los botones de acceso a los diferentes programas se corrompen pero en realidad es el programa que se corrompe y desliga los botones o sea todos los eventos clik se cambian de la ventana general a la ventana de declaraciones y pierden su función y el programa y la hoja de excel se vuelve inútil y tengo que volver a re programar ¿me puedes ayudar?
hola amigo che visto casi todos tus tutoriales muy buenos, solo que ria que me ayudaras he creado un archivo de exel con el programa de ingresar eliminar editar con foto y eso, luego le introduje un formulario en vase a ese pero le modifique para poder ingresar registro de entradas y salidas de alumnos. lo que no se como hacer es como crear un formulario que busque el nombre del alumno y me tire todas las actividades registradas del mismo.
Muchin Dijey Inspector Tienes que realizar un filtro para hacer este tipo de búsqueda. No es difícil. De hecho tengo planeado hacer un vídeo para crear filtros de búsqueda, algo simple que te podrá ayudar a hacer lo que necesitas.
Muy buen tutorial,disculpa no se si puedas ayudarme, sucede que quiero insertar google maps en una hoja de excel, y realizo el procedimiento doy click en desarrollador-insertar-herramientas-microsoft web browser-selecciono el área donde se pegara el objeto y me sale un recuadro que me informa que no se puede insertar el objeto. Nota. mi sistema operativo es windows 8.1 microsoft office 2013. Si me ayudas te lo voy a agradecer mucho.
Buenos días maestro tengo un problema con VBA 2013 me sale el siguiente error; Se ha producido el error '1004' en tiempo de ejecución: Error en el método select de la clase worksheet, eso se debe a que?
Hola amigo Podría ayudarme a resolver este problema. Tengo dos formularios. En form1 tiene un textbox1 y el form2 tiene un label1. Quiero pasar el dato del label1 que esta en el formulario2 al textbox1 que esta en el formiñario1 pero el nombre de mis formilarios son valores string. Tengo el siguiente codigo en el form2 pero no me funciona Forms.add("nombre_formulario1").controls("nombre_text").text=label1 Necesito q los nombres sean variables pues la idea es poder hacer lo mismo en varios textbox. Gracias
Otto, te comparto mi código: Private Sub CommandButton1_Click() Hoja1.Cells(5, 10) = "Hola Mundo, este es Mi primer código" End Sub Muchas gracias y saludos cordiales desde Chile. 14-10-2018.
Buenos dias, compañeros... Estoy tratando de hacer en VBA en un ListBox un sistema de busqueda inteligente, es decir, que cuando escriba en dicho textbox el nombre de lo que quiero buscar en el ListBox me aparezcan todos los datos de que deseo segun el nombre que coloque en el textBox. el Listbox es de 24 columnas, esto se lo declaro en la ventana de propiedad, no con codigo... Resulta que cuando quiero buscar por un nombre funciona, pero solo me presenta 10 columnas y deberia mostrarme 24 columnas. Como puedo resolver este inconveniente??? Aqui les dejare el codigo para que me ayuden,, por favor... Private Sub tb2_Change() Dim datoNum, fila, y As Integer Dim descrip, Clear As String datoNum = Hoja6.Range("A" & Rows.Count).End(xlUp).Row Hoja6.AutoFilterMode = False Me.listaFinanza = Clear Me.listaFinanza.RowSource = Clear y = 0 For fila = 2 To datoNum descrip = Hoja6.Cells(fila, 2).Value If UCase(descrip) Like "*" & UCase(Me.tb2.Value) & "*" Then 'Me.listaFinanza.ColumnCount = 20 Me.listaFinanza.AddItem Me.listaFinanza.list(y, 0) = Hoja6.Cells(fila, 1).Value Me.listaFinanza.list(y, 1) = Hoja6.Cells(fila, 2).Value Me.listaFinanza.list(y, 2) = Hoja6.Cells(fila, 3).Value Me.listaFinanza.list(y, 3) = Hoja6.Cells(fila, 4).Value Me.listaFinanza.list(y, 4) = Hoja6.Cells(fila, 5).Value Me.listaFinanza.list(y, 5) = Hoja6.Cells(fila, 6).Value Me.listaFinanza.list(y, 6) = Hoja6.Cells(fila, 7).Value Me.listaFinanza.list(y, 7) = Hoja6.Cells(fila, 8).Value Me.listaFinanza.list(y, 8) = Hoja6.Cells(fila, 9).Value Me.listaFinanza.list(y, 9) = Hoja6.Cells(fila, 10).Value Me.listaFinanza.list(y, 10) = Hoja6.Cells(fila, 11).Value Me.listaFinanza.list(y, 11) = Hoja6.Cells(fila, 12).Value Me.listaFinanza.list(y, 12) = Hoja6.Cells(fila, 13).Value Me.listaFinanza.list(y, 13) = Hoja6.Cells(fila, 14).Value Me.listaFinanza.list(y, 14) = Hoja6.Cells(fila, 15).Value Me.listaFinanza.list(y, 15) = Hoja6.Cells(fila, 16).Value Me.listaFinanza.list(y, 16) = Hoja6.Cells(fila, 17).Value Me.listaFinanza.list(y, 17) = Hoja6.Cells(fila, 18).Value Me.listaFinanza.list(y, 18) = Hoja6.Cells(fila, 19).Value Me.listaFinanza.list(y, 19) = Hoja6.Cells(fila, 20).Value y = y + 1 End If Next End Sub
Muy buen día.. Amigo quería agradecerte por el conocimiento transmitido.. Quería pedirte un tutorial muy especial sobre MACROS VISUAL BASIC ..para ello te dejo el enlace del video en el cual desarrollan un plan de mantenimiento pero el método no es transmitido.. m.th-cam.com/video/sUpQ42aM4TA/w-d-xo.html Gracias!! De antemano ..estoy a la espera de su pronta respuesta
+alejandro Riba Envíamelo a mi correo ottogg@hotmail.com Lo voy a revisar hoy por la noche. Ponle en el asunto "AYUDA EXCEL" por poder identificarlo. Saludos!
El mejor curso de Excel y vba
Realmente eres claro y preciso en tus videos de los mejores que he visto
Muchas gracias por el vídeo, estoy viendo y de verdad muchísimas gracias, este esta completo, No soy profesionista ni ocupo el generar archivos grandes, pero me intereso por un hobby en especial que no pude hacer en Access, me recomendaron Excell y me tope con este, la verdad mucha dedicación y el tiempo que invertiste, voy estudiando en los ratos que descanso, pues soy conductor de un camión de pasajeros.
jose de Jesus Briseño Me alegra mucho que estés aprendiendo con este material. Eres una persona hambrienta por aprender y eso yo lo admiro muchísimo. Bienvenido al canal.
Saludos!!!
Felicidades Otto, por tus videos didácticos sobre Excel y VBA.
Están muy bien hechos, muy bien explicados y son fáciles de comprender.
Gracias por compartir.
Maestro, gracias por compartir sus conocimientos, tengo el deseo de conocer este programa y después de revisar muchos videos, los suyos me parecieron los indicados para emprender la aventura de conocer un poco más de Excel. Que Dios le bendiga por su altruismo.
Saludos, excelente trabajo. Te agradezco el tiempo que dedicas para elaborar estos videos, he aprendido mucho sobre todo con estos de "VBA en Excel".
+Izrhaell Karmmona Tuffinho Muchas gracias por tu comentario. Saludos!
Excelente profesor, muchas gracias por su paciencia, humildad y ganas de compartir sus cocimientos, Saludos.
Mil gracias Maestro... Hoy es domingo de aprender excel, y este es el primero!!! Me encantó!! Vamos por el 2!!!!
Eres un éxito ¡¡¡ muchas gracias por el tiempo que dedicas a estos grandes vídeos.
Muchas Gracias por los videos !!! son de gran ayuda, soy nuevo en el tema y estoy trabajando en unos proyectos. Muchas gracias de vuelta y espero mas videos :)
voy a empezar de nuevo este curso el cual es un aprendizaje que no para gracias
Buenos días desde Tenerife (Canarias-España), y muchas gracias por las explicaciones y poder compartir tus libros. Me ha resultado fácil comprender tus comentarios y la verdad, aunque existen miles de referencias enseñas redes, las tuyas son las que mas me han sido útiles. Gracias. Aprovechando de tu disposición quisiera hacerte una pregunta "¿ En un cuadro de texto, puedo programar una máscara de entrada ? por ejemplo una fecha "../../.." o número de teléfono "###.###.###". Gracias y enhorabuena de nuevo.
Excelente la explicacion gracias por la paciencia y lo didáctico para explicar.
Muchas gracias, sus cursos seran de gran ayuda, programo en C# pero no podemos instalar bases de datos SQL en nuestro trabajo, asi que busque algo asi para hacer reportes y bases con Excel y me encontre su exelente curso, Desde ya le sigo, Saludos.
Gracias por comentar. Saludos!
las mejores clases, gracias---
Muchas Gracias,
Saludos cordiales desde Chile.
14-10-2018
Muchas gracias por este vídeo , la verdad me fue de gran utilidad , todo me funciono a la perfección....bueno una cosa mas quisiera saber si tienes algún vídeo donde expliques como eliminar mas de un registro, lo intente en una opción de las propiedades del listbox pero cuando intento eliminar solo lleva a cabo el proceso sin arrojar ningún error pero los registros que seleccione no se eliminan...saludos
Muy buen curso... espero siga subiendo ejemplos similares
Patricia Vallejo Por supuesto. Saludos y gracias por el apoyo!!!
Tremendo, es justo lo que estaba buscando, muchas gracias por compartir.
Daniel Flores Me alegra que te sean útiles estos vídeos. Slaudos!!!
Muchas Gracias por compartir tus conocimientos.
Hola Otto, muy bueno el curso. Gcs
Buenos dias Otto, gracias por tus valiosos apuntes, necesito de tu conocimiento en los siguientes temas:
1. Como realizar vista preliminar del formulario que se quiere imprimir (Formulario, no libros ni hojas)
2. como imprimir un formulario con todo su contenido y que después de imprimir, guarde la información en una hoja de excel que contiene la Matriz con toda la información.
3. como crear una copia del formulario que se esta imprimiendo en PDF
Gracias
Gracias de verdad
buenos videos ,que libros recomiendas para complementar
Muchas Gracias por el aporte
Excelente curso, sigue asi.
Gracias.
Hola Otto, esta muy buena su explicación y entendible. En mi caso necesito crear un botón para imprimir unas celdas determinadas, ¿cual seria la función que debo ingresar en visual Basic para poder hacerlo? me serviría mucho! espero su respuesta, saludos desde Argentina.
+Lucas Garcia
Buen Lucas, no entiendo si quieres decir celdas o un rango, si es por celdas creo que no se puede, pero si es rango entonces te puede servir esto:
Serviría si el rango es fijo, tu decides que rango quieres imprimir.
ActiveSheet.PageSetup.PrintArea = "$B$2:$K$20"
Selection.PrintOut Copies:=1
Pero si quieres que sea variable, serial algo así, el usuario indica que rango quiere imprimir:
ActiveSheet.PageSetup.PrintArea = Selection.address
Selection.PrintOut Copies:=1
Saludos.
Excelente pedagogía para explicar, lo felicito, soy un nuevo suscriptor, estoy utilizando su formulario avanzado 2013, quisiera añadir un campo de captura de datos en la parte final, debajo de Email. que debo hacer para que cuando le de a enter pase para en otro cuadro de texto que quiero anexar y luego pase al botón Agregar/ Modificar. GRACIAS
Gracias, todos sus videos muy bien explicados,,, estaba viendo el video 31, si me pudiera resolver la siguiente duda:
yo esto en la celda Range("d2"), y en esta celda quisiera usar la funcion contar.si,,,,, esta funcion te pide un rango y te cuenta en base a un criterio(rango),, pero en mi caso este rango es variable... (d3 : d41) algunas veces puede aumentar y en otras disminuir,, cualquier ayuda se lo voy a agradecer.
Excelente.
Muy bueno los videos pueden volver a subir el video numero 5
*Bueno a incrementar mis conocimientos de VBA*
Hola Otto, Mil felicitaciones por tu talento para enseñar y todo mi reconocimiento y gratitud por compartir lo que sabes. Tengo un gran problema que yo creo que para ti es minimo, como podria restar cantidades de la columna A con las respectivas de la B, aplicarles la funcion ABS y sacar el MINimo de las diferencias y ademas aplicar la funcion SI con BUSCARV sobre esas columnas, pero todo esto en una macro. Lo puedo hacer manual, pero no logro automatizarlo, me lo podrias decir? Muchisimas gracias de antemano. graficamente seria mas o menos asi: COLUMNAS: A-B=C en D (ABS de C), en E (MIN de D) en F SI(A>0,BUSCARV(....)
Pues si lo sabes hacer manualmente, pues en ese preciso momento, puedes grabar la macro y luego modificarla a tus necesidades.
Ese es el problema, activo grabar macro y al irlo haciendo todo sale bien, pero al correr la macro, aparentemente con los mismos pasos, sale error y no hallo la razon , lo que quiero es ver si con tu experiencia, me pudieras dar un tip de donde se genera dicho error. Gracias
cordial saludo, excelentes videos, gracias por compartir tus conocimientos. me surge la pregunta de como colocar una barra de desplazamiento en el formulario.cuando este es muy grande y no se logra ver todas las opciones colocado en el formulario, utilizo las opciones scrollbart y keepscrollbart, pero no se como colocar el codigo para que funcione. gracias por tu ayuda.
Muy buen aporte gracias, tengo una consulta como hago para colocar datos en un comboBox y al momento de seleccionar uno de la lista, este se vaya a una determinada celda que seleccione. gracias.
¿Buenas tardes, como este señor Otto? En 2024 si vale la pena usar vb para automatizar Excel, espero me pueda responder. Gracias
amigo una pregunta con este sistema podria crear un sistema de ventas? o sistema de costos de fabrica y ventas? gracias por tus videos
muy buena información sigue asi :)
Muy Bueno ....
Amigo Gonzales, un saludo desde Perú, de antemano agradezco el conocimiento que comparte con la comunidad de TH-cam, tengo una consulta ojala me puedas ayudar.
Cuando uno graba una macro con el editor, y luego quieres ejecutar dicha macro grabada, esta solo trabaja la cantidad de registros que tu grabastes, asi estos sean nuevos registros, siempre la macro edita o trabaja tu macro grabada en base a la cantidad de registros que editastes.
Ejemplo:
Tengo una mini base o una tabla con 10 registros y como siempre los edito para darle presentación, decido grabar la macro. pero da la casualidad que mi base creció, ya no son 10 registros, son 20 o 30 etc y le doy ejecutar la macro, solo va a editar los 10 campos que en un inicio grabe, el resto los deja igual. como puedo hacer para grabar una macro y que esta me trabaje la nueva cantidad de registros.
Estaré atento a tu ayuda,
Saludos,
Me gustó mucho el video, pero tengo una duda, ¿puedo manipular varios libros al mismo tiempo? Es decir, ¿añadís un registro en un libro Excel y que, de cumplirse una condición, también se añada en otro libro que no esté abierto?
Saludos
aza cisneros Por supuesto, se puede. De hecho puedes ver este ejemplo: th-cam.com/video/tuPJcNDW07s/w-d-xo.html
***** Vale, ya capte, tengo otra duda, ojalá pudieras ayudarme, yo no se nada de Visual Basic, yo sé programar en Java y algo en C, pero necesito hacer un programa para manipular Excel y eso que es más sencillo desde Visual Basic. Esos códigos los realizas desde dentro del Excel, pero yo necesito hacer una aplicación que corra sin necesidad de entrar al archivo Excel, ¿la sintaxis que utilizas en tus tutoriales seria la misma si realizó la aplicación fuera de Excel?, o cambia
Saludos
muito boa me ajudou muito
Hola Otto. Oye habilite el DESARROLLADOR en mi tablet pero no me aparecen los comandos de la ventana como Ti y no puedo hacer los ejemplos que explicas. ¿Me podrias ayudar a configurar el DESARROLLADOR, Por Favor? Me gusto mucho tu explicacion. Saludos
señor Otto como esta espero que bien me gustan sus vídeos ya soy suscriptor suyo pero tengo mucho problemas con la macros y no se que hacer me puedes ayudar
Amigo funciona en excel 2016 también ???
Hola O Javier, descargue una macro para abrir un archivo de Word, cuando la modifique dejo de funcionar. La línea de conflicto es < Set oarchivo = GetObject(strPath) > (en la original una línea anterior se definía < Const strPath = C:\tarea.docx > y funciona correctamente). En la modificación defini strPath como string y agregue la línea < strPath = “C:\tarea.docx”
como pasas datos de un formulario a otro, o sea, lo capturas se graba en la hoja1 y al mismo tiempo abres otro formulario con ese dato digamos numero, nombre y apellidos de empleado.
Donde descargo tu gestor de inventario?
Hola Saludos, me han gustado mucho tus vídeos te felicito, una pregunta no encuentro el vídeo No. 5 Creando una Función Parte 1 VBA Excel 2013 donde puedo buscarlo? Gracias
Gerardo Arturo Flores Ibarra Buenos días Gerardo, Gracias por informarme. Tuve un problema con ese vídeo y fue eliminado de TH-cam. Ya resolví pero TH-cam me dice que no me lo puede restaurar. Lastimosamente yo perdí el original, sin embargo lo volví a hacer y ya lo resubí. Aquí está el enlace: th-cam.com/video/CpgKN_CEMlI/w-d-xo.html
Saludos!!!
Muchas Gracias, te felicito por tu canal y de nuevo gracias por compartir tus conocimientos
Hola!!! oye, tengo un archivo en mi trabajo en el cual tengo que ir generando una base de datos y posteriormente con esta voy generando unos reportes, pero una informacion tiene que estar en el encabezado y otra en el cuerpo del reporte... como le puedo hacer para que con una macro se pueda generar el reporte y tambien modificar la parte del encabezado??? saludos y gracias por compartir tus conocimientos...
Otto, Buena tarde. Te agradeceria me pudieras colaborar con el codigo visual basic 2013 Excel para bloquear un archivo en una fecha determinada, o como podria hacer que Visual Basic haga una formula "SI la celda A1 es < a 0" Bloqué el archivo.
Gracias, Saludos desde Bogota, Colombia !!
Buenos día Maestro, algún numero de contacto? Quisiera realizar una consulta.
gracias me gustaria ver los codigos en factura en cada microft 2007, en cada uno hasta el 2016 por excel
Usted cree que sería conveniente enviarle el archivo para que usted lo revise y me ayude con dicho problema?
Muchas gracias por el video, tengo una pregunta: ¿es lo mismo vba de Excel y vba de Access? o sea se puede utilizar indistintamente en un programa u otro con los mismos códigos?
Ariel Alberto En la mayoría del código posiblemente sí, pero hay muchas variantes ya que cada aplicación tiene su propio entorno de programación. Recuerda que se manejan librerías para cada uno. Si quieres programar algo de Excel en Access, tendrás que crear objetos declarados para Excel. En fín cada uno tiene lo suyo propio, pero sí se pueden interactuar entre sí.
Hola Otto fijate que cuando creo el boton siguiendo todas tus instrucciones me aparece un error con lo siguiente "Microsoft Map ya no es compatible con Microsoft Excel" o sera la version tengo Microsoft Oficce 2013 Professional Plus pero la version SP1 Update Mayo 2014.
hola me gustaria hecerle una pregunta no es de sus videos exactamente pero me encantaria su ayuda.
Buen dia señor Otto, mi situación es la siguiente, tengo un userform al cual necesito que mediante un botón me genere un reporte en un libro de excel nuevo, los datos se deben sacar del libro "Vpresencial" de la hoja "Datos", he visto muchos videos pero no logro encontrar uno que se haga ese reporte desde VBA, los que he visto se hacen de excel a excel pero directamente. le agradezco su pronta ayuda.
+luifernando43
Estos dos vídeos te pueden ayudar:
1. th-cam.com/video/j5hXb3X00QE/w-d-xo.html
2. th-cam.com/video/K-rl3jQmbgg/w-d-xo.html
Aquí lo que hago es tomar los datos de la hoja en el libro actual y los envío a un libro nuevo con formato y todo.
Puedes tomar esa parte del código como ejemplo, para adaptarla a tus necesidades.
Saludos!
Buenas este curso es aplicable en excel 2010 ? estoy interesado en aprender a trabajar con VBA
william parada Podríamos decir que sí. PERO, cuando llegues a un punto avanzado tendrás problemas de incompatibilidad, ya que la versión 2013 no es compatible con la 2010 en alguna de las sentencias empleadas.Saludos!!!
Buenas noches Otto. Tengo una duda a ver si me puedes ayudar.
Me ha pasado un par de veces una en el trabajo y otra en casa. Tengo una macro que me funciona perfectamente a la que tengo vinculado el atajo Ctrl+Mayusc+A. Modificando la macro este atajo a dejado de funcionar. Lo quito lo vuelvo a poner y nada, se oye un sonido como que está bloqueado ( como cuando clickeas en una celda teniendo una ventana modal ). En cambio si creo una macro nueva y le vinculo este atajo funciona perfectamente. ¿Sabes a que se puede deber? ¿ Y como solucionarlo?. Te paso la macro por si sirve de algo ( es un poco larga disculpa ). Simplemente reemplaza y un par de arreglos
Muchas gracias de antemano.
Sub Reemplazo()
Dim RangoFecha As Range
Dim Celda As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set RangoFecha = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
For Each Celda In RangoFecha
Select Case Celda.Offset(0, 1)
Case "Anna"
Celda.Offset(0, 1).Replace What:="Anna", Replacement:="AnnaP", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "Alessia"
Celda.Offset(0, 1).Replace What:="Alessia", Replacement:="AlessiaR", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "Domenico"
Celda.Offset(0, 1).Replace What:="Domenico", Replacement:="DomenicoC", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "Lucia"
Celda.Offset(0, 1).Replace What:="Lucia", Replacement:="LuciaF", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "Mattia"
Celda.Offset(0, 1).Replace What:="Mattia", Replacement:="MattiaF", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "Saverio"
Celda.Offset(0, 1).Replace What:="Saverio", Replacement:="SaverioC", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "ValeriaP"
Celda.Offset(0, 1).Replace What:="ValeriaP", Replacement:="ValeriaPa", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Case "DattiloS@NOVACALL"
Celda.Offset(0, 1).Replace What:="DattiloS@NOVACALL", Replacement:="DattiloS@novacall", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Select
Next Celda
Columns("B:C").AutoFit
With Columns("A:B")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Columns("a:c").Font
.Size = 12
.Name = "calibri"
End With
Range("b:b").Replace What:="-", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("b:b").NumberFormat = "m/d/yyyy"
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
'
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Hola Otto, estoy adecuando un Formulario, como puedo contactarlo para una asesoria, Gracias
HOLA BUENOS DÍAS , ES UN MAESTRO DE PRIMERA MUY BUENOS VÍDEOS, LO MOLESTO CON LO SIGUIENTE.
COMO PUEDO CREAR UNA MACRO PARA OCULTAR COLUMNAS QUE CUMPLAN CON CIERTOS CRITERIOS.
ES DECIR TENGO UN ENCABEZADO EN EL QUE DEPENDE SI HAY EVALUACIÓN, SI NO LA HAY ME APARECE UN CERO (0) QUISIERA QUE TODAS ESAS COLUMNAS QUE TENGAN CERO SE OCULTEN Y SOLO APAREZCAN LAS QUE SI TIENEN EVALUACIONES.
Estoy armando una aplicación que ejecute un proceso de otra aplicación. Como puedo obtener el codigo para que haga eso?. Hay algun "grabador" que vaya diciendo el codigo que corresponde o al menos oriente a la acción necesaria?
Buenas tardes tengo una consulta. Como puedo realizar una gráfica (productos vs precios) a partir de un formulario. Agradezco de antemano su respuesta.
MAESTRO UNA CONSULTA LO QUE APRENDERE EN ESTE CURSO LO PUEDO APLICAR EN EL EXCEL 2016 Y POSTERIORES
Maestro Otto, buenos días:
Habrá manera de que me ayude con mi proyecto de captura? Tengo el formulario ya hecho y trabaja sin problema, pero quisiera agregarle 5 cuadros de imagen que al darle clic pudiera seleccionar la imagen desde una ubicación especifica (Tipo Examinar).
Me gustaría saber si pudiese mandarle mi proyecto para que lo viera y hacerle los comentarios para ver si se puede agregar dicha función.
Desde ya, muchisimas gracias.
hola
por favor necesito saber como sacar la diferencia de tiempo
ejemplo
llega a las 12:30
inicia a las 12:35
termina a las 13:15
tiempo que se demoro en empezar: ?
tiempo que se demoro de inicio a fin: ?
y total de tiempo que se demoro desde que llegó hasta que termino
tengo una consulta, tengo una libro excel conectado a la B.D que me muestra los datos en un rango en una tabla, la cual paso información a otra hoja para hacer el estado de caja, cree un botón en excel, cuando ejecuto linea por linea me sale todo perfecto , pero cuando ejecuto el botón que esta asociado a la macro, me copia como si no actualizara mi tabla , ojo, cuando hago clic , me conectado a la B.D hace una consulta por fecha y l actuliza, copia y pega en otra hoja , pero me copia una consulta anterior que ya hice y ya pegue cuando hice la primera
Una pregunta? como hago para evitar que al abrir un documento de excel habilitado para macros no se abra otras macros de formas automáticas?
Cómo puedo ver la secuencia de videos de VB para MS Excel??
Otto gracias por compartir el conocimiento... quería pedir tu consejo... las instrucciones .to y .cc cuando estoy creando una rutina para enviar un correo automático desde Excel abriendo el outlook con Office 2013 no funcionan con las rutinas que tenia en los archivos 2007 y 2010, no he podido encontrar una solución. Sabes que cambios se han dado en la arquitectura?
En ThisWorkbook:
Private Sub Workbook_Open()
Dim f As Date
Set h1 = Sheets("Resumen")
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If IsDate(h1.Cells(i, "B")) Then
f = h1.Cells(i, "B")
h1.Cells(i, "E") = DateSerial(Year(f), Month(f) + 2, Day(f))
h1.Cells(i, "F") = h1.Cells(i, "E") - Date
If h1.Cells(i, "F") < 11 Then
CorreoAuto i
End If
End If
Next
End Sub
Funciona sin problemas, al arranque revisa la hoja y ejecuta la macro de correo:
En el modulo:
Sub CorreoAuto(i)
Set correo = CreateObject("outlook.application").createitem(0)
correo.To = Sheets("Resumen").Range("H" & i)
correo.Cc = Sheets("Resumen").Range("I" & i)
correo.Subject = "Alerta de vencimiento de revisión preventiva " & Range("A" & i)
correo.display
correo.send
Set correo= Nothing
End Sub
Esta se detiene por las instrucciones .To y .CC, las he quitado y funciona sin problema, ejecuta un mensaje nuevo de Outlook y lo deja listo con el asunto, pero necesito que sea manual... espero me puedas ayudar.
Yo tengo visual studio 2013, como lo puedo asociar con Excel 2013??
Kelvo Amador Visutal Studio tiene su apartado para crear aplicaciones de Excel o cualquier otra de Office. Solo que tienes que crear código desde VS y generar desde ahí los proyectos.
***** maestro no ha pensado en un curso de visual 2008,2010,2013 full base de datos access???
pero no entiendo còmo descargo Visual basic para aplicaciones, podrìa señalarme còmo?
señor otto buenos dias quisiera saber si me puede ayudar, necesito enviar un rango de celdas a un correo cada vez que lo desee, tambien quisiera que ese rango de celdas seleccionadas se guarde en una carpeta en el ordenador como PDF gracias.
disculpe prof. javier tengo un problema me aparece un error 1004 si puede solucionarlo muchas gracias por los videos
Estimado Otto, no hago mas que abrir el archivo y me aparece este mensaje... en el compliador de VBA
Private Sub UserForm_Initialize()
Call OcultarHojas
Hoja1.btn_Admin.Enabled = False
End Sub
Se marca el btn_Admin.... esto me pasa en algunos PC y en otros no... en todos abro el archivo con Excel 2010.
Me puede orientar como poder arreglar este problema
bueno dias amigo, como puedo hacer un buscador desde un formulario de visual basic de una caja de texto, que mientras boy poniendo el dato me aparesca los datos o la busqueda automaticamente de los datos que se encuentran en excel,
te agradeceria por adelantado si me ayudas
otra preguntita amigo y que no he encontrado solucion es si puedo imprimir desde un formulario de visual imprimir una hoja de excel
juver goicochea Eso se podría hacer con el Evento Change del control, mientras escribas, cambie el otro control.
Buenas noches Maestro Otto, nuevamente le escribo para solicitar ayuda. Ya eh estado trabajando en formulario para un llenado y modificacion de archivos (Tutorial 11) generando un boton de impresion el cual me funciona a la perfeccion... Ahora el detalle es que quiero exportar dicha area de impresion a Word, para lo cual necesito generar nuevo docuemento de Word y/o abrir un documento ya existente (Hasta ahi no hay problema).
El problema resulta en que tengo q modificar los Margenes del documento de Word para luego Pegar los datos de Excel y ésto lo quiero hacer desde el comando q crea el docuemento de Word via Excel (VBA) y que a se pueda seguir exportando de Excel a Word sin necesidad de cerrar el Word y se tenga q volver a abrir para ser insertado en la parte inferior del Documento.
Por otro lado, aun sigo en la espera de su correo para poder enviarle el programa que genera codigos de barra desde Excel, ya que tambien piendo generar los codigos en la impresion (Exportacion a Word).
Me olvidaba, en el Formulatio del Video 11 cuando se graba o modifica un registro, el ComboBox genera una falla (Error: Nombre Invalido) cuando en el cbo_Nombre se ingresan digitos (por Ejemplo al guardar un registro con el nombre: PC - 01).
Agradecere pueda ayudarme... Quiero terminar de hacer éste formulario para poder compartirlo y que de sea de ayuda a otros como lo sera conmigo.
Saludos desde Perú
Eso habría que probarlo. En este momento no tengo tiempo para hacerlo. Cuando tenga un espacio de tiempo veré que hacer.
hola quisiera saber si es posible crear una aplicación para crear unos contratos a partir de Excel y como se hace gracias
Mis saludos para ti Oto.... tengo el problema en ecxel vba que cada cierto tiempo los botones de acceso a los diferentes programas se corrompen pero en realidad es el programa que se corrompe y desliga los botones o sea todos los eventos clik se cambian de la ventana general a la ventana de declaraciones y pierden su función y el programa y la hoja de excel se vuelve inútil y tengo que volver a re programar ¿me puedes ayudar?
hola amigo che visto casi todos tus tutoriales muy buenos, solo que ria que me ayudaras he creado un archivo de exel con el programa de ingresar eliminar editar con foto y eso, luego le introduje un formulario en vase a ese pero le modifique para poder ingresar registro de entradas y salidas de alumnos. lo que no se como hacer es como crear un formulario que busque el nombre del alumno y me tire todas las actividades registradas del mismo.
Muchin Dijey Inspector Tienes que realizar un filtro para hacer este tipo de búsqueda. No es difícil.
De hecho tengo planeado hacer un vídeo para crear filtros de búsqueda, algo simple que te podrá ayudar a hacer lo que necesitas.
ok eso seria genial, los videos que ud hace son muy buenos. voy a intentar ver como hacer lo que dice de los filtros
Muy buen tutorial,disculpa no se si puedas ayudarme, sucede que quiero insertar google maps en una hoja de excel, y realizo el procedimiento doy click en desarrollador-insertar-herramientas-microsoft web browser-selecciono el área donde se pegara el objeto y me sale un recuadro que me informa que no se puede insertar el objeto.
Nota. mi sistema operativo es windows 8.1 microsoft office 2013.
Si me ayudas te lo voy a agradecer mucho.
Buenos días maestro tengo un problema con VBA 2013 me sale el siguiente error; Se ha producido el error '1004' en tiempo de ejecución: Error en el método select de la clase worksheet, eso se debe a que?
NO me aparece el visual basic en exel
holA PROFERSOR CUAL ES SU CORREO NECESITO SU AYUDA
Hola amigo
Podría ayudarme a resolver este problema.
Tengo dos formularios. En form1 tiene un textbox1 y el form2 tiene un label1. Quiero pasar el dato del label1 que esta en el formulario2 al textbox1 que esta en el formiñario1 pero el nombre de mis formilarios son valores string. Tengo el siguiente codigo en el form2 pero no me funciona
Forms.add("nombre_formulario1").controls("nombre_text").text=label1
Necesito q los nombres sean variables pues la idea es poder hacer lo mismo en varios textbox.
Gracias
Otto,
te comparto mi código:
Private Sub CommandButton1_Click()
Hoja1.Cells(5, 10) = "Hola Mundo, este es Mi primer código"
End Sub
Muchas gracias y saludos cordiales desde Chile. 14-10-2018.
Buenos dias, compañeros... Estoy tratando de hacer en VBA en un ListBox un sistema de busqueda inteligente, es decir, que cuando escriba en dicho textbox el nombre de lo que quiero buscar en el ListBox me aparezcan todos los datos de que deseo segun el nombre que coloque en el textBox. el Listbox es de 24 columnas, esto se lo declaro en la ventana de propiedad, no con codigo...
Resulta que cuando quiero buscar por un nombre funciona, pero solo me presenta 10 columnas y deberia mostrarme 24 columnas. Como puedo resolver este inconveniente???
Aqui les dejare el codigo para que me ayuden,, por favor...
Private Sub tb2_Change()
Dim datoNum, fila, y As Integer
Dim descrip, Clear As String
datoNum = Hoja6.Range("A" & Rows.Count).End(xlUp).Row
Hoja6.AutoFilterMode = False
Me.listaFinanza = Clear
Me.listaFinanza.RowSource = Clear
y = 0
For fila = 2 To datoNum
descrip = Hoja6.Cells(fila, 2).Value
If UCase(descrip) Like "*" & UCase(Me.tb2.Value) & "*" Then
'Me.listaFinanza.ColumnCount = 20
Me.listaFinanza.AddItem
Me.listaFinanza.list(y, 0) = Hoja6.Cells(fila, 1).Value
Me.listaFinanza.list(y, 1) = Hoja6.Cells(fila, 2).Value
Me.listaFinanza.list(y, 2) = Hoja6.Cells(fila, 3).Value
Me.listaFinanza.list(y, 3) = Hoja6.Cells(fila, 4).Value
Me.listaFinanza.list(y, 4) = Hoja6.Cells(fila, 5).Value
Me.listaFinanza.list(y, 5) = Hoja6.Cells(fila, 6).Value
Me.listaFinanza.list(y, 6) = Hoja6.Cells(fila, 7).Value
Me.listaFinanza.list(y, 7) = Hoja6.Cells(fila, 8).Value
Me.listaFinanza.list(y, 8) = Hoja6.Cells(fila, 9).Value
Me.listaFinanza.list(y, 9) = Hoja6.Cells(fila, 10).Value
Me.listaFinanza.list(y, 10) = Hoja6.Cells(fila, 11).Value
Me.listaFinanza.list(y, 11) = Hoja6.Cells(fila, 12).Value
Me.listaFinanza.list(y, 12) = Hoja6.Cells(fila, 13).Value
Me.listaFinanza.list(y, 13) = Hoja6.Cells(fila, 14).Value
Me.listaFinanza.list(y, 14) = Hoja6.Cells(fila, 15).Value
Me.listaFinanza.list(y, 15) = Hoja6.Cells(fila, 16).Value
Me.listaFinanza.list(y, 16) = Hoja6.Cells(fila, 17).Value
Me.listaFinanza.list(y, 17) = Hoja6.Cells(fila, 18).Value
Me.listaFinanza.list(y, 18) = Hoja6.Cells(fila, 19).Value
Me.listaFinanza.list(y, 19) = Hoja6.Cells(fila, 20).Value
y = y + 1
End If
Next
End Sub
No me sirve, y lo estoy copiando igual, que sera lo que pasa
🦾🦾✔✔👍👍👌👌👀👀🤗🤗😎😎🍺🍺🍺🍺🍺🍺🍺🍺
Muy buen día.. Amigo quería agradecerte por el conocimiento transmitido.. Quería pedirte un tutorial muy especial sobre MACROS VISUAL BASIC ..para ello te dejo el enlace del video en el cual desarrollan un plan de mantenimiento pero el método no es transmitido.. m.th-cam.com/video/sUpQ42aM4TA/w-d-xo.html
Gracias!! De antemano ..estoy a la espera de su pronta respuesta
no me sirbes
Usted cree que sería conveniente enviarle el archivo para que usted lo revise y me ayude con dicho problema?
+alejandro Riba Envíamelo a mi correo ottogg@hotmail.com
Lo voy a revisar hoy por la noche. Ponle en el asunto "AYUDA EXCEL" por poder identificarlo.
Saludos!
Buenos días profesor ya le envié el archivo