Jump to content

Caballero Rojo

Members
  • Posts

    8
  • Joined

  • Last visited

About Caballero Rojo

  • Birthday 09/08/1968

Converted

  • Campos
    ;

Caballero Rojo's Achievements

  1. No me deja subir es muy pesado, envío este enlace para que lo vean a ver si me ayudan! gracias! https://drive.google.com/drive/folders/1_gF7ALFYRS7tmS621S-N7e5AlR7W95Dn?usp=sharing
  2. Hola gente!!! tengo un proyecto en Excel con macros que instale en un disco de la empresa, yo con mi notebook tengo Microsoft 365 para empresas abro la planilla y me funciona bien , pero cuando abro desde una PC que tiene Excel 2016 me genera el problema del titulo "error 438 en tiempo de ejecución. El objeto no admite esta propiedad o método". Pregunto a ver si me ayudan ¿Se podrá arreglar esto o no, hay alguna forma? Gracias
  3. Hola Gente!!! ¿como estan? Estoy en un proyecto y me freno un tema, el el listbox me aparece un dato pero no en forma de hora como esta la planilla. ¿Como puedo cambiar ese tema para que se vea en hh:mm? Desde ya gracias!! If UCase(Description) Like "*" & UCase(Me.TextBox1.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(File, 2).Value Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(File, 3).Value 'Hora hh:mm Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(File, 4).Value Me.LISTA.List(Y, 3) = Sheets("PLANILLA").Cells(File, 5).Value Me.LISTA.List(Y, 4) = Sheets("PLANILLA").Cells(File, 6).Value Me.LISTA.List(Y, 5) = Sheets("PLANILLA").Cells(File, 10).Value 'Hora hh:mm
  4. Hola Antoni , gracias por mirar!! El error estaba en colocar "fila" donde deberia ir "File", con ese cambio solucione! Muchas gracias!!
  5. Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto". Private Sub TEXTO_Change() 'MsgBox "Hola" NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row 'MsgBox NumeroDatos Sheets("PLANILLA").AutoFilterMode = False Me.LISTA = Clear Me.LISTA.RowSource = Clear Y = 0 For File = 12 To NumeroDato If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(Fila, 2).Value Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(Fila, 3).Value Y = Y + 1 End If Next End Sub Alguien me podra ayudar. Gracias!!
×
×
  • Create New...

Important Information

Privacy Policy