Jump to content

gacg1310

Members
  • Content Count

    76
  • Joined

  • Last visited

About gacg1310

  • Rank
    Advanced Member
  • Birthday 10/13/1974

Profile information

  • Gender
    Hombre
  • Localización:
    madrid - colombia
  • Interests
    futbol, f1

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2
  1. antoni, me puedes explicar por que lios conceptuales, quisiera aprender mas, gracias
  2. Buenos dias, adjunto el archivo. El Userform4 al ejecutarlo, la idea es la siguiente: Si el label 1 es vacio no debe aparecer el optionbutton1 Si el label 2 es vacio no debe aparecer el optionbutton2 Si el label 3 es vacio no debe aparecer el optionbutton3 El error que me genera tambien es cuando oprimo cualquier optionbutton y me abre el inputbox pididendo la cantidad a digitar y esta es vacia y le doy aceptar O le doy cancelar me sale "ERROR TIPO 13" y se detiene en esta linea: CANTPEQ = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR") Agradezco muchisimo su ayuda, buen dia desde Colombia VERSION 5.9.xlsm
  3. buenos dias: les envio un archivo en TXT en donde al oprimir un optionbutton me habilita un inputbox donde se solicita digitar un numero, pero al dejar vacio y dar aceptar o dar boton cancelar me sale "ERROR 13 NO COINCIDEN LOS TIPOS" en la siguiente linea del archivo adjunto. CANTPEQ = InputBox("Ingrese la cantidad a enviar", "CANTIDAD A ENVIAR") Agradezco su ayuda MUESTRA.txt
  4. antoni, muchisimas gracias, eso es justo lo que necesitaba. Doy por cerrado el tema, feliz dia desde colombia un gran abrazo
  5. Buenos Días: Como programo la macro para que recorra la columna B y si encuentra la fecha de hoy tome la cantidad de la columna pequeña y se la sume a la cantidad de la columna mediana logicamente sobre la misma fila. El resultado deberá ser el nuevo dato de la columna mediana y debera borrar el dato de la cantidad en la columna pequeña PRUEBA.xlsx
  6. Buenas Tardes: Necesito su ayuda para saber cuales son las instrucciones EN MAC para hacer lo siguiente: si valor de celda es 0 eliminar toda la fila GRACIAS
  7. Buenas Tardes: Me pueden ayudar como hago para corregir este error ya que en mi pc no sale pero le envio el archivo a otra persona via email y le sale, a esa persona no le sale la linea donde esta el error, solo sale el error y ya.
  8. hola hector, imaginate que puede ser de no creer pero creo haber solucionado el error, resulta que tenia unas celdas con un buscarv que generan un error pues no estaba lo buscado entonces esas celdas que generan el error son las que no dejan funcionar la macro. De todas maneras si puedes regalarme tu correo para compartir el archivo para que lo veas y me des tu opinión pues no sobra, gracias
  9. hola hector el error sale cuando le doy ejecutar, no especifica cual es la linea, es posible hacer una reunion via zoom o skype o algo asi para mostrarte??
  10. Adjunto el codigo Private Sub CommandButton1_Click() Unload Me End Sub Private Sub TextBox1_Change() Call BUSCAR End Sub Private Sub TextBox2_Change() Call BUSCAR End Sub Private Sub TextBox3_Change() Call BUSCAR End Sub Private Sub TextBox4_Change() Call BUSCAR End Sub Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 8 .ColumnWidths = "40PT;40PT;40PT;40PT;60PT;60PT;100PT;100PT" End With Call MOSTRAR End Sub Sub MOSTRAR() Dim Y, X As Long Dim ULTIMAFILA As Long ULTIMAFILA = NREG(Hoja12, 2, 2) - 1 For Y = 2 To ULTIMAFILA With Me.ListBox1 X = .ListCount .AddItem .List(X, 0) = Hoja12.Cells(Y, 2).Value .List(X, 1) = Hoja12.Cells(Y, 3).Value .List(X, 2) = Hoja12.Cells(Y, 4).Value .List(X, 3) = Hoja12.Cells(Y, 5).Value .List(X, 4) = Hoja12.Cells(Y, 7).Value .List(X, 5) = Hoja12.Cells(Y, 8).Value .List(X, 6) = Hoja12.Cells(Y, 9).Value .List(X, 7) = Hoja12.Cells(Y, 10).Value End With Next End Sub Sub BUSCAR() Dim X, Y, A As Long ListBox1.Clear X = NREG(Hoja12, 2, 2) A = 0 For Y = 2 To X If Not TextBox1 = "" Or Not TextBox2 = "" Or Not TextBox3 = "" Or Not TextBox4 = "" Then If UCase(Hoja12.Range("B" & Y)) Like "*" & UCase(TextBox1.Text) & "*" _ And UCase(Hoja12.Range("C" & Y)) Like "*" & UCase(TextBox2.Text) & "*" _ And UCase(Hoja12.Range("D" & Y)) Like "*" & UCase(TextBox3.Text) & "*" _ And UCase(Hoja12.Range("E" & Y)) Like "*" & UCase(TextBox4.Text) & "*" Then ListBox1.AddItem ListBox1.List(A, 0) = Hoja12.Range("B" & Y).Value ListBox1.List(A, 1) = Hoja12.Range("C" & Y).Value ListBox1.List(A, 2) = Hoja12.Range("D" & Y).Value ListBox1.List(A, 3) = Hoja12.Range("E" & Y).Value ListBox1.List(A, 4) = Hoja12.Range("G" & Y).Value ListBox1.List(A, 5) = Hoja12.Range("H" & Y).Value ListBox1.List(A, 6) = Hoja12.Range("I" & Y).Value ListBox1.List(A, 7) = Hoja12.Range("J" & Y).Value A = A + 1 End If Else End If Next Y End Sub ________________________________________________________________________________________________________ Option Explicit Option Private Module Public Function NREG(HOJA As Worksheet, NFILA As Long, NCOLUMNA As Integer) Do Until IsEmpty(HOJA.Cells(NFILA, NCOLUMNA)) NFILA = NFILA + 1 Loop NREG = NFILA End Function
  11. Hola Hector, Buenos Dias Gracias por tu ayuda, el archivo no me alcanza a pesar lo maximo permitido, como te lo puedo adjuntar o enviar?
  12. error mac.pdf Buenas Tardes desde Colombia Adjunto imagen del error que me sale al ejecutar un archivo en mac, lo raro es que yo lo tenia en mi excel de windows y funcionaba perfectamente y ya hoy al abrirlo me esta sacando el mismo error, agradezco su ayuda
  13. Buenos Días desde Colombia, a esta inquietud NO ES NECESARIO ADJUNTAR ARCHIVO, tengo un libro con 3 hojas y entre las 3 superan el 1048576 filas de excel, osea no puedo unirlas en 1 sola hoja. En POWERPIVOT es posible?
×
×
  • Create New...

Important Information

Privacy Policy