Jump to content

Antoni

Members
  • Posts

    11,318
  • Joined

  • Last visited

  • Days Won

    788

Antoni last won the day on June 21

Antoni had the most liked content!

About Antoni

  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1)

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Private Sub OptionButton1_Click(): On Error Resume Next '<------------ Dim vRnango As Range Set vRnango = Application.InputBox _ (prompt:="Seleccionar el rango a copiar", Title:="Seleccionar ", Default:="A2", Type:=8) If Not vRnango Is Nothing Then '<------------ vRnango.Copy TextBox5.SetFocus SendKeys "^v" DoEvents Application.CutCopyMode = False End If
  2. Set Cache_Tabla = ActiveWorkbook.PivotCaches.Add(xlDatabase, Rango_Tabla.Address)
  3. Private Sub UserForm_Initialize() TextBox5.MultiLine = True End Sub '--------------------------------- Private Sub OptionButton1_Click() Dim vRnango As Range Dim vTitulo As String vTitulo = "Seleccionar " Set vRnango = Application.InputBox _ (prompt:="Seleccionar el rango a copiar", Title:=vTitulo, Default:="A2", Type:=8) vRnango.Copy TextBox5.SetFocus SendKeys "^v" DoEvents Application.CutCopyMode = False End Sub
  4. El nombre de los parámetros de cualquier método de un objeto es opcional y puede ser sustituido por comas, en el ejemplo que pones la sintaxis de set dato =.cells.find(nombre, xlwhole) es incorrecta, ya que xlwhole correspondería al segundo parámetro y no al cuarto que es el correcto, así pues la forma correcta sería: set dato =.cells.find(nombre, , , xlwhole). Y por último, este método, como todos, si se codifica correctamente, funciona en cualquier versión de Excel, sea de 32 bits o 64 bits La sintaxis del método Find es: .Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
  5. Con formato condicional, no he podido resolverlo, pero te dejo una macro en la hoja leyenda. Selecciona un valor de la lista de validación de la celda B10. EJEMPLO FORMATO CONDICIONAL.xlsm
  6. A ver: Abrir el archivo Guardar como .xlsm Al mensaje contestar Si: Cerrar Excel Abrir el archivo .xlsx Añadir las macros necesarias Guardar como .xlsm Y listo
  7. Guarda el archivo como .xlsx y se eliminarán todas las macros.
  8. Si te he entendido: Sub Inserta_1() Sheets("P01").Range("B21:J55").Copy Range("B21") Range("L10").Select End Sub Sub Inserta_2() Sheets("P02").Range("B21:J55").Copy Range("B21") Range("L10").Select End Sub Sub Inserta_3() Sheets("P03").Range("B21:J55").Copy Range("B21") Range("L10").Select End Sub
  9. Otra opción, para mi, más clara. Sub FechaJuliana() Dim x As Long Application.ScreenUpdating = False With Sheets("registros") For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("AK" & x) = Empty Then .Range("AK" & x) = .Range("E" & x) + .Range("F" & x) End If Next End With End Sub
  10. Si no calificas el rango se asume la hoja activa, mientras esta sea la que quieres, bien, pero si activas otra hoja, dejará de funcionar, además, si utilizas With es para calificar el rango, si no, ¿Qué sentido tiene?
  11. Si el rango es el resultado de una fórmula, hay que especificar el parámetro LookIn en el Find. También te habías olvidado de calificar el rango, el With creo que estaba incorrecto, al igual que el nombre de la variable de la fila. Creo que la cosa va por ahí. With Sheets("BDCapturasMuertos") Set filaseleccionada = .Range("A2:A" & ufila).Find(What:=valor_buscado, LookIn:=xlValues, LookAt:=xlWhole) linea = filaseleccionada.row
  12. Tranquila, nos ha pasado a todos 😂; ...... ....... evalua el tipo de registro si es huellas o fecas--------------------- hD.Cells(uf, 10).Value = celda.Offset(0, 26) hD.Cells(uf, 23).Value = celda.Offset(0, 42) hD.Cells(uf, 12).Value = celda.Offset(0, 43) uf =uf +1 End If Next celda
  13. No se, pero creo que te complicas la vida, pasa los valores sin formatear y hazlo en la hoja.
  14. Básicamente sí, con algún "detallito" a tener en cuenta, Guardar datos (1).xlsm
×
×
  • Create New...

Important Information

Privacy Policy