Saltar al contenido

Toldeman

Miembros
 Ver perfil  Ver su actividad

  • Contador de contenido

    3299

  • Unido

  • Última visita

  • Days Won

    16

Reputación de la comunidad

276 Muy buena

Ver actividad de reputación

1Seguidor

Sobre Toldeman

  • Rango
    juan

Formas de contacto

  • Web http://www.toldospino.es/

Información de perfil

  • Sexo

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

420 visitas de perfil
  1.    Cristian 1985 reacted to un mensaje en un tema: CRUZAR DATOS ENTRE HOJAS DE UN MISMO LIBRO

  2. CRUZAR DATOS ENTRE HOJAS DE UN MISMO LIBRO

    Toldeman contestó a Raquelhbas en topic Excel General

    Hola. Sube un pequeño ejemplo tal y com se indica en las normas del foro y escribe de forma manual el resultado esperado. Saludos.
  3.    Toldeman reacted to un mensaje en un tema: Invertir orden de una frase
  4.    Javier_Salas reacted to un mensaje en un tema: Invertir orden de una frase
  5.    Antoni reacted to un mensaje en un tema: Invertir orden de una frase

  6. Invertir orden de una frase

    Toldeman contestó a Javier_Salas en topic Temas resueltos

    Hola prueba esta macro y adaptala a la columna que quieras. Teniendo en cuenta que las letras se encuentren en la celda A1 Sub invertir() Dim x, x1 As Long Dim letra, letra1 As String letra1 = Range("A1") x1 = 2 Do x = InStrRev(letra1, " ", -1) If x = 0 Then Range("B" & x1) = letra1: Exit Do letra = Mid(letra1, x + 1) letra1 = Mid(letra1, 1, x - 1) Range("B" & x1) = letra x1 = x1 + 1 Loop End Sub Saludos.
  7.    Silvia reacted to un mensaje en un tema: CONDICIONAL
  8.    Silvia reacted to un mensaje en un tema: Reporte usando Jerarquías

  9. #¡valor!, quiero quitarlo

    Toldeman contestó a curanilahue en topic Temas resueltos

    Hola. Para versiones superiores a excel 2003. =SI.ERROR(JERARQUIA.EQV(AM3;$AM$3:$AM$47;0);"") Anteriores =SI(ESERROR(JERARQUIA.EQV(AM3;$AM$3:$AM$47;0));"";JERARQUIA.EQV(AM3;$AM$3:$AM$47;0)) Saludos.

  10. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Asi se soluciona. Sub consultafechas() Dim fechainicial As Date Dim fechafinal As Date Range("G1:H1") = "FECHA" fechainicial = InputBox("fecha inicial") fechafinal = InputBox("fechafinal") Range("G2").FormulaR1C1 = "<=" & CLng(fechafinal) Range("H2").FormulaR1C1 = ">=" & CLng(fechainicial) Sheets("ventas").Range("A4:I10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("G1:h2"), CopyToRange:=Range("A9:I9"), Unique:=False Range("A7:I7").Select Selection.ClearContents Range("G1:H2").ClearContents Exit Sub err: MsgBox "formato incorrecto" Exit Sub End Sub Saludos.

  11. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Sub BUSQUEDA_PAQUITO() Dim rng As Range Sheets("compras").Range("A4:I10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A6:I7"), CopyToRange:=Range("A9:I9"), Unique:=False Range("A7:I7").Select Selection.ClearContents Range("A10").Select Set rng = ActiveCell.CurrentRegion rng.Interior.Color = vbYellow End Sub Sub BUSQUEDA_PAQUITO() Dim rng As Range Sheets("ventas").Range("A4:I10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A6:I7"), CopyToRange:=Range("A9:I9"), Unique:=False Range("A7:I7").Select Selection.ClearContents Range("A10").Select Set rng = ActiveCell.CurrentRegion rng.Interior.Color = vbRed End Sub Saludos.

  12. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Por partes. Te da error porque te falta esta linea de codigo: On Error GoTo err Vuelve a copiar el codigo ultimo que te mande y pruebas otra vez. Tu segunda pregunta ahora cuando pueda la reviso con calma. Saludos.

  13. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Yo lo pruebo y no me aparece el error que comentas. Sube de nuevo el archivo e indica desde donde lanzas la macro, para probar. Saludos.

  14. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Prueba asi: Sub consultafechas() Dim fechainicial As Date Dim fechafinal As Date On Error GoTo err Range("G1:H1") = "FECHA" fechainicial = InputBox("fecha inicial") fechafinal = InputBox("fechafinal") Range("G2").FormulaR1C1 = "<=" & CLng(fechafinal) Range("H2").FormulaR1C1 = ">=" & CLng(fechainicial) Sheets("ventas").Range("A4:I10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("G1:h2"), CopyToRange:=Range("A9:I9"), Unique:=False Range("A7:I7").Select Selection.ClearContents Range("G1:H2").ClearContents err: MsgBox "formato incorrecto" Exit Sub End Sub Saludos.

  15. Complemento para programar con VBA

    Toldeman contestó a febrero59 en topic Macros y programación VBA

    Hola juan. Aqui en la pagina hay un complemento interesante. https://ayudaexcel.com/complementos-de-excel/ Saludos.

  16. CONDICIONAL

    Toldeman contestó a borja123 en topic Temas resueltos

    Hola. No se si entendi muy bien lo que planteas, por el resultado que has puesto manual que no logro entender. De todas maneras prueba asi: =SI(Y(CONTAR.SI(D$6:D$8;D6)=1;CONTAR.SI(E6;"N")=1);1;0) Saludos.

  17. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Prueba esta macro. Sub consultafechas() Dim fechainicial As Date Dim fechafinal As Date Range("G1:H1") = "FECHA" fechainicial = InputBox("fecha inicial") fechafinal = InputBox("fechafinal") Range("G2").FormulaR1C1 = "<=" & CLng(fechafinal) Range("H2").FormulaR1C1 = ">=" & CLng(fechainicial) Sheets("ventas").Range("A4:I10000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("G1:h2"), CopyToRange:=Range("A9:I9"), Unique:=False Range("A7:I7").Select Selection.ClearContents Range("G1:H2").ClearContents End Sub Saludos.
  18.    Toldeman reacted to un mensaje en un tema: ***MOSTRAR RESULTADO EN UN COMENTARIO***
  19.    Silvia reacted to un mensaje en un tema: Consulta entre 2 fechas.

  20. ***MOSTRAR RESULTADO EN UN COMENTARIO***

    Toldeman contestó a henryericsson en topic Macros y programación VBA

    Hola a todos. Prueba esta macro Sub comentarios() Dim rng As Range Dim cel As Range Dim ig As String Dim codigo As Variant Dim juan(5) As Variant Set rng = Range("D3:D9") ig = Range("G3") Range("G4").Comment.Delete For Each cel In rng If cel = ig Then x = x + 1 r = cel.Offset(0, -3).Address codigo = cel.Offset(0, -3) producto = cel.Offset(0, -2) precio = cel.Offset(0, -1) juan(x) = codigo & "-" & producto & "-" & precio End If Next Range("G4").AddComment Range("G4").Comment.Visible = True Range("G4").Comment.Text Text:="tu nombre:" & Chr(10) & juan(1) & Chr(10) & juan(2) & Chr(10) & juan(3) & Chr(10) & juan(4) End Sub Saludos.

  21. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Si subes un pequeño ejemplo no tendras problemas, luego es adaptarlo a tu libro original.

  22. Consulta entre 2 fechas.

    Toldeman contestó a franky23 en topic Macros y programación VBA

    Hola. Sube un pequeño ejemplo de como tienes estructurado tu libro y de forma manual escribe los resultados esperados. Por favor postea en el foro adecuado. Muevo el tema al lugar correspondiente. Saludos.

  23. Reporte usando Jerarquías

    Toldeman contestó a actNP en topic Temas resueltos

    Hola. Utiliza el valor del campo $ como argumento en funciones de busqueda, como por ejemplo buscarv. Un saludo a todos.
×