Carlos soloffice

Abrahamwin, Si te parece bien, envíame el archivo de prueba y te ayudaré con tu consulta. Saludos, Carlos [email protected]

Esta sería la fórmula condicional que buscas. Escribe esto en B1 =SI(A1>=5000;5000;SI(A1>=4000;4500;SI(A1>=3000;3500;SI(A1>=2000;2500;1500)))) Saludos, Carlos [email protected]

Serí así: Sub nombrarHoja() Dim oWorksheet As Worksheet For Each oWorksheet In ThisWorkbook.Worksheets oWorksheet.Name = oWorksheet.Range("N2").Value Next End Sub Saludos, Carlos [email protected]

Escribe en la celda A2 esta fórmula: =SI(A1<2;"pendiente";SI(A1>=3;"urgente";"retrasado")) Saludos, Carlos [email protected]

Lo puedes hacer de esta manera: Sub EliminarHojas() Dim oWorksheet As Worksheet For Each oWorksheet In ThisWorkbook.Worksheets If Left(oWorksheet.Name, 3) = "Fac" And oWorksheet.Name <> "Factura" Then Application.DisplayAlerts = False...

Lo que quieres se hace con la función BUSCARV Te he dejado un ejemplo aquí para que veas como hacerlo http://goo.gl/nX2Ao Espero que te sirva, Saludos, Carlos [email protected]

Te pongo un ejemplo de como podrías hacerlo Sub MacroInicial() 'Aquí programas lo que quieras hacer en tu macro inicial Cells(1, 1) = Now Cells(2, 1) = "Ahora tienes 30 segundos para hacer lo que necesites..." '... etcétera 'Ahora le dices que dentro...

Una macro como la que pides quedaría así: Sub Enumerar() Dim nFila As Long For nFila = 5 To 31625 Cells(nFila, 1).Value = nFila - 4 Next End Sub Saludos, [email protected]

Se me ocurre de esta manera: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Static sClave As String sClave = sClave & Target.Address & "-" celdas = Split(sClave, "-") If UBound(celdas) > 3 Then sClave =...

Creo que está fórmula podría ser tu solución: =IZQUIERDA(B7;ENCONTRAR(" ";B7)-1) Te cuento lo que hace: Suponemos que la celda B7 contiene: Josue Antonio García Zelaya ENCONTRAR(" ";B7) lo que hace es buscar el primer espacio, y nos da la posición...