Jump to content

rolano

Members
  • Content Count

    1,200
  • Joined

  • Last visited

  • Days Won

    10
  • Country

    Peru

rolano last won the day on March 2

rolano had the most liked content!

1 Follower

About rolano

  • Rank
    César Rolando
  • Birthday 10/24/1973

Contact Methods

  • Website URL
    http://excelilove.blogspot.com/
  • Facebook
    tiradocesar@outlook.com
  • Twitter
    Cesar_Tirado

Profile information

  • Gender
    Hombre
  • Localización:
    Perú
  • Interests
    Ajedrez y Baloncesto

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2,4

Recent Profile Visitors

893 profile views
  1. Hola Marcosab, revisa el adjunto. Puedes explicar un poco mas con ejemplo. Datos.ro.rar
  2. Hola Maurizio, revisa el adjunto haber si lo he atinado. Crea_Password.rar
  3. 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").
  4. 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
  5. Sub Apri_Tabella() On Error Resume Next DoCmd.Close DoCmd.OpenTable "Tabella_Database", acViewNormal End Sub Hola, revisa este código.
  6. Hola, revisa el archivo adjunto, ingrese con el usuario Maury. Crea_Password.accdb
  7. Hola, pueda que te sirva takeout google. https://www.youtube.com/watch?v=crMZi2Lk5WI
  8. 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.
  9. 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 CantFila As Long Dim HojaEstado As Object 'funciona Worksheets("listacamioneskm").Select CantFila = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("A1:A" & CantFila).Select 'funciona i = 1 For Each matriz In Selection ReDim Preserve listacamioneskm(CantFila) listacamioneskm(i) = matriz.Value i = i + 1 Next matriz fila = 2 colum = 0 'filadest = 2 columdest = 1 Do Worksheets("GS").Select 'hoja = Cells(fila, colum + 1).Value 'fila 2, columna 1 vehiculo = Cells(fila, 1).Value If vehiculo = "" Then Exit Sub If UBound(Filter(listacamioneskm, vehiculo)) >= 0 Then vehiculo = Cells(fila, 1).Value NCarga = Cells(fila, 2).Value FechaSalida = Cells(fila, 3).Value FechaLlegada = Cells(fila, 4).Value PoblaciónOrigen = Cells(fila, 5).Value PoblaciónDestino = Cells(fila, 6).Value KmsNac = Cells(fila, 7).Value KmsInt = Cells(fila, 8).Value Precioventa = Cells(fila, 9).Value PrecioKmsNac = Cells(fila, 10).Value PrecioKmsInt = Cells(fila, 11).Value 'enviamos datos 'hay que enviar antes de que salte de fila Worksheets(vehiculo).Select filadest = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Sheets(vehiculo).Cells(filadest + 1, columdest).Value = vehiculo Sheets(vehiculo).Cells(filadest + 1, columdest + 1).Value = NCarga Sheets(vehiculo).Cells(filadest + 1, columdest + 2).Value = FechaSalida Sheets(vehiculo).Cells(filadest + 1, columdest + 3).Value = FechaLlegada Sheets(vehiculo).Cells(filadest + 1, columdest + 4).Value = PoblaciónOrigen Sheets(vehiculo).Cells(filadest + 1, columdest + 5).Value = PoblaciónDestino Sheets(vehiculo).Cells(filadest + 1, columdest + 6).Value = KmsNac Sheets(vehiculo).Cells(filadest + 1, columdest + 7).Value = KmsInt Sheets(vehiculo).Cells(filadest + 1, columdest + 8).Value = PrecioKmsNac Sheets(vehiculo).Cells(filadest + 1, columdest + 9).Value = PrecioKmsInt Sheets(vehiculo).Cells(filadest + 1, columdest + 10).Value = Precioventa End If fila = fila + 1 Loop While vehiculo <> "" Application.ScreenUpdating = True End Sub Hola a todos, es tu misma rutina (Módulo3), con algunas modificaciones,. revisalo. Si tienes otra pregunta abre un nuevo tema para que tengas mas oportunidad de ayuda. MACROMod.xlsm
  10. 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
  11. '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), "$###,##0") 'Cambiar ListBox1.List(a, 8) = Format(Sheets("bd").Cells(fila, 14), "$###,##0") 'Cambiar ListBox1.List(a, 9) = Format(Sheets("bd").Cells(fila, 15), "$###,##0") 'Cambiar Hola, cambia en el fila 10, 13, 14 y 15 (Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar)
  12. option base 1 for x = 1 to 23 If vehiculo = listacalidad(x) then 'codigo end if Hola, prueba con este código.
  13. 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.
  14. Hola, se mas explicito, donde no te funcionó. Tienes que ver que el comentario este en la celda del código y el texbox.
  15. 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.
×
×
  • Create New...

Important Information

Privacy Policy