Alberto Pereda

Tengo este código: Sub CrearReporte() Dim wblibroactual As Workbook Dim wshojaactual As Worksheet Dim rangodatos As Range Dim ufila As Long Dim wblibronuevo As Workbook Dim criterio As String Dim campo As Integer Set wblibroactual =...

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

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.

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

Tengo la siguiente hoja de excel Y necesito una macro que busque los espacios vacíos y los complete copiando los datos de las celdas escritas hacia abajo, es decir la celda que dice transbolt copiarla hasta donde comienza twister, la celda donde dice...

Debo ingresar mediante un formulario artículos seriados, necesito una macro con formulario para ingresar un rango de series y que la macro me escriba en la hoja todas las series correlativas, por ejemplo: Tengo 500 articulos con la serie 004VA000001...

Tengo una hoja "Datos" donde guardo mediante un userform los datos ingresados por los usuarios y a su vez tengo una hoja por cada usuario con su respectivo nombre donde el userform a la vez guarda solo los registros que le corresponden a cada...

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

Tengo una base de datos en una Hoja llamada "DATOS" y tengo otras 2 Hojas una llamada "LUIS" y la otra llamada "LENA". Está información la ingreso y la modifico mediante un Userform. La ingreso con el Userform "INGRESAR" a la vez, tanto a la Hoja...

Tengo este código en un userform: Private Sub TextBox6_Change() TextBox8 = Val(TextBox6) * Val(TextBox7) TextBox9 = Val(TextBox8) * 18 / 100 TextBox10 = Val(TextBox8) + Val(TextBox9) End Sub reemplazando valores ingresados en los textbox, este es el...