Mario Rodríguez

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

Álvaro. Te sugiero que te des una "vueltita" por aquí: Derivada de una potencia.

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

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

Probablemente lo siguiente te pueda ser de utilidad: Sub Macro1() [a7] = [r7].Value [a7].DataSeries Rowcol:=2, Type:=xlLinear, Step:=1, Stop:=[r8] End Sub