Alberto Pereda

James Bond respondió: ya intentaste rangodatos.AutoFilter field:=textbox1.text, Criteria1:=textbox2.text?

Prueba esto: Sub borrar() Hoja2.Select Range("a:a,b:b,f:f,j:j,l:l,m:m,n:n,o:o,p:p,q:q,r:r,s:s,t:t,u:u,v:v,w:w,x:x,y:y").Select Selection.Delete End Sub

James Bond respondió: En la imagen puedes ver el resultado de la macro y como esta construido el formulario, la numeración ocurren en A2 hasta A502 en este caso, en los textbox1 tu indicas a partir de que numero va ser el consecutivo y en el textbox hasta donde se...

Bueno podrías usar la siguiente macro: En la Hoja: ------------------------------------------------------------- Private Sub worksheet_selectionchange(ByVal Target As Range) If Range("G8") = 0 Then Call borrar End Sub...

jrgces respondió: Prueba con este código en una copia del libro, por si no hace lo que necesitas: Sub prueba() Dim wksP As Worksheet Set wksP = Worksheets("PENDIENTES") Dim lFin As Long, lBucle As Long lFin = wksP.[A1000000].End(xlUp).Row For lBucle = 2 To lFin If...

Tal vez esto rte sirva: Private Sub CommandButton1_Click() Dim File As String File = "Ruta de la carpeta" & Val(TextBox1) Call Shell("explorer.exe " & File, vbNormalFocus) End Sub En el TextBox1 escribes el nombre de la carpeta que buscas.

Programar Excel respondió: Quizás algo de esto te ayude https://www.programarexcel.com/2013/04/formulario-colorea-celdas.html Fijate que lo que hace es buscar el dato y colorear la fila, tu ahí debes escribir lo que la macro debe hacer. Estos ejemplos también busca datos...

Elsa Matilde respondió: Con tan poca información estoy agregando algo de imaginación... veamos: Si utilizas Subtotales imagino que será porque tienes una tabla con filtros. Entonces al filtrar por Categoría se te mostrará el subtotal de Stock, como en la imagen: Si esto no...

Elsa Matilde respondió: Si lo que deseas obtener son los registros de la hoja del usuario ... paso 1 Si lo que deseas obtener son los registros de hoja DATOS pero de cierto usuario ... paso 2. 1) No se comprende el papel del label... pero si seleccionas el usuario desde el...

Tal vez es esto lo que buscas: Sub Insertar() Dim fila As Integer fila = ActiveCell.Row If fila < 4 Then 'evita que inserte filas antes de la fila 4 MsgBox ("Ahi no se puede insertar") Exit Sub End If Rows(fila).Insert Shift:=xlDown If fila = 4 Then...