Antoni

Abre el adjunto y pulsa sobre la flecha azul. Vlookup (prueba2).xlsm

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.

El código que te he suministrado sustituye al que hay en la hoja Sheet1.

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

With ActiveSheet.PageSetup .Orientation = xlLandscape .PrintArea = "$A$1:$J$" & uf + 4.FitToPagesWide = 1.FitToPagesTall = 1End With

Sube tu archivo y explica con un ejemplo lo que tienes y lo que quieres conseguir.

Borra la propiedad RowSource antes de actualizar y vuelve a establecerla después.

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.

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?.

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

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

Haz una copia del archivo. Cambiale el nombre Elimina las hojas 1 y 2

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

Debe ser la última línea del procedimiento CommandButton1_Click() inmediatamente antes de la sentencia End Sub

Yo he entendido esto. formulario_Muestra2.xlsm