-
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.
Antoni's Achievements
-
Benito Bartolomé reacted to a post in a topic: Cargar rango en un textBox
-
ANSWERED Cargar rango en un textBox
Antoni replied to Benito Bartolomé's topic in Macros y programación VBA
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 -
ANSWERED sintaxis de código fuente
Antoni replied to chiquitinx's topic in Macros y programación VBA
Set Cache_Tabla = ActiveWorkbook.PivotCaches.Add(xlDatabase, Rango_Tabla.Address) -
chiquitinx reacted to a post in a topic: sintaxis de código fuente
-
Benito Bartolomé reacted to a post in a topic: Cargar rango en un textBox
-
ANSWERED Cargar rango en un textBox
Antoni replied to Benito Bartolomé's topic in Macros y programación VBA
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 -
JSDJSD reacted to a post in a topic: sintaxis de código fuente
-
ANSWERED sintaxis de código fuente
Antoni replied to chiquitinx's topic in Macros y programación VBA
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) -
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
-
ANSWERED Copiar rango de una hoja y pegarlo en la hoja activa.
Antoni replied to repa2m1's topic in Macros y programación VBA
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 -
ANSWERED Copiar rango de una hoja y pegarlo en la hoja activa.
Antoni replied to repa2m1's topic in Macros y programación VBA
Guarda el archivo como .xlsx y se eliminarán todas las macros. -
ANSWERED Copiar rango de una hoja y pegarlo en la hoja activa.
Antoni replied to repa2m1's topic in Macros y programación VBA
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 -
roa30 reacted to a post in a topic: Agregar datos a una columna fila por fila
-
ANSWERED Agregar datos a una columna fila por fila
Antoni replied to roa30's topic in Macros y programación VBA
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 -
roa30 reacted to a post in a topic: Error al seleccionar una fila luego de encontrar un valor por el metodo .find
-
roa30 reacted to a post in a topic: Error al seleccionar una fila luego de encontrar un valor por el metodo .find
-
roa30 reacted to a post in a topic: Error al seleccionar una fila luego de encontrar un valor por el metodo .find
-
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
-
Antoni reacted to a post in a topic: For each me trae solo el primer registro
-
roa30 reacted to a post in a topic: For each me trae solo el primer registro
-
ANSWERED For each me trae solo el primer registro
Antoni replied to roa30's topic in Macros y programación VBA
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 -
ANSWERED Ayuda con formato de numeros - "Format"
Antoni replied to xinortiz's topic in Macros y programación VBA
No se, pero creo que te complicas la vida, pasa los valores sin formatear y hazlo en la hoja. -
xinortiz reacted to a post in a topic: Eliminar fila de Tabla isn alterar otros datos
-
ANSWERED Eliminar fila de Tabla isn alterar otros datos
Antoni replied to xinortiz's topic in Macros y programación VBA
Básicamente sí, con algún "detallito" a tener en cuenta, Guardar datos (1).xlsm