Modificar datos mediante Userform

publicado el 15 de noviembre1 año

Tengo un userform para insertar/modificar/borrar datos en una tabla. El problema surge cuando intento editar o modificar parte de los datos, pero no me realiza ninguna accion o me da error.

Sub EditCrew()

Dim UltFila As Long, rango As String, FilaRegistro As Long, ans As Integer

Sheet5.Visible = True
Sheet5.Unprotect ("xxxx")
UltFila = Range("A" & Rows.Count).End(xlUp).Row
rango = "A2:A" & UltFila

If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "BALEARIA"
Exit Sub
End If

FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
MsgBox "ID don´t exist", vbExclamation, "BALEARIA"
Exit Sub
End If


Sheet5.Cells(FilaRegistro, 2) = frmCrew.TxtPassport
Sheet5.Cells(FilaRegistro, 3) = frmCrew.TxtName
Sheet5.Cells(FilaRegistro, 4) = frmCrew.TxtSurname
Sheet5.Cells(FilaRegistro, 5) = frmCrew.ComboRank
Sheet5.Cells(FilaRegistro, 6) = frmCrew.TxtNationality
Sheet5.Cells(FilaRegistro, 7) = frmCrew.TxtBirth
Sheet5.Cells(FilaRegistro, 8) = frmCrew.TxtPlace
Sheet5.Cells(FilaRegistro, 9) = frmCrew.TxtSeamanbook
Sheet5.Cells(FilaRegistro, 10) = frmCrew.TxtVISA
Sheet5.Cells(FilaRegistro, 11) = frmCrew.TxtCAD
Sheet5.Cells(FilaRegistro, 12) = frmCrew.TxtGENDER
Sheet5.Cells(FilaRegistro, 12) = frmCrew.TxtCompetency
Sheet5.Cells(FilaRegistro, 13) = frmCrew.TxtBasic
Sheet5.Cells(FilaRegistro, 14) = frmCrew.TxtPax
Sheet5.Cells(FilaRegistro, 15) = frmCrew.TxtCraft
Sheet5.Cells(FilaRegistro, 16) = frmCrew.TxtFire
Sheet5.Cells(FilaRegistro, 17) = frmCrew.TxtFRB
Sheet5.Cells(FilaRegistro, 18) = frmCrew.TxtAid
Sheet5.Cells(FilaRegistro, 19) = frmCrew.TxtCare
Sheet5.Cells(FilaRegistro, 20) = frmCrew.TxtMedical
Sheet5.Cells(FilaRegistro, 21) = frmCrew.TxtForklift
Sheet5.Cells(FilaRegistro, 22) = frmCrew.TxtArpa
Sheet5.Cells(FilaRegistro, 23) = frmCrew.TxtGmdss
Sheet5.Cells(FilaRegistro, 24) = frmCrew.TxtHSC
Sheet5.Cells(FilaRegistro, 25) = frmCrew.TxtAssist
Sheet5.Cells(FilaRegistro, 26) = frmCrew.TxtSecurity
Sheet5.Cells(FilaRegistro, 27) = frmCrew.TxtEcdis
Sheet5.Cells(FilaRegistro, 28) = frmCrew.TxtEcdis2
Sheet5.Cells(FilaRegistro, 29) = frmCrew.TxtCook
Sheet5.Cells(FilaRegistro, 30) = frmCrew.TxtFood

MsgBox "EDIT Crew OK", vbInformation, "BALEARIA"

Sheet5.Visible = False
Sheet5.Protect ("xxxx")
Sheet1.Select

End sub

publicado el 16 de noviembre1 año

Buenos dias, seguramente el problema lo tendras en la funcion que no muestras "filaexisteregistro",

lo mejor seria que subieras el archivo de ejemplo incluyendo todo el codigo

saludos.

publicado el 16 de noviembre1 año

Autor

Archivo demasiado grande:

Private Function filaexisteregistro(noIdentificacion As String, rangoconsulta As String) As Long
Dim numerofila As Long
numerofila = 0
With Sheet5.Range(rangoconsulta)
Set c = .Find(noIdentificacion, Lookat:=xlWhole)
If Not c Is Nothing Then
numerofila = c.Row
End If
End With
filaexisteregistro = numerofila
End Function

Sub ConsultarCrew()

Sheet5.Visible = True
Sheet5.Unprotect ("xxxx")

Dim UltFila As Long, rango As String, FilaRegistro As Long, RutaImagen As String

RutaImagen = "C:\Users\Usuario\Documents\"

UltFila = Range("B" & Rows.Count).End(xlUp).Row
rango = "B2:B" & UltFila

If Len(frmCrew.TxtPassport) = 0 Then
che = MsgBox("Write True Passport", vbExclamation, "BALEARIA")
Exit Sub
End If

FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
ans = MsgBox("ID don´t exist", vbExclamation, "BALEARIA")
Exit Sub
End If

frmCrew.TextoID = Sheet5.Cells(FilaRegistro, 1)
frmCrew.TxtPassport = Sheet5.Cells(FilaRegistro, 2)
frmCrew.TxtName = Sheet5.Cells(FilaRegistro, 3)
frmCrew.TxtSurname = Sheet5.Cells(FilaRegistro, 4)
frmCrew.ComboRank = Sheet5.Cells(FilaRegistro, 5)
frmCrew.TxtNationality = Sheet5.Cells(FilaRegistro, 6)
frmCrew.TxtBirth = Sheet5.Cells(FilaRegistro, 7)
frmCrew.TxtPlace = Sheet5.Cells(FilaRegistro, 😎
frmCrew.TxtSeamanbook = Sheet5.Cells(FilaRegistro, 9)
frmCrew.TextoID = Sheet5.Cells(FilaRegistro, 1)
frmCrew.TxtVISA = Sheet5.Cells(FilaRegistro, 10)
frmCrew.TxtCAD = Sheet5.Cells(FilaRegistro, 11)
frmCrew.TxtGENDER = Sheet5.Cells(FilaRegistro, 12)
frmCrew.TxtCompetency = Sheet5.Cells(FilaRegistro, 13)
frmCrew.TxtWatch = Sheet5.Cells(FilaRegistro, 14)
frmCrew.TxtBasic = Sheet5.Cells(FilaRegistro, 15)
frmCrew.TxtPax = Sheet5.Cells(FilaRegistro, 16)
frmCrew.TxtCraft = Sheet5.Cells(FilaRegistro, 17)
frmCrew.TxtFire = Sheet5.Cells(FilaRegistro, 18)
frmCrew.TxtFRB = Sheet5.Cells(FilaRegistro, 19)
frmCrew.TxtAid = Sheet5.Cells(FilaRegistro, 20)
frmCrew.TxtCare = Sheet5.Cells(FilaRegistro, 21)
frmCrew.TxtMedical = Sheet5.Cells(FilaRegistro, 22)
frmCrew.TxtForklift = Sheet5.Cells(FilaRegistro, 23)
frmCrew.TxtArpa = Sheet5.Cells(FilaRegistro, 24)
frmCrew.TxtGmdss = Sheet5.Cells(FilaRegistro, 25)
frmCrew.TxtHSC = Sheet5.Cells(FilaRegistro, 26)
frmCrew.TxtAssist = Sheet5.Cells(FilaRegistro, 27)
frmCrew.TxtSecurity = Sheet5.Cells(FilaRegistro, 28)
frmCrew.TxtEcdis = Sheet5.Cells(FilaRegistro, 29)
frmCrew.TxtEcdis2 = Sheet5.Cells(FilaRegistro, 30)
frmCrew.TxtCook = Sheet5.Cells(FilaRegistro, 31)
frmCrew.TxtFood = Sheet5.Cells(FilaRegistro, 32)

If Dir(RutaImagen & frmCrew.TxtPassport & ".jpg") = "" Then
MsgBox "Dont exist photo crew", vbExclamation, "BALEARIA"
Else
frmCrew.imgCrew.Picture = LoadPicture(RutaImagen & frmCrew.TxtPassport & ".jpg")
End If

Sheet5.Visible = False
Sheet5.Protect ("xxxx")
Sheet1.Select
Sheet1.Protect ("xxxx")
End Sub

Sub EditCrew()

Dim UltFila As Long, rango As String, FilaRegistro As Long, ans As Integer

Sheet5.Visible = True
Sheet5.Unprotect ("xxxx")
UltFila = Range("A" & Rows.Count).End(xlUp).Row
rango = "A2:A" & UltFila

If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "BALEARIA"
Exit Sub
End If

FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
MsgBox "ID don´t exist", vbExclamation, "BALEARIA"
Exit Sub
End If


Sheet5.Cells(FilaRegistro, 2) = frmCrew.TxtPassport
Sheet5.Cells(FilaRegistro, 3) = frmCrew.TxtName
Sheet5.Cells(FilaRegistro, 4) = frmCrew.TxtSurname
Sheet5.Cells(FilaRegistro, 5) = frmCrew.ComboRank
Sheet5.Cells(FilaRegistro, 6) = frmCrew.TxtNationality
Sheet5.Cells(FilaRegistro, 7) = frmCrew.TxtBirth
Sheet5.Cells(FilaRegistro, 😎 = frmCrew.TxtPlace
Sheet5.Cells(FilaRegistro, 9) = frmCrew.TxtSeamanbook
Sheet5.Cells(FilaRegistro, 10) = frmCrew.TxtVISA
Sheet5.Cells(FilaRegistro, 11) = frmCrew.TxtCAD
Sheet5.Cells(FilaRegistro, 12) = frmCrew.TxtGENDER
Sheet5.Cells(FilaRegistro, 12) = frmCrew.TxtCompetency
Sheet5.Cells(FilaRegistro, 13) = frmCrew.TxtBasic
Sheet5.Cells(FilaRegistro, 14) = frmCrew.TxtPax
Sheet5.Cells(FilaRegistro, 15) = frmCrew.TxtCraft
Sheet5.Cells(FilaRegistro, 16) = frmCrew.TxtFire
Sheet5.Cells(FilaRegistro, 17) = frmCrew.TxtFRB
Sheet5.Cells(FilaRegistro, 18) = frmCrew.TxtAid
Sheet5.Cells(FilaRegistro, 19) = frmCrew.TxtCare
Sheet5.Cells(FilaRegistro, 20) = frmCrew.TxtMedical
Sheet5.Cells(FilaRegistro, 21) = frmCrew.TxtForklift
Sheet5.Cells(FilaRegistro, 22) = frmCrew.TxtArpa
Sheet5.Cells(FilaRegistro, 23) = frmCrew.TxtGmdss
Sheet5.Cells(FilaRegistro, 24) = frmCrew.TxtHSC
Sheet5.Cells(FilaRegistro, 25) = frmCrew.TxtAssist
Sheet5.Cells(FilaRegistro, 26) = frmCrew.TxtSecurity
Sheet5.Cells(FilaRegistro, 27) = frmCrew.TxtEcdis
Sheet5.Cells(FilaRegistro, 28) = frmCrew.TxtEcdis2
Sheet5.Cells(FilaRegistro, 29) = frmCrew.TxtCook
Sheet5.Cells(FilaRegistro, 30) = frmCrew.TxtFood

MsgBox "EDIT Crew OK", vbInformation, "BALEARIA"

Sheet5.Visible = False
Sheet5.Protect ("xxxx")
Sheet1.Select
End Sub

Sub DeleteCrew()

Sheet5.Visible = True
Sheet5.Unprotect ("xxxx")

Dim UltFila As Long, rango As String, FilaRegistro As Long

With Sheets("Nombre")

UltFila = Range("B" & Rows.Count).End(xlUp).Row
rango = "B2:B" & UltFila

If Len(frmCrew.TxtPassport) = 0 Then
MsgBox "Write True Passport", vbExclamation, "BALEARIA"
Exit Sub
End If

FilaRegistro = filaexisteregistro(frmCrew.TxtPassport, rango)
If FilaRegistro = 0 Then
ans = MsgBox("ID don´t exist", vbExclamation, "BALEARIA")
Exit Sub
End If

.Visible = True
.Unprotect ("xxxx")
.Rows(FilaRegistro).ClearContents
.Visible = False
.Protect ("xxxx")
End With
Sheets("Data").Select

End Sub

Arriba escribo las tres funciones para insertar, editar y eliminar valores de la tabla en cuestion

publicado el 16 de noviembre1 año

Uno puede suponer que el archivo es "grande" por la cantidad de registros que tienes y las posibles cantidades de imágenes que le insertas (¿o consultas?), por qué no haces una copia de tipo binario, eliminas todos esos datos sensibles de los trabajadores (supongo) y lo compartes. Si solo es un formulario, donde al parecer son 5 Hojas con unas sentencias no requerirían una gran cantidad de espacio.

El ejemplo se necesita para evitar ambigüedades y si un Maestro pasa por el tema podría en lo posible ayudarte de la mejor manera en el menor tiempo posible. Toma en cuenta que hacen esto de manera desinteresada, así que "ayúdales a ayudarte".

Mencionas parte del problema sobre editar o modificar aunque no mencionas nada de insertar nuevos, parece que tienes una especie de registros de empleados, pero no se sabe si la hoja1 y la hoja5 son las mismas que "Data" y "Nombre", aunque la Hoja5 es la que recibe todo aparentemente y cada fila es un miembro de esa ¿Tripulación? y cada columna es información de pasaporte, nombre, rango, nacionalidad, etc. Varias cosas que están en el código, donde parece que intentas insertar una imagen de acuerdo al número de pasaporte del empleado ¿Lo usas para ver las fotos de los empleados?

En resumen, sin un ejemplo limitas la ayuda que podrías recibir.

Saludines

publicado el 16 de noviembre1 año

Autor

He añadido el archivo, espero no haber eliminado nada que sirva para ejecutarlo.

Como bien dices, al insertar datos nuevos no me da problemas, introduzco los datos en el userform y me los coloca ordenadamente en la tabla (Hoja "Nombre" - Shhet5). El problema viene cuando quiero editar o modificar algun valor, le doy a buscar por el numero de pasaporte y me lo hace perfectamente, cambio los valores que necesite y al presionar un boton (en este caso "Editar") me salta el mensaje de error "MsgBox "ID don´t exist", vbExclamation, "BALEARIA"", pero la ID (numero que asigno a cada empleado) no lo modifico y no me realiza ningun cambio.

En cuanto a la imagen, era un idea que tenia que arrastre de otro excel, pero no lo estoy usando, o mas bien estoy desechando la opcion, pero como voy aprendiendo paso a paso, prefiero centrarme en lo mas importante de inicio, que es colocar a cada tripulante en su lugar correspondiente y de forma ordenada para despues ya trasladarlo a los documentos que se generen a posterior.

Mos Docs - copia.xlsm

publicado el 16 de noviembre1 año

Si no contesta nadie antes, en cuanto pueda te preparo algo

publicado el 17 de noviembre1 año

En cuanto tenga un ratillo te lo termino

publicado el 18 de noviembre1 año

Autor

muchas gracias.

Lo veo hasta estilizado.

publicado el 18 de noviembre1 año

Mañana te lo subo

publicado el 19 de noviembre1 año

Autor

Muchas gracias

Cuando lo reciba me pondré a revisar para intentar comprender un poco mas el vba ya que veo que aun me queda mucho.

publicado el 19 de noviembre1 año

Prueba y comenta

publicado el 19 de noviembre1 año

Tu archivo

Mos Docs - copia.xlsm

publicado el 19 de noviembre1 año

image.gif.0c4641163eac1ef62e4373165ecd010c.gif

publicado el 20 de noviembre1 año

Autor

Muchisimas gracias.

Perfecto

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Fórmula para buscar con condición mayor/menor

Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx

Por Victor7, · publicado el 16 de junio16 jun
Fórmula para buscar con condición mayor/menor

A ver, para no estar adivinando o caminando a ciegas por el problema, vamos a ir a lo seguro:
1º: Indicas en la columna B: "Aquí iría la fórmula". Bien, pues te sugiero que introduzcas a mano, en B3:B10 cuáles son los resultados que esperas en cada celda, y expliques cómo y/o por qué se llega a ellos.
2º: Aclara un poco esos significados de 'Factor común 1' y 'Variable por pesos o centavos', para entender cómo juegan en las diferentes resoluciones.
3º: También sería interesante saber cómo interpretar eso de 'ojito al tema porque estos importes entre archivos pueden variar entre el 10% mayor o menor al importe pago'. Para verlo claro, introduce algún ejemplo que fuerce esa diferencia y explica cómo hay que contemplarlo y en qué interfiere para la/s fórmula/s de la columna B.
4º: Y por último, elimina (suprime) todos los datos innecesarios para componer el resultado que buscamos: por ejemplo, ese 'Íd. crédito' de la columna A, ¿aporta algo? ¿No? Pues bórralo. Ídem de lo mismo para 'Nombre' (si no se necesita, bórralo también). Veo que las columnas L y N tienen los mismos contenidos. ¿Por qué no eliminamos una de ellas?
Todo lo que sea limpiar la pizarra de garabatos innecesarios, será bienvenido y agradecido.
Saludos,

Por Victor7, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Muy buen día esperando te encuentres de la mejor manera posible,

Ya revise el archivo, como tal no busco las diferencias, busco que en caso de tener un importe, un rfc o un nombre poder tarerme el folio de otro archivo, ojito al tema porque estos importes entre archivos pueden variar entre el 10% mayor o menor al importe pago,
Te comparto archivo mismo como lo mandas pero mas de como lo veo,
Base 05 (B).xlsx
Gracias

Por Enrique González Jiménez, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Hola a todos,
@Enrique González Jiménez , te dejo una idea de cómo abordar el problema: observa el archivo adjunto, que lleva en el bloque de la izquierda (rango A:E) los datos del primer archivo, y a la derecha (rango I:N) los del segundo archivo.
Como el único dato unívoco parece ser 'folio', he partido de ahí para componer la búsqueda de resultados. En la columna 'O' se obtiene el importe correspondiente al dato 'folio' (la columna 'E'), y en la columna 'P' se calculan las diferencias entre las columnas 'N' y 'O'. Supongo que esos datos son los que buscas.
Saludos,
Base 05 (B).xlsx

Por Victor7, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Muchas gracias bro, oye intente pero no lo logre la neta, te voy a compartir los archivos seria buscar dentro de el archivo base 05 los importes y afiliado que estan en el archivo listado para cruce con una tolerancia del 10% mayor y menor, pegue tu formula pero creo que me equivoque en algo porque me arroja todo como no encontrado, :(
BASE 05.xlsx Listado para cruce.xlsx

Por Enrique González Jiménez, · publicado el 11 de junio11 jun

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Modificar datos mediante Userform

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Visualizado recientemente 0

Account

Navigation

Buscar