Jump to content

ikanni

Members
  • Content Count

    336
  • Joined

  • Last visited

  • Days Won

    9

ikanni last won the day on November 16

ikanni had the most liked content!

1 Follower

About ikanni

  • Rank
    Advanced Member

Profile information

  • Localización:
    Tafalla

Converted

  • Campos
    ;

Recent Profile Visitors

1,840 profile views
  1. Hola Pirtrafilla, Preguntas : ¿Los PDF están todo en una carpeta? Si la respuesta es NO, ¿Cómo estan distribuidos los ficheros? Un mapita de como estan los pdf vendría bien para poder abordar una solución.
  2. Hola benjarc, No he trbajado con formularios de word y no tengo ninguno para trabajar. Pero la solución a tu problema yo lo plantearía de la siguiente manera. El formulario Word tendrá un botón o algo parecido para grabar los datos que envías al propio documento. En ese momento sería automatizar el ingreso de los datos en otra aplicación como Excel o Access. Y ¿Cómo? Pues seguro que hay un momtón de ejemplos en el foro que te ayudan a construir algo. Por darte una idea yo si sería a Access lo haría con una consulta de actualizacion usando ADO. Y con Excel dependería la cantidad de campos
  3. Te dejo el formulario apañado. Saludos Gestor Documental (v.prueba)(3).xlsm
  4. Hola Pirtrafilla, A ver si te vale el apaño. Hecho por fuerza bruta😃 Gestor Documental (v.prueba)(2).xlsm
  5. Hola Piltrafilla, Te he hecho un apaño, ya que yo cambiaría todo🙄, pero no hay tiempo. Te busca en todas las subcarpetas que haya en la carpeta seleccionada y la ruta se ve tambien en el listbox. Espero te sirva. Gestor Documental (v.prueba).xlsm
  6. Hola joseppp, No está nada claro lo que pides, pero bueno hqciendo un esfuerzo por entenderte, mira a ver sí es esto lo que buscas. Dale el botoncito rojo y te creará los cuadrantes individualizados para enviarlos pero cuando termine se queda como estaba. Espartano pero efectivo siempre y cuando no se han miles de correos 😉 . Prueba1(1).xlsm
  7. Hola Vladimir, Aquí una manera de hacer lo demandas. Sub ColoreaAlterno() Dim strCad As String, varVal As Long, miColor As Long, d As Range Set d = Hoja1.Range("A2:A" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row) miColor = vbYellow varVal = [a2].Value For Each celda In d If celda = varVal Then celda.Interior.Color = miColor Else varVal = celda miColor = IIf(miColor = vbGreen, vbYellow, vbGreen) celda.Interior.Color = miColor End If Next celda End Sub End Sub
  8. Hola Joselica, ibas bien encaminada. Cambia en tu procedimiento 'StarBlink' la parte que esta por esta With rRange If .Interior.ColorIndex = 3 Then .Interior.ColorIndex = xlNone .Font.Color = vbBlack Else .Interior.ColorIndex = 3 .Font.Color = vbWhite End If End With SAludos
  9. Hola Joselica, El criterio del filtro avanzado no lo has creado bien, es mas sencillo. Cambia este procedimiento por el tuyo Private Sub TextBox1_Change() criteriofiltro = "*" & Hoja1.TextBox1.Text & "*" If TextBox1.Text <> "" Then Hoja1.Range("B7").AutoFilter Field:=2, Criteria1:=criteriofiltro Else Hoja1.ListObjects("Table1").Range.AutoFilter Field:=2 End If End Sub
  10. He probado la macro y a mi me funciona. Aunque yo lo haría de otra manera. Por ejemplo Sub EliminarReceta() Dim resp As Long resp = MsgBox("¿ESTÁ SEGURO DE ELIMINAR ESTA RECETA?", _ vbQuestion + vbYesNo, "Confirmación eliminación") If resp = 6 Then Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End Sub
  11. Hola, Debes asignar la referencia de objeto a la variable. Set Matrix =Range("A8:A10") Saludos
  12. Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 3 Then ' Si la celda cambiada petenece a la coluna 3 = "C", entramos ... Application.EnableEvents = False 'Desactivo eventos porque voy hacer cambios en las celdas .Offset(, -1) = Format(Now, "hh:mm") 'Ponemos la hora en la celda, una celda a la Izq, de la celda modificada ' que si estamos en "C" ==> "B" If Len(.Text) = 0 Then .Offset(, -1) = "" ' Evaluo : Sí En la celda cambiada no hay nada, elimino
×
×
  • Create New...

Important Information

Privacy Policy