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

Este canal es una Joya...

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

Espectacular, infinitas gracias...

Mil gracias, Gran tutorial como siempre!

Excelente profe. Me sirvió de mucho el tutorial.

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.

Estimado como agregaste más colores

@Angel-Excel-Finance

Жыл бұрын

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

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

@Angel-Excel-Finance

6 ай бұрын

Porfa revisa el canal hay varios video donde se explica lo que necesitas kzread.info/dron/zb7H7XXC8Lg4OBzmUj8z1A.html

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.

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

4 ай бұрын

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

@clarabelendelroio2345

4 ай бұрын

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

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

7 ай бұрын

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

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