Luis_P

Aca tienes Sub elimina() Dim r As Range Dim c As String '4c7569735f50 For Each r In Range("A1:" & "A" & Application.WorksheetFunction.CountA(Range("A:A"))) If r <> "6:00:00AM" Then c = c & "," & r.Address Next c = Mid(c, 2, Len(c)) Set r = Nothing...

'4c7569735f50 Reemplaza estas lineas Workbooks.Open ThisWorkbook.Path & "\" & "buscarhoja1.xls" Workbooks.Open ThisWorkbook.Path & "\" & "buscarhoja2.xls" por estas If Windows("buscarhoja1.xls").Visible = False Then Workbooks.Open ThisWorkbook.Path &...

Si pedro perez esta en a1 seria =MAYUSC(EXTRAE(A1;2;7))

Indicame el nombre de cada hoja y su rango a imprimir

Prueba esto: Sub nueva() '4c7569735f50 Sheets.Add After:=Sheets(Sheets.Count) On Error Resume Next Sheets(Sheets.Count).Name = "nuevodato" If Err.Number = 1004 Then Application.DisplayAlerts = False Sheets(Sheets.Count).Delete...

Prueba este macro: Abre el editor de vbasic (alt +f11) Desde el editor da doble click sobre la hoja en que estara la condicion En la ventana de edicion pones esto: Private Sub Worksheet_SelectionChange(ByVal Target As Range) '4c7569735f50 If [a1] =...

Aca et dejo el macro: Sub distribuir() Dim t As Long '4c7569735f50 Selection.EntireColumn.Select t = Application.WorksheetFunction.CountA(Selection) If t = 0 Then [a1].Select: Exit Sub Dim r As Range Dim c As Integer Dim f As Integer c =...

Ese mensaje aparece cuando realizas la busqueda en una hoja que no contiene datos. O bien cuando existen pero no esta el dato buscado Prueba esto: Sub busca() If Application.WorksheetFunction.CountA(Range("A:iv")) > 0 Then Dim s As Byte '4c7569735f50...

4c7569735f50 Si pedro perez esta en a1 entonces seria: extrae(a1;1;encontrar(" ";a1;1))

Para eso basta con que realizes una pequeña sub que compare lo generado v/s lo guardado. Como son 7 digitos en cada serie, te conviene crear un solo registro para realizar la comparacion, es decir concatena los 7 en uno, asi si generaste la secuancia...