Mario Rodríguez

Máximo. Si el encabezado de tus datos comienza a partir de la celda A1 de la hoja activa, entonces podrías intentar con: Sub RegistrosUnicos() '------------------ 'by Cacho Rodríguez '------------------ Dim Mat, Dic, R&, Q&, i& Mat = Range([a1],...

Víctor Incorpora en un módulo común lo siguiente: Sub Celdas_R20_y_T20() '---------- 'by Cacho R '---------- Dim C As Range On Error Resume Next For Each C In Range([a2], [a2].End(xlDown)) Worksheets(C.Value).Range("r20,t20").Copy C.Offset(, 1) If...

Lo siguiente te servirá para fechas en el textBox con un formato dd/mm/yyyy o dd-mm-yyyy, o -inclusive- con dos dígitos para el año, o con 1 dígito para el día o el mes: tmp = Split(Replace(txtFecha, "-", "/"), "/") Range("A1") = DateSerial(tmp(2),...

Por ejemplo podrías intentar: Sub Macro1() Dim i&, iLinea$ Open "C:\Users\Temp\Tu archivo.txt" For Input As #1 Do Until EOF(1) Line Input #1, iLinea: i = 1 + i Loop Close: [a1] = i End Sub

Para "frenar" tu código un par de segundos (o una fracción de segundos) puedes aplicar la siguiente rutina auxiliar: Private Sub Retraso(ret As Single) Dim nextTime As Single nextTime = Timer + ret Do While Timer < nextTime: DoEvents: Loop End Sub De...

sirgfreid En el siguiente enlace: Números_aleatorios.xlsm encontrarás dos métodos para obtener lo mismo: - El primero de ellos es -precisamente- el que tú has publicado, con más la consideración solicitada y un pequeño ajuste: Borrar las celdas a...