calvuch

Lo primero es aislar los números en una columna independiente luego le quitas los posibles espacios con =ESPACIOS(A1) En este caso elimina los espacios que pueda contener el numero de la celda a1 a veces cuando se copia desde la web a excel, el dato...

Según lo que indicas, entiendo que ya posees el macro que reemplaza texto por número. Pero si te molesta el punto, por que no copias los datos en una columna aparte, le eliminas el punto, ¿con la función reemplazar y luego sobre esos datos aplicas el...

En un modulo pon esto Sub Hojanueva() ' Hojanueva Macro Dim Nombre As String Nombre = Format(Now(), "dd-mm-yyyy") On Error GoTo err Sheets(Nombre).Select If ActiveSheet.Name = Nombre Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name =...

Prueba =CONTAR.SI('Munt. Acc'!O2:'Munt. Acc'!O3000;B9) Tenias mal puestas las '

¿Qué copie los datos de A5:C35 en que rango?... ¿En el mismo? ¿Qué imprima A5:C35 de la hoja1?

Este macro hace lo que quieres Sub Hoja_automatica() Dim f As String f = Date On Error Resume Next Worksheets(f).Select Select Case err.Number Case Is = 9 Sheets.Add after:=Worksheets(Worksheets.Count) Worksheets.Item(Worksheets.Count).Name = Date...

En un modulo pega esto: Sub crea_hoja() Dim i As Integer Dim n As Integer Dim hoja As String Application.ScreenUpdating = False Worksheets.Item(1).Select Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove...

Acá tienes : Inserta esto en un modulo Option Explicit Dim h As Variant Dim c As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) If c = True Then Exit Sub Hoja1.Range("iv65535") = Time Hoja1.Range("iu65536") = Hoja1.Range("iu65536") +...

Lo primero es contar las faltas, puedes utilizar una columna para totalizar, luego en función de ese total, aplicas formato condicional a la celda o rango sobre el cual deseas aplicar el color rojo, ya sea fondo o texto.

No quedo muy elegante, pero se cumple el objetivo: Sub elim_texto_inicio() Dim col As Range Dim S As String Dim E As Integer Dim c As Integer On Error Resume Next Set col = Application.InputBox("Elija columna para eliminar texto WBS y SDI", "Eliminar...