Jump to content

ndepablo

Visitante
  • Posts

    28
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

ndepablo's Achievements

  1. Buenos tardes, Al final lo he solucionado con un Código que al comprobar si ya existe el dato introducido, además de que me avise, que me deje el valor de la celda activa vacío. Asi evito duplicados. Dim Fila As Long Dim Final As Long Final = Range("B6").End(xlDown).Row For Fila = 1 To Final If Application.WorksheetFunction.CountIf(Range("B6:B" & Final), Range("B" & Fila)) > 1 Then ActiveCell.Value = "" MsgBox "DATO REPETIDO" End If Next Fila Un saludo
  2. Buenas tardes, Tengo el siguiente problema, en la columna B de la pestaña RESUMEN tengo una validación de datos en forma de desplegable que viene de la pestaña LISTA DE OBRAS. Ahora bien, lo que quiero es que si por error en dos celdas diferentes de B se repite el mismo valor que me avise de alguna manera. El caso que una validación de datos personalizado con la función CONTAR.SI sería ideal pero el problema que como hay una validación de datos que es el desplegable, no me permite hacerlo o a lo mejor es que no se hacerlo directamente. Por otro lado he intentado hacerlo con una macro que me salta un aviso: Dim Fila As Long Dim Final As Long Final = Range("B6").End(xlDown).Row For Fila = 1 To Final If Application.WorksheetFunction.CountIf(Range("B6:B" & Final), Range("B" & Fila)) > 1 Then MsgBox ("DATO DUPLICADO") End If Next Fila Pero con este código me falla un poco y no me fio de él. ¿Alguien me podría echar una mano? Muchas gracias de antemano Estado Certificaciones y Anexos HVOK_DUP.xlsm
  3. Hola otra vez, ya lo he solucionado tenía que cambiar a: ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & ActiveCell.Text & "'!a1", TextToDisplay:=MyVar Un saludo.
  4. Hola otra vez, ya lo he solucionado tenía que cambiar a: ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & ActiveCell.Text & "'!a1", TextToDisplay:=MyVar Un saludo.
  5. Hola Frank, te pregunto también a ti directamente, espero que no te importe... Quiero dar una vuelta de tuerca más a este proyecto. Y lo que necesito es que cuando se cree la pestaña nueva, automáticamente me cree un hipervínculo (celda-pestaña). He grabado una macro para ver la función que es, pero no la se definir bien...😐 'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ ' "'Mayor, 17'!A1", TextToDisplay:="Mayor, 17" Esta es la función que crea hipervínculo de celda a pestaña, entonces yo la he adaptado dentro del código de esta manera que funciona, pero no cambia a la pestaña en cuestión (es decir, no funciona). Creo que el fallo es que no se definir la pestaña nueva correctamente... Una ayudita porfii 😔 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub End If If Target.Column = 2 Then If Target <> "" Then Application.ScreenUpdating = False Dim sh As Worksheet Set sh = ActiveSheet Dim ws As Worksheet Set ws = Worksheets("MODELO") If Not ExistsWorkSheet(Target.Value) Then ws.Copy After:=Worksheets(Worksheets.Count) On Error Resume Next ActiveSheet.Name = Target If Err.Description <> "" Then Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End If End If sh.Activate ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sh.Name & "!A1", TextToDisplay:=ActiveCell.Value 'ESTA ES MI LÍNEA ADAPTADA End If End If End Sub Private Function ExistsWorkSheet(Name As String) As Boolean Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name = Name Then ExistsWorkSheet = True Exit Function End If Next ExistsWorkSheet = False End Function Estoy llegando ya al final de este proyecto, que está saliendo gracias a vosotros. Os lo agradezco de veras.
  6. Buenos días expertos de Excel. Quiero dar una vuelta de tuerca más a este proyecto. Y lo que necesito es que cuando se cree la pestaña nueva, automáticamente me cree un hipervínculo (celda-pestaña). He grabado una macro para ver la función que es, pero no la se definir bien...😐 'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ ' "'Mayor, 17'!A1", TextToDisplay:="Mayor, 17" Esta es la función que crea hipervínculo de celda a pestaña, entonces yo la he adaptado dentro del código de esta manera que funciona, pero no cambia a la pestaña en cuestión (es decir, no funciona). Creo que el fallo es que no se definir la pestaña nueva correctamente... Una ayudita porfii 😔 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Rows.Count > 1 Then Exit Sub End If If Target.Column = 2 Then If Target <> "" Then Application.ScreenUpdating = False Dim sh As Worksheet Set sh = ActiveSheet Dim ws As Worksheet Set ws = Worksheets("MODELO") If Not ExistsWorkSheet(Target.Value) Then ws.Copy After:=Worksheets(Worksheets.Count) On Error Resume Next ActiveSheet.Name = Target If Err.Description <> "" Then Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End If End If sh.Activate ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sh.Name & "!A1", TextToDisplay:=ActiveCell.Value 'ESTA ES MI LÍNEA ADAPTADA End If End If End Sub Private Function ExistsWorkSheet(Name As String) As Boolean Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name = Name Then ExistsWorkSheet = True Exit Function End If Next ExistsWorkSheet = False End Function Estoy llegando ya al final de este proyecto, que está saliendo gracias a vosotros. Os lo agradezco de veras.
  7. Hola Digo, Gracias por tu respuesta. He encontrado una alternativa un poco más de andar por casa con un desplegable asociado a una lista. Un saludo.
  8. Buenas tardes, Me gustaría saber si existe alguna manera de establecer un formato personalizado en celda en el que por ejemplo todo lo que se escribiera empezara por mayúscula y se evitaran espacios o caracteres especiales innecesarios, por ejemplo: en la columna A tenemos que poner las direcciones y todas tienen que tener el mismo formato , la primera letra de cada palabra en mayúscula, y antes del número ", " (coma + espacio) María De Molina, 26. El fin de esto es para evitar que se dupliquen datos. Muchas gracias de antemano Para foro.xlsx
  9. Muchas Gracias Antoni. Ya me ha quedado claro
  10. Buenos días, ¿Alguien sabría decirme porque al poner una / en una celda evita que corra la macro ? Al rellenar la columna B con una dirección cualquiera, crea una pestaña con el nombre de la celda. Por ejemplo calle San Juan, pero si pongo c/ San Juan no crea la pestaña Gracias de antemano. PD: Este archivo lo estoy construyendo con la ayuda de este foro Gracias! Un saludo Estado Certificaciones y Anexos FORO.xlsm
  11. SOLUCIONADO! lo tenía que poner entre {}. Muchísimas gracias!!
  12. Ante todo, muchas gracias por la inmediatez y por dedicar tiempo a mi problema. En los archivos que me habéis pasado lo hace fenomenal, pero al aplicarlo al mío... Lo he intentado con ambas soluciones y en las dos me da el error #VALOR. He cambiado el rango que hay por el que necesito realmente, pero hay algo que se me escapa. El rango a evaluar es de P9 a P35. En el caso de JasallBCN no entiendo que hace el final de la fórmula "COLUMNA (B2)" y en el de Gabriel el último valor de fórmula correspondiente a "G5". Imagino que estará por ahí el error, si me pudierais ayudar os lo agradecería. Un saludo.
  13. Buenas tardes, Necesito hacer algo pero no doy con ello. No se si alguien me pudiera ayudar. Tengo una columna a la que se va ingresando la palabra "pendiente" o "completo" . Lo que necesito es que me diga si antes del último valor existe algún "pendiente" anterior. Es decir, tiene que omitir el último valor (aunque ponga pendiente) y evaluar siempre el rango anterior según vaya creciendo la lista. El fin de este ejercicio es saber si antes del último documento existe otro pendiente de firmar. Muchísimas gracias de antemano Buscar Pendientes.xlsx
×
×
  • Create New...

Important Information

Privacy Policy