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.
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?
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
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
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
Excelente video y tus trabajos ni se digan, muy buenos felicitaciones Ángel.
Gracias por el tutorial, aprendí muchas cosas 👍
Este canal es una Joya...
Mil gracias, Gran tutorial como siempre!
Excelente profe. Me sirvió de mucho el tutorial.
Espectacular, infinitas gracias...
No sabía eso de pegar directamente una imagen en la ventana de propiedades 😮😮😮😮😮😮
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
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.
Porfa revisa el canal hay varios video donde se explica lo que necesitas th-cam.com/channels/zb7H7XXC8Lg4OBzmUj8z1A.html
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?
Es necesario diseñar adentro del formulario ya que tendrias problemas con diferentes tipos de resoluciones de la PCs
@@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
Revisa que el texto en el recuadro sea igual al de la línea de código, en este caso "Documento"
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
Merhaba, pratik yapmak için kod dosyasını indirebilirsiniz. Videonun açıklama kısmında umarım yardımcı olmuşumdur selamlar.
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