Menu Moderno en Formulario VBA Excel

[@crisgomez6633]

Son las 11:44 p.m. y te juro que esta noche no duermo loco. Que pasada!, hoy no duermo hasta aprender a hacer eso

[@angelicasanchez9426]

Así estoy yo 😅 es espectacular, como enseña con tanto detalle

[@marvitoj.monrroy9357]

y pensar que en media hora hizo todo eso, no cabe duda que saber lo que estas haciendo es otro nivel

[@MRdguez-ih8yr]

Esto es Excel nivel Dios 😊 Éxitos y gracias

[@sinafel]

Muy agradecido Angel por este nuevo tutorial, estaré haciendo este Diseño de Menú hasta lograr realizarlo. un cordial saludos estimado.

[@cadejo867]

Excelente Angel, son diseños innovadores y muy profesionales, gracias

[@manuelfiguera2883]

De verdad que está súper impresionante te ganaste mi like mi suscripción... Excelente aporte y gracias por compartir tus valiosos conocimientos

[@josearencibia9948]

Te acabo de descubrir, he de decir que todo un hallazgo. Simplemente magnifico muy interesante. Felicidades.

[@JoseDiaz-tx2so]

Cada vez son mejores. Fenomenal!!!!

[@rafaelemiliovelasquezgonza7711]

Muy bueno y fácil, por su puesto, después de ver tu explicación. ¡Muchas Gracias!

[@zhiguegallegosvictororland9710]

famuloso Ejemplo y cada vez ma instuitivo y diseños inovadores 👍

[@cesarsales2551]

Mil gracias por tu trabajo y por compartirlo. Bendiciones. Exitos

[@GiomarLay]

Fenomenal este aporte..Muchas gracias!!

[@madreagua778]

Gracias!!! Excelente diseño y funcionalidad!!!! 👏👏👏

[@pavel-vd5zk]

Saludos desde Cuba, seguí todas sus orientaciones, y me salio a la perfección, ahora quisiera agregar cada menú y sub menú a sus hojas en excel que debo hacer ??

[@americomujgonzalez1865]

Gracias, que gran aporte.

[@aleanaparra1672]

Está SUPER BUENÍSIMO!!! Gracias

[@javierdelgado-strc8712]

Buenisima!! tu demostración. Un saludo.

[@javierdelgado-strc8712]

Que tal Angel, sabes realicé todo el procedimiento mostrado en el video, sin embargo cuando llamo al formulario este no se ajusta o no se centra el menú conforme se programó con los códigos vba y a las propiedades del formulario. Me faltara realizar una configuración en excel?

[@claudineisantos4515]

Olá ótimo exemplo, acompanho seu canal no KZbin, sou do Brasil. Obrigado por disponibilizar o exemplo do projeto.

[@sierra6460]

Excelente ejemplo muchas gracias

[@firmanyuliansyahkurachman1987]

Thank You Brother....👍x 1 Billion!

[@cesarmarrett]

Buenas tardes amigo, éxitos y bendiciones. Amigo al momento de crear los Menús - Submenú. Ejm: Trimestre - 1 - 2 - 3 se puede crear un hipervinculo desde el submenu 1 a una hoja de Excel

[@franklinhurtadosalazar]

Te ganaste un suscriptor

[@juanchopitti]

hola, hay continuacion o previo a este video? hay mas tutoriales para completar el resto de los items?

[@MonjoeSantillan]

Buenas tardes, una consulta para agregar alguna imagen debe tener alguna caracteristica en especial

[@youcano76]

Hago lo mismo de pegar la imagen en el Picture desde una imagen de ícono de Excel, sin embargo al ejecutar, las imágenes no aparecen. Por qué puede pasar eso? Uso Excel 2021. Gracias. Además, al usar el mousemove, cuando paso el cursor se ve un efecto que parpadean los labels.

[@yamithorozco]

Tengo hojas con hipervinculo puedo usarlo?

[@rachid18setexam]

Bravo 👍_______[]✓[]

[@natanaelromero8986]

se puede adquirir el archivo comprado ?

[@homarrogel8325]

Saludos cordiales. Tengo listo este formulario. ¿Cómo hago para enlazar cada pestaña del formulario con una hoja de excel.

[@SeniorExcel]

Crack!

[@javierdelgado-strc8712]

Que tal Angel, sabes realicé todo el procedimiento mostrado en el video, sin embargo cuando llamo al formulario este no se ajusta o no se centra el menú conforme se programó con los códigos vba y a las propiedades del formulario. Me faltara realizar una configuración en excel?

[@amyroamyro8344]

hola, como hiciste para agregar los submenús ? de los otros menús ?

[@israelo.m2635]

a mi no me funciona al pegar la imagen en el Label se copia con fondo blanco

[@juanimaqq1938]

hola, yo en la universidad estoy viendo visual Basic para aplicaciones de Windows, cual es la diferencia con esto? porque se haría en excel o como aplicación de windows? podrías despejarme la duda? gracias!

[@Angel-Excel-Finance]

Te dejo este link para que veas cuales son las diferencias empiezoinformatica.wordpress.com/2013/11/11/diferencia-entre-microsoft-visual-basic-y-vba/

[@robertocarlosalfarogil9578]

Buenas tardes tengo un problema cuando abro el submenu me sale pero al poco de deslizar hacia arriba o abajo desaparece el Lprd se queda en rojo pero me desaparece entonces tengo que hacer de nuevo clic en la barra principal activar y desactivar con un click y me vuelve a salir. Me puedes echar una mano no se si me explique bien.

[@jessiacunariver]

¿Cómo puedo hacer para que este formualrio, pase directamente a excel y este sea editable para cualquier persona?

[@valentinoscotti7178]

Hola capo. Me sale todo solo que cuando copio la imagen en power point y la pego en VBA me queda alargada. Como soluciono eso?

[@sukiesun620]

que hago si al ejecutarlo desaparece las imágenes? Es el único problema que tengo 😞

[@simeon3392]

HOLA COMO PODEMOS DESCARGAR EL PEOGRAMA COMPLETO?

[@Angel-Excel-Finance]

Hola este es un video tutorial cortesia nuestra donde puedes hacerlo tu mismo. no todo es gratis en este mundo.

[@DEMENTE_X]

Tengo una duda

[@legiaoanimes3074]

alguem pode me ajudar com isso? basicamente quero selecionar dados das planilhas 1 e 2 e fazer uma tabela dinamica na planilha Gráficos Sub GerarRelatorio() Dim planilhaGraficos As Worksheet Dim planilha1 As Worksheet Dim planilha2 As Worksheet Dim ultimaLinhaPlanilha1 As Long Dim ultimaLinhaPlanilha2 As Long Dim ultimaLinhaPlanilhaGraficos As Long Dim tabela1 As PivotTable Dim tabela2 As PivotTable ' Definir as planilhas Set planilha1 = ThisWorkbook.Worksheets("Planilha1") Set planilha2 = ThisWorkbook.Worksheets("Planilha2") Set planilhaGraficos = ThisWorkbook.Worksheets("Gráficos") ' Obter a última linha das planilhas ultimaLinhaPlanilha1 = planilha1.Cells(Rows.Count, 1).End(xlUp).Row ultimaLinhaPlanilha2 = planilha2.Cells(Rows.Count, 1).End(xlUp).Row ultimaLinhaPlanilhaGraficos = planilhaGraficos.Cells(Rows.Count, 1).End(xlUp).Row ' Criar a tabela dinâmica1 Set tabela1 = planilhaGraficos.PivotTables.Add(TableDestination:=planilhaGraficos.Range("A3"), TableName:="TabelaDadosDinâmica1") tabela1.SourceDataSheet = planilha1.Name tabela1.SourceData = planilha1.Range("A3:C" & ultimaLinhaPlanilha1).Address With tabela1 .PivotFields("Consignataria").Orientation = xlRowField .PivotFields("Desconto").Orientation = xlDataField .AddDataField .PivotFields("Desconto"), "Soma de Descontos", xlSum .AddDataField .PivotFields("Desconto"), "Contagem de Descontos", xlCount .RowAxisLayout xlTabularRow .PivotFields("Consignataria").AutoSort xlAscending, "Consignataria" End With ' Criar a tabela dinâmica2 Set tabela2 = planilhaGraficos.PivotTables.Add(TableDestination:=planilhaGraficos.Range("E3"), TableName:="TabelaDadosDinâmica2") tabela2.SourceDataSheet = planilha2.Name tabela2.SourceData = planilha2.Range("A3:C" & ultimaLinhaPlanilha2).Address With tabela2 .PivotFields("Consignataria").Orientation = xlRowField .PivotFields("Vl Total Desconto").Orientation = xlDataField .AddDataField .PivotFields("Vl Total Desconto"), "Soma de Vl Total Desconto", xlSum .AddDataField .PivotFields("Vl Total Desconto"), "Contagem de Vl Total Desconto", xlCount .RowAxisLayout xlTabularRow .PivotFields("Consignataria").AutoSort xlAscending, "Consignataria" End With ' Formatar as tabelas dinâmicas planilhaGraficos.PivotTables("TabelaDadosDinâmica1").DataBodyRange.NumberFormat = "#,##0.00" planilhaGraficos.PivotTables("TabelaDadosDinâmica2").DataBodyRange.NumberFormat = "#,##0.00" ' Formatar as colunas J e K como porcentagem planilhaGraficos.Range("J3:J" & ultimaLinhaPlanilhaGraficos).NumberFormat = "0.00%" planilhaGraficos.Range("K3:K" & ultimaLinhaPlanilhaGraficos).NumberFormat = "0.00%" ' Alinhar o texto à esquerda planilhaGraficos.Range("A3:K" & ultimaLinhaPlanilhaGraficos).HorizontalAlignment = xlLeft ' AutoAjustar a largura das colunas planilhaGraficos.Columns.AutoFit MsgBox "Relatório gerado com sucesso!", vbInformation End Sub