Jump to content

Haplox

Members
  • Content Count

    2,533
  • Joined

  • Last visited

  • Days Won

    79

About Haplox

  • Rank
    José

Profile information

  • Gender Array
  • Localización: Array
  • Interests Array

Converted

  • Campos Array

Recent Profile Visitors

2,981 profile views
  1. Private Sub Worksheet_Change(ByVal Target As Range) Dim i&, j& Dim caracter, item caracter = Array("$", "%", "&", "/", """", "=") If Intersect(Range("A:B"), Target) Is Nothing Then Exit Sub '----- SI LA CELDA FUESE UN NUMERO ----- If Target.Column = 1 And IsNumeric(Target) Then MsgBox "No se permiten neros" Exit Sub End If '----- SI LA CELDA CONTUVIESE UN NUMERO ----- For i = 1 To Len(Target) If IsNumeric(Mid(Target, i, 1)) Then Target = "" MsgBox "No se permiten neros" Exit Sub End If Next i '----- SI LA CELDA CONTIENE UN CARACTER ESPECIAL ----- If Target.Column = 2 Then For Each item In caracter For j = 1 To Len(Target) If Mid(Target, j, 1) = item Then Target = "" MsgBox "No se permiten caracteres especiales" Exit Sub End If Next j Next item End If End Sub
  2. Deberias comentar si es que no se paermite que la celda sea un numero, o si no se permite que contenga algun numero, tipo EJE3MPLO
  3. Te dejo una solución @merlyn333 Copia de presupuesto_semanal_2019.xlsm
  4. Deberías decirnos como funciona todo, pues cuando ejecuto "salto" solo consigo SEC1 y SEC2 vacíos 😳. En todo caso, si ya tienes las matrices SEC1 y SEC2, solo tienes que comparar los datos de SEC1 con los de SEC2, y los que no estén meterlos en otra matriz Dim item1, item2 Dim usados() As Long, h As Long Redim usados(1 to Ubound(SEC1)) For Each item1 in SEC1 For Each item2 in SEC2 If item1=item2 Then usados(h)=item2 h=h+1 End If Next item2 Next item1 Solo te faltaría hacer un Loop para las filas de tu tabla. Así, abote pronto. Si nos dices cómo funciona, se puede completar el código
  5. Es lo que tiene escribir desde el móvil 😢. Por cierto, enhorabuena. Otra vez ⚽...
  6. @A.Maurizio No he visto tu archivo (escribo desde el movil), pero ya deberia serte facil Dim nom As String, rut As String nom=[a2] rut="la que sea\' ThisWorkbook.SaveAs (rut & nom)
  7. Otra forma Sub cargacombo1() Dim datos As New Collection Dim item n = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To n On Error Resume Next datos.Add Cells(i, "A"), CStr(Cells(i, "A")) Next i For Each item In datos ComboBox1.AddItem item Next item End Sub
  8. Esto hay que decirlo desde el principio 🙄
  9. Pues el único problema puede ser la estructura de los datos en esa columna (?) ¿Es un combo en un userform o en una hoja?
  10. @jose lopez contreras , me da que ta has liado mucho...😲 Sub cargacombo1() n = Range("E" & Rows.Count).End(xlUp).Row ComboBox1.RowSource = Range("E2:E" & n).Address End Sub
  11. Si solo quieres esa hoja, no debes guardar el libro Sub savebook() Aplication.ScreenUpdating=False Sheets("BASE").Copy ActiveWorkbook.SaveAs "Aquí la ruta y el nombre que quieras para el libro con la hoja solo" ActiveWorkbook.Close Application.OnTime Now + TimeValue("00:01:00"), "savebook" End Sub
  12. Principalmente te diría que no uses 2 combobox ¿Para qué, si en el segundo no vas a elegir nada? Usa el combobox1 y un textbox. Una vez que elijas en el combobox el número, pases ese dato a una variable, con ella busques en la hoja de datos ese valor, y cuando lo encuentre que te muestre en el textbox el usuario, que supongo que estará en un offset(0,1) desde la celda del número. Algo así, adaptándolo a tu caso: Private Sub ComboBox1_Change() Dim num As String, uF As Long, us As Range num=ComboBox1 With Sheets("Datos") uF=.Range("A" &Rows.Count).End(xlUp).Row Set us=.Range("A1:A" & uF).Find(num,LookAt:=xlWhole) If Not us Is Nothing Then TextBox1=us.Offset(0,1) Else MsgBox "El Nº introducido no existe, revíselo" Exit Sub End If End With End Sub
  13. Con una foto poco hacemos @oaseijas39... ¿Nos inventamos los datos? Sube tu archivo de ejemplo. Aparte tu explicación deja dudas. Dices modificar un registro, pero también ingresar uno nuevo en la línea que tú quieras ¿Nos o aclaras? ¿Modificar solo? ¿Uno nuevo solo? ¿Ambas cosas?...😳
×
×
  • Create New...

Important Information

Privacy Policy