Jump to content

rolano

Members
  • Content Count

    1,202
  • Joined

  • Last visited

  • Days Won

    10

Everything posted by rolano

  1. Buenas con todos, Encontré la solución algo chapuzado. Si hay otra opción bienvenido. let EdadCum = (tudia as date)=> let iniciofecha= if tudia>Date.From(DateTime.LocalNow()) then null else tudia, MiAnio=Number.RoundDown(Duration.TotalDays(Date.From(DateTime.LocalNow()) - iniciofecha)/365), mes1=Date.Month(Date.From(DateTime.LocalNow()))-Date.Month(Date.AddYears(iniciofecha,MiAnio)), mimess=if mes1<=0 then 12-(1-mes1) else if Date.Day(Date.From(DateTime.LocalNow()))<Date.Day(Date.AddYears(iniciofecha,MiAnio)) then mes1-1 else
  2. Estimados, Buenas noches, Requiero de su ayuda, con una función en Power Query, de un post de la web, estoy tratando de modificar, que me calcule la edad en años, meses y días, dando como parámetros una fecha de nacimiento y la fecha actual. En el enlace solo esta en años y meses. Según en mi archivo, lo que esta resaltado con amarillo no es igual a la columna anterior(esta hecha con formula SIFECHA(). Muy agradecido de antemano. Web de ejemplo Función del post (yourdate as date)=> let startdate= if yourdate>Date.From(DateTime.LocalNow()) th
  3. Hola Marcosab, revisa el adjunto. Puedes explicar un poco mas con ejemplo. Datos.ro.rar
  4. Hola Maurizio, revisa el adjunto haber si lo he atinado. Crea_Password.rar
  5. Hola Antoni un gusto saludarte, allí debería ser hoja3 y no hoja1, ahora lo que hice es poner manualmente el numero de serie disco C en la hoja3 celda Range("B100000").
  6. Hola a todos, tu archivo no abre porque tienes que tienes que colocar el numero de serie de tu disco C en la hojas. CONTROL RECONOCIMIENTO DE COMPUTADOR.xlsm
  7. Sub Apri_Tabella() On Error Resume Next DoCmd.Close DoCmd.OpenTable "Tabella_Database", acViewNormal End Sub Hola, revisa este código.
  8. Hola, revisa el archivo adjunto, ingrese con el usuario Maury. Crea_Password.accdb
  9. Hola, pueda que te sirva takeout google. https://www.youtube.com/watch?v=crMZi2Lk5WI
  10. Public Declare PtrSafe Function SetTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long 'LongPtr cambialo por Long Hola a todos, es esta parte cambia LongPtr por Long, a mi me funciona as´s.
  11. Option Explicit Option Base 1 'EXPORTAR DATOS Sub Botón3_Haga_clic_en_R() 'On Error GoTo etiqueta Application.ScreenUpdating = False Dim vehiculo As String, fila As Long, colum As Long Dim NCarga As String, FechaSalida As String, FechaLlegada As String, PoblaciónOrigen As String, PoblaciónDestino As String Dim KmsNac As Integer, KmsInt As Integer, Precioventa As Double, PrecioKmsNac As Double, PrecioKmsInt As Double Dim filadest As Integer, columdest As Integer Dim pasardatos As Long, ultimafila As Long Dim Hoja As String Dim listacamioneskm() As String, i As Integer, matriz As Range Dim C
  12. Hola, como relacionas tu tabla Hoja(GS") y Hoja("listacamioneskm") o Hoja("listacamioneskms"). En tu Hoja("GS") deberías insertar en la columna "A" Vehículo y sus respectivos números. Porque para extraer la informacion de la Hoja(GS") a las Hoja("1111") y sucesivo, se necesita que en la Hoja(GS") tenga una relación con las otras hojas. Después Option Explicit coloca Option Base 1
  13. 'Copia los datos de la celda list box a = ListBox1.ListCount ListBox1.AddItem ListBox1.List(a, 0) = Sheets("bd").Cells(fila, 2) ListBox1.List(a, 1) = Sheets("bd").Cells(fila, 3) ListBox1.List(a, 2) = Sheets("bd").Cells(fila, 4) ListBox1.List(a, 3) = Sheets("bd").Cells(fila, 7) ListBox1.List(a, 4) = Sheets("bd").Cells(fila, 8) ListBox1.List(a, 5) = Sheets("bd").Cells(fila, 9) ListBox1.List(a, 6) = Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar ListBox1.List(a, 7) = Format(Sheets("bd").Cells(fila, 13), "$#
  14. option base 1 for x = 1 to 23 If vehiculo = listacalidad(x) then 'codigo end if Hola, prueba con este código.
  15. Sub FC() Range("C3").Copy Range(A2:A6).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'copia el formato condicional de la celda C3 a las celdas A2:A6 End Sub Sub FormatoCondicional() With Range("$A$1:$A$5").FormatConditions .Delete .Add(xlExpression, , "Formula1") .Item(1).Interior.Color = Range("C3").Interior.Color .Item(1).Font.Bold = True .Item(1).Font.ColorIndex = 2 End With End Sub Hola, prueba con estas modificaciones.
  16. Hola, se mas explicito, donde no te funcionó. Tienes que ver que el comentario este en la celda del código y el texbox.
  17. n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0) If n = "" Then MsgBox " Sin Dato " else Me.cbo_Tipo.Clear For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn) Me.cbo_Tipo.AddItem sh.Cells(i, n).Value Next i en If Hola, revisa el código.
  18. TextBox1 = Range("A7").Comment.Text Hola prueba así.
  19. Hola, donde te da el error. Recuerda que en el archivo origen donde esta la macro tienes que tener una hoja con nombre "analysis" y en el archivo destino una hoja con nombre "sheet1".
  20. Sub AleaIactaEst() Dim cuant As Integer: cuant = Range("B1") Dim aleat As Integer Dim r As Range: Set r = Range("F2:F15") Dim q, i As Integer Worksheets(1).Range("F2:H15").ClearContents '-------------------------------------------------------------------------------------- 'Aleatorios '-------------------------------------------------------------------------------------- q = 0 Do aleat = Application.WorksheetFunction.RandBetween(Range("B2"), Range("B3")) q = q + 1: If q > cuant Then Exit Do r(q, 1) = aleat If q > 1 Then For i = 1 To q - 1 If r(i, 1) = aleat T
  21. ActiveWorkbook.Sheets(1).ChartObjects("Grafico_1").Select Hola, prueba así
  22. 'Option Explicit Option Base 1 Public Sub VENTAS_SECCION_MES() Dim sql As String, SheetName As String Dim AÑO, CENTRO, SECCION, MES As String Dim strConectar As String Sheets("Ventas").Select Range("C5").Select Application.ScreenUpdating = False AÑO = Range("C2").Value CENTRO = Range("A3").Value MES = Range("C3").Value SECCION = ActiveCell.Offset(0, -2).Value 'Application.Cursor = xlWait Dim wb As Workbook, ws As Worksheet 'Venta de un año, un mes, una tienda y una sección sql = "SUM[TOT_VENTAS]) AS TOTAL_VENTAS FROM PRESUPUESTO_VENTAS WHERE,[ANYO]
  23. 'Option Explicit Option Base 1 Public Sub VENTAS_SECCION_MES() Dim SheetName As String Dim strConectar As String Dim ws As Worksheet Dim wb As Workbook Dim Cmd As ADODB.Command Dim Rs As ADODB.Recordset Application.ScreenUpdating = False Sheets("Ventas").Select 'Range("C5").Select Application.Cursor = xlWait SheetName = "Ventas" Set wb = ActiveWorkbook Set ws = wb.ActiveSheet ws.Name = SheetName ' Poner los datos particulares de la conexión Dim Con As New ADODB.Connection Con.Open "provider=IBMDA400;data source=172.16.1.1;Default Collection=-----;U
  24. Hola Cecilio, adjunto el código para que lo reescribas en tu proyecto.
  25. Sub MAC() Application.ScreenUpdating = False Set H1 = Sheets("Hoja1") Set H2 = Sheets("Hoja3") ultimfb = H2.Range("B" & Rows.Count).End(xlUp).Row + 1 H2.Range("B4" & ": AV" & ultimfb).Clear H1.Activate Range("A9").Select Do While ActiveCell <> "FIN" If Len(ActiveCell.Value) = 6 Then ultimfd = H2.Range("B" & Rows.Count).End(xlUp).Row + 1 ActiveCell.Offset(0, 0).Copy H2.Range("B" & ultimfd).PasteSpecial xlValues End If ActiveCell.Offset(1, 0).Select Loop H2.Activate 'ultimf = Range("AV" & Rows.Count).End(xlUp).
×
×
  • Create New...

Important Information

Privacy Policy