Mario Rodríguez

Roberto. En la medida de lo posible (y éste sería el caso): ¡Huye de los procesos iterativos "como de la peste"!... Reemplaza, entonces, el final de tu código por lo siguiente: 'Definimos las cabeceras h1.[D1] = "Criterion" h1.[E1] = "Criterion Ref"...

¿Qué se puede suponer?... - Que tienes el libro abierto en la hoja donde están los datos y que en ese mismo libro pondrás la macro. ¿Qué información no se puede suponer?... - La fila de encabezados de tus datos: ¿Dónde están? (Por ejemplo: A1:G1). -...

A todos Si las columnas están vinculadas (nombre y N° de documento personal, por ejemplo) puedes intentar con lo siguiente: Private Sub UserForm_Initialize() Dim Q&, C Application.ScreenUpdating = False: Set C = ActiveSheet.[a5] Q =...

Ulises. Lo siguiente te puede ser de utilidad: Sub Reemplazar_por_OE() Dim ws As Worksheet: For Each ws In Worksheets ws.[g4] = "OE-" & Format(ws.[g4], "00"): Next: End Sub

Puedes utilizar el Asistente para convertir texto en columnas. Mira por aquí: Asistente Texto en Columnas

Gadita De acuerdo a tu pericia programática (con perdón de la palabra) puedes: - Aplicar un Autofiltro, seleccionar las celdas visibles y cargar tu combobox. - Aplicar un Filtro avanzado con copia a un rango auxiliar y cargar tu combobox. - Llenar un...

A todos: Excel ya tiene un método eficiente para conseguir esto. Su versión "VBA" sería: Sub RellenaHoras() [e5].Copy [e8] [e8].DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, _ Step:=1 / 24, Stop:=[e6] End Sub

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

Otro modo: MsgBox Day(Application.EoMonth([c4], 0))

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