Jump to content

jeaa

Members
  • Posts

    244
  • Joined

  • Last visited

  • Country

    Peru

About jeaa

  • Birthday 09/24/1980

Profile information

  • Gender
    Hombre

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0,2,4,5,6,7

Recent Profile Visitors

1,647 profile views

jeaa's Achievements

  1. Expertos buenos días, tengo un código que debe modificar desde la columna C por la columna A y B es otro tabla, pero todas las veces que lo modifica lo pone en el encabezado, per que siempre he usado ese código en cualquier formulario y normal me funcionaba pero aquí en este archivo no me funciona, los voy mostrar el código por que no puedo subir el archivo Private Sub Btn_Modificar_Click() If TextBox1.Value = -1 Then MsgBox "Falta ingresar la posición del deportista.", vbInformation, "Sistema de Monitoreo" Exit Sub End If With Hoja2 If Btn_Modificar.Visible = True Then Fila = ListBox1.ListIndex + 2 Else Fila = .Range("C" & Rows.Count).End(xlUp).Row + 2 End If If Not MsgBox("¿Está seguro de registrar/modificar grupos?", vbQuestion + vbOKCancel) = vbOK Then Exit Sub ListBox1.RowSource = "" .Cells(Fila, 3) = TextBox1 .Cells(Fila, 4) = TextBox2 .Cells(Fila, 5) = TextBox3 .Cells(Fila, 6) = TextBox4 .Cells(Fila, 7) = TextBox5 .Cells(Fila, 😎 = TextBox6 .Cells(Fila, 9) = TextBox7 .Cells(Fila, 10) = TextBox11 .Cells(Fila, 11) = TextBox12 .Cells(Fila, 12) = TextBox13 .Cells(Fila, 13) = TextBox14 .Cells(Fila, 14) = TextBox15 .Cells(Fila, 15) = TextBox16 .Cells(Fila, 16) = TextBox17 .Cells(Fila, 17) = TextBox18 .Cells(Fila, 18) = TextBox19 .Cells(Fila, 19) = TextBox20 .Cells(Fila, 20) = TextBox21 .Cells(Fila, 21) = TextBox22 .Cells(Fila, 22) = TextBox23 .Cells(Fila, 23) = TextBox24 .Cells(Fila, 24) = TextBox25 .Cells(Fila, 25) = TextBox26 .Cells(Fila, 26) = TextBox27 End With ListBox1.RowSource = "Empleado" MsgBox "Datos modificados con éxito", vbInformation, "Sistema de Monitoreo" End Sub Espero me puedan orientar desde ya muchas gracias
  2. Antoni, muchas gracias ya lo he probado en la mayor parte de las asistencias y funciona perfectamente, creo que queda ahi por favor muchas gracias, eres un genio
  3. JasallBcn, muchas gracias funciona en gran parte, en algunas filas y columnas no imprime la X
  4. JasallBcn, solo el código que adjunte es el error porque cuando lo saco funciona bien es por eso que señale esas líneas de código... Muchas gracias
  5. Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar: If cmbFecha.Text = Hoja1.Range("P4") Then Hoja1.Cells(Fila, 16) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then Hoja1.Cells(Fila, 17) = "X" ElseIf cmbFecha.Text = Hoja1.Range("R4") Then Hoja1.Cells(Fila, 18) = "X" ElseIf cmbFecha.Text = Hoja1.Range("S4") Then Hoja1.Cells(Fila, 19) = "X" ElseIf cmbFecha.Text = Hoja1.Range("T4") Then Hoja1.Cells(Fila, 20) = "X" ElseIf cmbFecha.Text = Hoja1.Range("U4") Then Hoja1.Cells(Fila, 21) = "X" ElseIf cmbFecha.Text = Hoja1.Range("V4") Then Hoja1.Cells(Fila, 22) = "X" ElseIf cmbFecha.Text = Hoja1.Range("W4") Then Hoja1.Cells(Fila, 23) = "X" ElseIf cmbFecha.Text = Hoja1.Range("X4") Then Hoja1.Cells(Fila, 24) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Y4") Then Hoja1.Cells(Fila, 25) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Z4") Then Hoja1.Cells(Fila, 25) = "X" ElseIf cmbFecha.Text = Hoja1.Range("AA4") Then Hoja1.Cells(Fila, 26) = "X" Else End If Por favor me pueden ayudar los agradecere bastante; Adjunto el archivo. Asistencia.xlsm
  6. Haplox, muchas gracias lo voy a tomar en cuenta
  7. Buenas tardes, expertos en la plantilla que adjunto de prestamos, cuando calculo el prestamo y los registro en la hoja estado me registra de la mayor a menor los registro, esto me podrian indicar que debo hacer para que se registre de forma ascendente Por otro en la hoja resumen el porcentaje me muestra muy elevado, ejemplo si es 20% aparece 200% Por favor me puede ayudar, adjunto el archivo Planilla Prestamos 1.5Final.xlsm
  8. Antoni, muchas gracias funciona perfecto, eres un crak lo agradesco un monton
  9. Buenos dias, expertos por favor me ayudan tengo un formulario con tres combobox que me filtra de la hoja filtros normal filtra con 10 columnas cuando lo aumento las 19 columnos me sale error a partir de la columna 10, ademas de ellos los combobox deben filtrar algo relacionado que significa esto si en el primer combo filtre entonces en base ese filtrado deben de filtrar elsegundo combo y asi para el ultimo combo; por favor me puede ayudar el solucionar dicho problema. Ajunto el archivo matrixx.xlsm
  10. Abraham Valencia, muchas gracias funciona bien, se soluciona mi problema
  11. Buenas noches, expertos por favor tengo un macro creado para generar codigo QR masivo ejecuta todo bien pero no muestra las imagenes del QR, por favor me puede ayudar por que ocurre eso. Ajunto el archivo QR.xlsm
  12. Haplox, en realidad me funcionó perfectamente esta como lo necesitaba muchas gracias, eres un genio nuevemente a todo los que me ayuda en esta plataforma son unos genios
  13. Bunos dias, expertos necesito de sus valiosos conocimientos para generar una macro que cuando doy clic en una de la columnas B donde esta listado el nombre del pdf me puede abrir dicho archivo, tengo muchas carpetas donde estan almacenados los pdf, logre hacer con la opción hipervinculo, pero el problema como es bastante lo busco filtrando entonces pierde el vinculo y no funciona; es por eso que solicito ayuda si podria ver una macro donde me cumpla toda las funciones anteriormente explicado. Espero haber cido claro, por favor me pueden ayudar. Ajunto un archivo de prueba con dos carpetas donde esta almacenado un archivo pfd en cada una de ellas. Muchas gracias por anticipado. Hipervinculo.rar
  14. Antoni, si gracias disculpe acabo de responderte, si me funcion perfectamente
×
×
  • Create New...

Important Information

Privacy Policy