-
Content Count
10,753 -
Joined
-
Last visited
-
Days Won
665
Antoni last won the day on February 28
Antoni had the most liked content!
About Antoni

-
Rank
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.
-
avalencia reacted to a post in a topic: ENIAC (Electronic Numerical Integrator And Computer)
-
Antoni reacted to a post in a topic: RowSource dinámico a la derecha (al insertar columnas)
-
Private Sub CommandButton1_Click() Dim Celda As Range, x As Long Application.ScreenUpdating = False For x = 2 To Range("A" & Rows.Count).End(xlUp).Row Range("K" & x) = "" Set Celda = Sheets("Sheet2").Columns("A").Find(Range("A" & x), , , xlWhole) If Not Celda Is Nothing Then Range("K" & x) = Celda.Offset(0, 1) Next End Sub
-
jalomiva reacted to a post in a topic: Macro imprime listbox, crea una hoja y posteriormente la elimina después de imprimir
-
Antoni reacted to a file: Juego Trabado
-
Antoni reacted to a post in a topic: Modificar datos desde ListBox que tiene la propiedad RowSource
-
Modificar datos desde ListBox que tiene la propiedad RowSource
Antoni replied to Jezreel's topic in Macros y programación VBA
Borra la propiedad RowSource antes de actualizar y vuelve a establecerla después. -
Silvia reacted to a post in a topic: Mantener la celda activa en la misma posición de la pantalla
-
ANSWERED Mantener la celda activa en la misma posición de la pantalla
Antoni replied to Antoni's topic in Excel General
Mi consulta está mal planteada, porqué realmente no es lo que debería haber preguntado. Todo viene a raiz de una consulta telefónica que me hizo mi hija y la interpreté mal. Realmente la consulta debería haber sido: Al pulsar las teclas de dirección se desplazan las filas/columnas en lugar de hacerlo las celdas. La respuesta es que se ha pulsado la tecla Block Despl. -
Antoni reacted to a post in a topic: Mantener la celda activa en la misma posición de la pantalla
-
Antoni reacted to a post in a topic: Mantener la celda activa en la misma posición de la pantalla
-
Necesito mover varias hojas a un nuevo libro
Antoni replied to Tannya's topic in Macros y programación VBA
Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\STOCK.xlsm" Workbooks.Open ThisWorkbook.Path & "\STOCK.xlsm" 'Abre la copia With ActiveWorkbook .Sheets(2).Delete .Sheets(1).Delete .Save '<-- Guarda la copia después de eliminar las hojas .Close '<-- Cierra la copia después de guardarla End With -
Jose BN reacted to a post in a topic: boton para eliminar datos
-
Private Sub CommandButton11_Click() Dim Descarga As Range Set Descarga = Sheets("Hoja2").Columns("C").Find(TextBox2, lookat:=xlWhole) If Not Descarga Is Nothing Then Descarga.EntireRow.Delete CommandButton6_Click End If End Sub '--------- Private Sub CommandButton6_Click() TextBox2.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox16.Text = "" TextBox17.Text = "" TextBox18.Text = "" TextBox19.Text = "" TextBox20.Text = "" TextBox23.Text = "" '<-------------------- estaba mal TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio End
-
Necesito mover varias hojas a un nuevo libro
Antoni replied to Tannya's topic in Macros y programación VBA
Haz una copia del archivo. Cambiale el nombre Elimina las hojas 1 y 2 -
Benito Bartolomé reacted to a post in a topic: Consulta no respeta campos vacíos.
-
Consulta no respeta campos vacíos.
Antoni replied to Benito Bartolomé's topic in Macros y programación VBA
El problema de usarOn Error Resume Next es que no te enteras del error, ya que simplemente se lo salta. Este es el error real: En la medida de lo posible, debes evitar que queden a Null los datos de la base de datos. Para arreglar el tema debes hacer 2 cosas, borrar los textbox antes de llenarlos y condicionar todos los datos que pueden tener el valor Null. Al inicio del procedimiento NewDoc: Dim x As Long For x = 0 To 12: Controls("TextBox" & x) = "": Next y luego por cada dato susceptible de contener Null, proceder así: If N -
pajuma reacted to a post in a topic: LLenar posiciones de Textbox de acuerdo al checkbox seleccionado, con el resultado de un Listbox
-
Debe ser la última línea del procedimiento CommandButton1_Click() inmediatamente antes de la sentencia End Sub