Isaac Reyes

Suponiendo que vas ingresando los datos uno a uno, quizá esta macro te pueda servir Private Sub Worksheet_Change(ByVal Target As Range) Dim Duplicado As Long Application.ScreenUpdating = False 'MsgBox Target(1).Row & " " & Target(1).Column If...

H0la Cristian: El 1 sale de acá Range("A7").Value = 1 lo marqué en negrita dentro del código. Sub OrdenItemEspecialidad() On Error GoTo error Dim ContNum As Long Dim ultimalinea As Long ultimalinea = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...

H0la Luis: Disculpa la tardanza. Suponiendo que tu lisca comienza en la Columna A, categoría es la primera columna de la lista y el encabezado está en la fila 1, puedes utilizar la siguiente Macro y cambiar "Mi hoja" por el nombre de tu hoja. Sub...

Para avanzar un poco, supongamos que tu formulario de clientes se llama frmClientes y el formulario de pagos frmPagos. Si tu intención es que frmPagos se abra cuando frmClientes se cierre, entonces puedes usar este código en frmClientes Private Sub...

H0la Ramiro, Intenta con esto Sub html() Open ThisWorkbook.Path & "\" & Range("A1").Value & ".html" For Output Lock Write As #1 i = 2 Do Until (Cells(1, i).Value = "") Print #1, Cells(1, i).Value i = i + 1 Loop Close #1 End Sub Crea un archivo en el...

H0la Brenda: ¿Has pensado en insertar una tabla para ingresar tus datos? Pestaña INSERTAR opción Tabla Nos quedaría así Al ir insertanto filas en la tabla, estas irían tomando el formato de la tabla. Dime si te es útil. S@lu2

Héctor: Prueba esta macro. Si son más de 10.000 filas, puede tardar un tiempo considerable, sobre los 60 segundos. Sub subRellenar() Dim lngUltFila As Long, i As Long Application.ScreenUpdating = False lngUltFila =...

H0la Beto: Supongamos que tu rango de origen es A1:J10 en la hoja1 y quieres pasarlo al rango que comienza en A1 en la hoja2. Ve si lo siguiente te sirve Sub subCopiar() dim i as Integer, j as Integer dim cont as String For i=1 to 10 For j=1 to 10...

H0la Jesús: Supongamos que el dato está en la celda A1 de la hoja 1 y lo quieres copiar a la celda D1 de la hoja 3, el código para realizar la copia sería: Sheets("Hoja3").Range("D1").Value = Sheets("Hoja1").Range("A1").Value Cométame si eso resuelve...

H0la: En el código de la hoja, tendrías que agregar esto Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = UCase(Target.Value) End Sub S@lu2