Formulario Moderno con VBA Excel

En este video vamos a crear un formulario moderno para que tus proyectos tengan una apariencia moderna y diferente a los clasico.
download the video code for practice
www.mediafire....

[@dicmarcastro9519]

Gracias por el tutorial, aprendí muchas cosas 👍

[@cristobalhenao1860]

Excelente video y tus trabajos ni se digan, muy buenos felicitaciones Ángel.

[@artemisarojas9999]

Este canal es una Joya...

[@pasatiempolibre9004]

No sabía eso de pegar directamente una imagen en la ventana de propiedades 😮😮😮😮😮😮

[@lfvillegas1]

Excelente profe. Me sirvió de mucho el tutorial.

[@Elkinmaf1]

Mil gracias, Gran tutorial como siempre!

[@dugartico7498]

Espectacular, infinitas gracias...

[@Erickmg1992]

Hola Saludos desde Nicaragua, estimado de antemano Muchas gracias por compartir tus conocimiento, en relacion al video tengo una consulta, con la condicion que le das a los textbox que al posicionarnos en uno ponga el texto en vacio, si no digitamos nada y nos pasamos al siguiente textbox entonces siempre quedara vacio, como se puede hacer para que valide que si no esta el cursor y nos pasamos a otro textbox vuelva a su estado original con las letras en gris, espero haberme explicado jeje.

[@saulsilva8694]

Excelentes los tutoriales, por favor quisiera saber como llamar una hoja de Excel desde un CommandButton, gracias.

[@Angel-Excel-Finance]

Porfa revisa el canal hay varios video donde se explica lo que necesitas kzbin.info/door/zb7H7XXC8Lg4OBzmUj8z1A

[@clarabelendelroio2345]

Una pregunta. Mí esposo es diseñador y yo me dedico más a documentos. Puedo importar un archivo SVG por ejemplo que él haya hecho en ilustrator para no tener que estar diseñando todo ahí dentro?

[@Angel-Excel-Finance]

Es necesario diseñar adentro del formulario ya que tendrias problemas con diferentes tipos de resoluciones de la PCs

[@clarabelendelroio2345]

@@Angel-Excel-Finance Gracias! Muy buen canal 💪

[@mustafakoker53]

Textbox içeriğindeki isimleri keşke içine bilgi yazmaya başladığı zaman aynı içeriği örneğin adı soyadı gsm gibi textbox üstüne etiket gelecek şekilde yeniden gösterseydiniz. Bu şekilde textbox içine bilgi girerken neyi doldurduğumuzu göremiyoruz

[@Angel-Excel-Finance]

Merhaba, pratik yapmak için kod dosyasını indirebilirsiniz. Videonun açıklama kısmında umarım yardımcı olmuşumdur selamlar.

[@2Golozo]

Estimado como agregaste más colores

[@Angel-Excel-Finance]

Hola en el proximo video hago los pasos para tu pregunta. saludos

[@MariaDiaz-t9c]

If Me.NUM_DOC.Value = "Documento" Then Me.NUM_DOC.Value = " " End If Me.NUM_DOC.ForeColor = &HFF0000 Me.NUM_DOC.Font.Size = 10 Para mi caso, quisiera saber po que no se borra al hacer click o enter?, si cambia de color pero no se borra el texto

[@Elkinmaf1]

Revisa que el texto en el recuadro sea igual al de la línea de código, en este caso "Documento"

[@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