Jump to content

ramonvar

Members
  • Posts

    207
  • Joined

  • Last visited

  • Days Won

    1

ramonvar last won the day on July 28 2020

ramonvar had the most liked content!

About ramonvar

  • Birthday 08/31/1961

Profile information

  • Gender
    Hombre
  • Localización:
    Ciudad del Este Paraguay
  • Interests
    Futbol y Musica

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

935 profile views

ramonvar's Achievements

  1. Sr. Gerson Pineda Una ves mas gracias por su tiempo y paciencia, esta perfecto Damos por concluido este tema Saludos
  2. Buen día Señores del Foro Estoy utilizando la formula =CONTAR.SI($D:$D;D716)=1, de tal manera a evitar duplicidad de Datos, me funciona cuando quiero ingresar manualmente, pero tengo un CommandButton1 (GRABAR), en la misma hoja, que es para grabar nuevos registros, y la formula no controla en ese caso la duplicidad de Datos, me gustaría se a través de macro o formula que sea controlada la duplicidad.. mismo que se quiera introducir Datos manualmente o a través del Botón Grabar, particularmente los Datos de la columna "D" .. que no deben repetirse.. Adjunto Planilla Evitar Duplicacion.xlsm
  3. Buenas Tardes Maestro Antoni Muchas gracias, por tu tiempo y paciencia, podemos dar por concluido
  4. Con la disculpa del caso El adjunto anterior esta con contraseña Lo subo nuevamente Numeracón Secuencial.xlsm
  5. Buen día Señores del Foro Tengo una planilla en la cual hay una macro que me llena en forma secuencial las filas, de acuerdo a criterios puestos en las celdas "D2 D3 y D4", necesito una ayuda con una macro que me elimine los Datos de las columnas rellenadas, para lo cual debería de seleccionar dicha columna.. tengo en la misma planilla una macro que me elimina los datos, pero solamente de la columna "A".. Desde ya agradecido, adjunto planilla Numeracón Secuencial.xlsm
  6. Antoni Muchas gracias, por todo, paciencia y tiempo.. Damos por concluido este Tema
  7. Antoni Lo puse entre todas estas Líneas, la que me enviaste, pero si existe igual me sale el mensaje, por que al poner Ej. 1026, que existe, me arroja el mensaje de que no existe, al poner Ej. 2024 que es uno que no existe en toda la base sale si el mensaje de forma correcta No se donde estaría mi ERROR!!! If buscar = "" Then Exit SubWith Worksheets("RUCs empresas").Range("D:D")Set esta = .Find(buscar, LookIn:=xlValues)If Not esta Is Nothing Thenprimeracelda = esta.Address Desde ya gracias por tu paciencia
  8. Estaba con bloqueo al acceso en las macros... perdón Lo subo nuevamente RUCs PRUEBA1.xlsm
  9. Buen día Antoni Con la disculpa del caso, solo que pensé que con alzar la macro era suficiente, ahora subo el archivo sin ningún problemas Gracias y nuevamente pido las disculpas RUCs PRUEBA1.xlsm
  10. Buen día a todosAlguien me podría ayudar con esta macro, lo único que quiero es agregarle un mensaje, que cuando busca y no encuentra ningún registro; me diga que no lo encontróDeje la macro.. desde ya muchas graciasPrivate Sub CommandButton1_Click()ListBox1.ClearIf IsDate(TextBox1) Thenbuscar = CDate(TextBox1)Elsebuscar = TextBox1End IfIf buscar = "" Then Exit SubWith Worksheets("RUCs empresas").Range("D:D")Set esta = .Find(buscar, LookIn:=xlValues)If Not esta Is Nothing Thenprimeracelda = esta.AddressDoListBox1.ColumnCount = 3ListBox1.AddItem ""ListBox1.List(ListBox1.ListCount - 1, 0) = esta.AddressListBox1.List(ListBox1.ListCount - 1, 1) = estaListBox1.List(ListBox1.ListCount - 1, 2) = esta.Offset(, 1)ListBox1.ColumnWidths = "40;50;100"Set esta = .FindNext(esta)Loop While Not esta Is Nothing And esta.Address <> primeraceldaEnd IfEnd WithEnd SubPrivate Sub CommandButton4_Click()Unload MeEnd SubSub blanquea()Dim i As ByteFor i = 1 To 21Controls("TextBox" & i).Value = ""NextEnd Sub'Para limpiar el BUSCADORPrivate Sub CommandButton5_Click()Dim Ctrl As ControlFor Each Ctrl In BUSCADOR.ControlsIf TypeOf Ctrl Is MSForms.TextBox ThenCtrl = EmptyEnd IfNext CtrlEnd Sub'Para limpiar la ListaPrivate Sub CommandButton6_Click()ListBox1.ClearEnd SubPrivate Sub ListBox1_Click()Range(ListBox1.Column(0)).SelectEnd Sub
  11. Buenos días Señores Adjunto una planilla, para una mejor idea de lo que pretendo, con una macro la cual es apenas el inicio, pero no tengo la menor idea de como encarar este problemita, ni como hacer funcionar la macro que me paso un colaborador Saludos Intento-1.xlsm
  12. Buenas Tardes Señores del Foro Quisiera una mano, con lo siguiente, conforme abajo envío una lista de archivos, las cuales se encuentran en una carpeta "ORIGEN", (la cual podría ser otro Driver), que a través de una macro con un formulario, pudiera seleccionar un rango de fechas, (Ej. en un Texbox desde 31/07/2006 y en otro TextBox hasta 18/04/2007) las cuales serían copiadas a la carpeta "DESTINO".. y en caso de que ya existiera me pregunte si quiero reemplazar si o no?.. en caso que "si" reemplazar y por supuesto al darle "no", que continué con los demás.. Desde ya Agradecido
  13. Maestro Gerson Gracias por tu tiempo, es exactamente lo que necesitaba Podemos dar por cerrado este tema Abrazo Maestro
  14. Buenas Tardes Señores del ForoNecesito una mano con una planilla, para la cual desearía que una macro me realice lo siguienteEn la columna "A" fila "1" podría tener datos hasta la "A" fila 460000" por decir asi, contiene la ruta de donde están ubicados mis archivos y,En la columna "B" fila "1" podría tener datos hasta la "B" fila 460000" por decir asi, contiene mis archivos propiamenteLa idea es seleccionar la matriz completa y que me las combine en la columna "A" fila por fila, o en otra columna, que podría ser la columna "C"Desde ya agradecido..Adjunto Planilla Ejemplo LISTADO-CONCAT-2.xlsm
  15. Buenas Tarde DiegoLG Gracias por tu tiempo, excelente respuesta, lo que buscaba Se puede dar por Solucionado este tema.
×
×
  • Create New...

Important Information

Privacy Policy