Hola gracias por el video, quisiera tener la plantilla

MUY MAL EXPLICADO !!! TE INVITO A QUE VEAS LA FORMA DE EXPLICAR DE www.youtube.com/@SergioAlejandroCampos, ES UNA FORMA DE APRENDER.

hola Jolian --como podemos optener esta plantilla de excel ?

Yo busco una opción para que se muestren ciertas filas según una edad determinada, y se muestren otras si se supera esa edad, pero esto sin tener que presionar botones.

Buenos días, gracias por tus videos, por favor puedes dejar la plantilla para descargala, gracias

Hola cómo están, les dejo el formato que deben agregar en formato número en caso que quieran usar el número 3. [=1]"✔";[=0]"❌";General

Excelente, es el video mas completo de formato de conciliación fiscal que se encuentra en el KZfaq, gracias compartir tus experiencias y conocimiento en este video.

Gracias por su excelente capacitación. Sería posible adquirir el Excel para hacer simulaciones?. Gracias.

muy bueno me interesa tu doc

Como quito los comentarios del formato

🙏

TIENSE MUCHOS VIDEOS INTERESANTES

SUPER NOS PUEDES FACILIAR ESE ARCHIVO DE EXCEL

Buenos dias. Porque no se guardan los codigos de los conceptos de cada formato

Mucho robo!!!

Excelente

Es complicado, sacar mi nomina 😢 mi quincena, soy vigilante, trabajo mucho 12 horas de día y de noche , es complejo, sacar la disminución de la jornada laboral y más cuando en la empresa no te explican

Hola como estan, les comparto en este enlace, el ejercicio de nomina y horas extras, con la jornada laboral de 46 horas semanales. kzfaq.info/get/bejne/Y7uVp9Bpy8qyeGg.htmlsi=kpBfDynh3sRDbq1X

Hola cómo están, les comparto en este enlace el vídeo de la liquidación de nómina y horas extras cuando la jornada máxima semanal es de 47 horas. kzfaq.info/get/bejne/iZuUgJqoyrWoeYk.htmlsi=14PCawDQjP--P14e

Excelente explicacion gracias

Querida red, les comparto link de vídeo donde pueden automatizar elaboración de medios magnéticos nacionales: kzfaq.info/get/bejne/q59lZ7Niu9XNop8.html

ESTE FORMULARIOL YA ESTA EN FIRME

Hola a todos acá les dejo en link del video formato 2516, espero les sea de gran utilidad. kzfaq.info/get/bejne/r6mVbM-B2Kqrpnk.htmlsi=wjQM7MD6r16wLyDI

Al principio no entendí, y al final tampoco.

HOLA LA COLUMNA SALE EN BLANCO

Super la Explicación👍🏻👍🏻

Hola @fabianch12 el factor de recargo nocturno esta correcto es 2.1 los valores se suman el 1.75+0.35

Buenas noches excelente explicacion seria posible que me puedas facilitar el excel muchas gracias

Excelente explicacion

Buen video! Cómo puedo hacer si tengo documentos con diferentes estructuras e información y quiero ponerlos en un mismo documento Excel pero en diferentes hojas del mismo? Gracias!

Hola como están, les comparto los códigos para que los puedan ejecutar. Sub clock() Application.OnTime Now + TimeValue("00:00:01"), "clock" ActiveSheet.Calculate End Sub ___________________________________________________________ Sub DetenerClock() On Error Resume Next Application.OnTime Now + TimeValue("00:00:01"), "clock", , False On Error GoTo 0 End Sub

Mil gracias por sus videos, ante todo actualizado, siga adelante con seguridad y certeza, saludos bendiciones

Saludos como puedo agregar la seleccion o texto de un pdf a una tabla o campo . (Nota el PDF TIENE VARIA PAGINA Y SOLO ME PERMITE LA PRIMERA PAGINA)

comparte el archivo

Hola , excelente , Como crear un excel por cada pdf que envie en vez de llenar un archivo de excel existente?

Hola , excelente , Como crear un excel por cada pdf que envie?

Donde están los videos anteriores de los que hablas en este video

Hola Jolian gracias por el video!. Veo que este método es utilizando un mismo tipo de documento ¿sabes si puedo automatizar en caso de recibir documentos estructurados pero donde la ubicación de los campos varíen?

Hola como están, les comparto el código de la macro, para que puedan practicar el ejercicio: Sub SepararNumerosLetrasCaracteresEspeciales() Dim rng As Range Dim cell As Range Dim letras As String Dim numeros As String Dim especiales As String ' Establecer el rango de celdas para separar Set rng = Range("A2:A50") ' Cambia el rango según tus necesidades ' Iterar a través de cada celda en el rango For Each cell In rng letras = "" numeros = "" especiales = "" ' Separar los números, las letras y los caracteres especiales For i = 1 To Len(cell.Value) If IsNumeric(Mid(cell.Value, i, 1)) Then numeros = numeros & Mid(cell.Value, i, 1) ElseIf Asc(Mid(cell.Value, i, 1)) >= 65 And Asc(Mid(cell.Value, i, 1)) <= 90 Or _ Asc(Mid(cell.Value, i, 1)) >= 97 And Asc(Mid(cell.Value, i, 1)) <= 122 Then letras = letras & Mid(cell.Value, i, 1) Else especiales = especiales & Mid(cell.Value, i, 1) End If Next i ' Escribir los resultados en columnas adyacentes cell.Offset(0, 1).Value = letras ' Columna adyacente para letras cell.Offset(0, 2).Value = numeros ' Columna adyacente para números cell.Offset(0, 3).Value = especiales ' Columna adyacente para caracteres especiales Next cell End Sub

@jolian7743, buenos días, serias tan amable si nos puedes hacer el favor de compartir esa plantilla de Excel. muchas gracias

Super el video. Gracias

Hola como están, les comparto la macro para que puedan hacer el ejercicio: Sub Contabilizar() ' ' Contabilizar Macro ' ' Sheets("Conta").Select Range("I3").Select ActiveCell.FormulaR1C1 = "=+R[6]C[-6]" Range("I4").Select ActiveCell.FormulaR1C1 = "=+R[5]C[-6]*R[6]C[-6]" Range("H5").Select ActiveCell.FormulaR1C1 = "=+R[4]C[-5]*R[6]C[-5]" Range("H6").Select ActiveCell.FormulaR1C1 = "=+R[3]C[-5]*R[6]C[-5]" Range("H7").Select ActiveCell.FormulaR1C1 = "=+(R[-4]C[1]+R[-3]C[1]-R[-2]C-R[-1]C)* R[6]C[-5]" Range("H8").Select ActiveCell.FormulaR1C1 = "=+R[-5]C[1]+R[-4]C[1]-R[-3]C-R[-2]C-R[-1]C" Range("H13").Select ActiveCell.FormulaR1C1 = "=+R[-4]C[-5]" Range("H14").Select ActiveCell.FormulaR1C1 = "=+R[-5]C[-5]*R[-4]C[-5]" Range("I15").Select ActiveCell.FormulaR1C1 = "=+R[-6]C[-6]*R[-4]C[-6]" Range("I16").Select ActiveCell.FormulaR1C1 = "=+R[-7]C[-6]*R[-4]C[-6]" Range("I17").Select ActiveCell.FormulaR1C1 = "=+(R[-4]C[-1]+R[-3]C[-1]-R[-2]C-R[-1]C)* R[-4]C[-6]" Range("I18").Select ActiveCell.FormulaR1C1 = "=+R[-5]C[-1]+R[-4]C[-1]-R[-3]C-R[-2]C-R[-1]C" Range("I19").Select End Sub

Hola cómo están, les comparto el código de la macro para que lo puedan ejecutar y practicar. Sub Dgantt() ' ' Dgantt Macro ' ' Sheets("Gantt").Select Range("B5:F11").Select ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select ActiveChart.SetSourceData Source:=Range("Gantt!$B$5:$F$11") ActiveChart.ChartColor = 11 ActiveSheet.Shapes("Chart 5").IncrementLeft 128.6363779528 ActiveSheet.Shapes("Chart 5").IncrementTop -6.8181889764 Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False ActiveChart.FullSeriesCollection(1).Delete ActiveChart.FullSeriesCollection(1).Delete ActiveChart.FullSeriesCollection(1).Delete ActiveChart.FullSeriesCollection(1).Delete ActiveChart.SeriesCollection.NewSeries ActiveChart.FullSeriesCollection(1).Values = "=Gantt!$D$5:$D$11" ActiveChart.SeriesCollection.NewSeries ActiveChart.FullSeriesCollection(2).Values = "=Gantt!$E$5:$E$11" ActiveChart.FullSeriesCollection(2).XValues = "=Gantt!$B$5:$B$11" ActiveChart.FullSeriesCollection(1).Select Application.CommandBars("Format Object").Visible = False ActiveChart.Axes(xlCategory).Select Selection.Format.Fill.Visible = msoFalse ActiveChart.Axes(xlCategory).ReversePlotOrder = True Application.CommandBars("Format Object").Visible = False ActiveChart.ChartArea.Select Application.CommandBars("Format Object").Visible = False End Sub

Muchas gracias, por tu aporte

No me sale el numero de páginas, queda en blanco

Buenas noches, qué precio tiene el anexo?

Hola como están, les comparto el código para que lo puedan ejecutar y practicar. Sub Dividendos() ' ' Dividendos Macro ' ' Sheets("Dividendos").Select Range("F9").Select ActiveCell.FormulaR1C1 = _ "=+ROUND((IF(RC[-1]<=1090,0,0)+IF(RC[-1]>1090,(RC[-1]-1090)*15%,0))*R[-3]C,-3)" End Sub

Como están todos, les comparto el código para que lo puedan ejecutar y practicar. Sub TRenta() ' ' TRenta Macro ' ' Sheets("Renta").Select Range("C10").Select ActiveCell.FormulaR1C1 = _ "=+ROUND((IF(R[-1]C<=1090,0,0)+IF(AND(R[-1]C>1090,R[-1]C<=1700),(R[-1]C-1090)*19%,0)+IF(AND(R[-1]C>1700,R[-1]C<=4100),((R[-1]C-1700)*28%)+116,0)+IF(AND(R[-1]C>4100,R[-1]C<=8670),((R[-1]C-4100)*33%)+788,0)+IF(AND(R[-1]C>8670,R[-1]C<=18970),((R[-1]C-8670)*35%)+2296,0)+IF(AND(R[-1]C>18970,R[-1]C<=31000),((R[-1]C-18970)*37%)+5901,0)+IF(R[-1]C>31000,((R[-1]C-31000)*39%)+1" & _ "0352,0))*R[-6]C,-3)" & _ "" End Sub

Hola como están, les dejo el código para que puedan practicar el ejercicio. Sub FSP() ' ' FSP Macro ' ' Sheets("FSP").Select Range("G6").Select ActiveCell.FormulaR1C1 = _ "=+IF(AND((RC[-1]>=(R4C[1]*4)),(RC[-1]<(16*R4C[1]))),RC[-1]*1%,0)+IF(AND((RC[-1]>=(R4C[1]*16)),(RC[-1]<=(17*R4C[1]))),RC[-1]*1.2%,0)+IF(AND((RC[-1]>(R4C[1]*17)),(RC[-1]<=(18*R4C[1]))),RC[-1]*1.4%,0)+IF(AND((RC[-1]>(R4C[1]*18)),(RC[-1]<=(19*R4C[1]))),RC[-1]*1.6%,0)+IF(AND((RC[-1]>(R4C[1]*19)),(RC[-1]<=(20*R4C[1]))),RC[-1]*1.8%,0)+IF(RC[-1]>(R4C[1]*20),RC[-1]*2%,0)" End Sub

Hola como están, les comparto el código: Sub Retencion() ' ' Retencion Macro ' ' Sheets("Retencion").Select Range("C11").Select ActiveCell.Formula2R1C1 = _ "=+ROUND((IFS(R[-1]C<95,0,AND(R[-1]C>=95,R[-1]C<150),(R[-1]C-95)*19%,AND(R[-1]C>=150,R[-1]C<360),((R[-1]C-150)*28%)+10,AND(R[-1]C>=360,R[-1]C<640),((R[-1]C-360)*33%)+69,AND(R[-1]C>=640,R[-1]C<945),((R[-1]C-640)*35%)+162,AND(R[-1]C>=945,R[-1]C<2300),((R[-1]C-945)*37%)+268,R[-1]C>2300,((R[-1]C-2300)*39%)+770))*R4C3,-3)" End Sub