Jump to content

Antoni

Members
  • 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.

  1. Abre el adjunto y pulsa sobre la flecha azul. Vlookup (prueba2).xlsm
  2. Tu macro se ejecuta a través de un botón en la hoja Sheet1. Esta macro debe estar en la hoja, no en un módulo. Sube tu archivo tal como lo tienes en la actualidad, porqué lo último que cuentas en relación a los rangos, no tiene nada que ver con tu petición inicial.
  3. El código que te he suministrado sustituye al que hay en la hoja Sheet1.
  4. 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
  5. With ActiveSheet.PageSetup .Orientation = xlLandscape .PrintArea = "$A$1:$J$" & uf + 4.FitToPagesWide = 1.FitToPagesTall = 1End With
  6. Borra la propiedad RowSource antes de actualizar y vuelve a establecerla después.
  7. 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.
  8. Con macros, se como hacerlo, pero, ¿Existe alguna tecla de función o atajo del teclado que al desplazarse por la hoja, la celda activa esté siempre en la misma posición de la pantalla?.
  9. 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
  10. 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
  11. Haz una copia del archivo. Cambiale el nombre Elimina las hojas 1 y 2
  12. 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
  13. Debe ser la última línea del procedimiento CommandButton1_Click() inmediatamente antes de la sentencia End Sub
×
×
  • Create New...

Important Information

Privacy Policy