Saltar al contenido

Leopoldo Blancas

Miembros
  • Contador de contenido

    1354
  • Unido

  • Última visita

  • Days Won

    26

Sobre Leopoldo Blancas

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. Ya en serio... en verdad desde hoy sera una "buena persona"... dejare el "maltrato" hacia los demás, dejare que pregunten lo que quieran,...dejare mi prepotencia... e incluso iré al Psicólogo, te lo prometo. Y si efectivamente se a quien te refieres si es que no me equivoco.. y allá están todos los de acá... creo que solo faltas tú. Ya no te preocupes por mi... ya no tendrás falta mía... ni de Ortografía.... Saludos.
  2. Ok Gerson Pineda.... desde hoy voy a ser "buena persona".... Ya no incomodare a nadie. Saludos y suerte!!!
  3. No hay problema contigo... ni con las "buenas personas", creo que tengo problemas con las personas que no hacen ni el intento... Es como si yo pidiera.. POR FAVOR NECESITO UN DESBOARD DE UNA APLICACIÓN TERMINADA PARA CONTROLAR MI TIENDA DE ABARROTES, JUNTO CON SUS BASES DE DATOS Y FORMULARIOS... GRACIAS. Y yo no subir ni una linea de código... Me lo harías? Por ahí leí en los pasados días a @Gerson Pineda que el foro es para ayudar y para que aprendan... que no siempre se les van a hacer las cosas... Saludos.
  4. HOY LA VOLVISTE A SALVAR... POR QUE LLEGO UNA PERSONA BUENA... EN FIN... EL QUE NO QUIERE.. NO QUIERE.
  5. Jajaja LO DUDAS... Jajaja Ya apareció una "Buena Persona"...!!!
  6. Te voy a contar una historia...(Parte de mi vida), yo se un poco de Electrónica y un día me ofrecen un trabajo de Electricidad Industrial... es algo parecido pero no es lo mismo...me tenia que poner a la altura de los demás, ya que a ellos yo les preguntaba cosas que desconocía en Electricidad y para no estar preguntando tanto...(es que en verdad me daba pena ganar mucho y saber tan poco) estudiaba en las noches hasta 2, 3 de la mañana y en un año... ya hasta ellos me preguntaban... Así que es una invitación a que empieces a estudiar y dejes esa forma de pensar que todo me lo tienen que hacer o resolver... claro esta: si es que en verdad te gusta o necesitas resolver estas preguntas de Excel. Suerte...!!!
  7. "buena persona"??? si soy muy malo... malo.. malo...
  8. Hola @sretamalb, Ya habias publicado los mismo... Creo que lo que necesitas es estudiar un poco VBA.... Ya que no siempre se te va a hacer todo el trabajo... Y es desde OCTUBRE... En noviembre y diciembre no estudiaste nada??? Suerte...!!!
  9. Solo una observación en tu código @Gerson Pineda... Te recuerdo que ya estamos en 2019.... digo no vaya a ser que se te revuelvan los códigos VBA cuando los busques. Saludos.
  10. Busca en la web primero...(Recomendación) https://exceltotal.com/hipervinculos-en-excel/ Saludos.
  11. @Antoni ahiiiiii vvvvvvvaaaaaaaaaaaaaaaaaaa..............aaaaaaa Sub PintaCambio() Dim Celda As Range, Valor, TC& Application.ScreenUpdating = False Valor = Range("A2") TC = 35 For Each Celda In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) If Celda <> Valor Then Valor = Celda.Value If TC = 35 Then TC = 40 Else TC = 35 End If Range("A" & Celda.Row & ":R" & Celda.Row).Interior.ColorIndex = TC Next Celda Application.ScreenUpdating = True End Sub
  12. Bueno... @Antoni, para dar otro ejemplo con With y con tu recomendación... Para que vuelvas a soñar con VBA... Sub FormatosDescompuestos() Dim TipoColor, Celda, Filas&, n& Application.ScreenUpdating = False With ThisWorkbook.Sheets("Hoja1") TipoColor = 35 Celda = .Range("A2") For n = 2 To .Range("A2").CurrentRegion.Rows.Count If Celda <> .Cells(n, "A") Then Celda = .Range("A" & n) If TipoColor = 35 Then TipoColor = 40 Else TipoColor = 35 End If .Range("A" & n & ":R" & n).Interior.ColorIndex = TipoColor Next n End With Application.ScreenUpdating = True End Sub Saludos a Ambos!!!
  13. Es para que el consultante le entienda mejor... o esperamos el ejemplo en Power Query... a ver si así le entiende el consultante??? Como vez @Antoni??? esperamos o hacemos el cambio?
  14. Usa... Sub PintaCambio() Dim Celda As Range, Valor, TC& Valor = Range("A2") TC = 1 For Each Celda In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) If Celda <> Valor Then Valor = Celda.Value If TC = 1 Then TC = 2 Else TC = 1 End If If TC = 2 Then Range("A" & Celda.Row & ":R" & Celda.Row).Interior.ColorIndex = 35 Else Range("A" & Celda.Row & ":R" & Celda.Row).Interior.ColorIndex = 40 End If Next Celda End Sub Saludos
  15. Espero te sirva... =SI(F13>0,CONCATENAR("Existen"&" "&F13&" "&" "&"Pedidos especiales"),"No Existen Pedidos Especiales.") Saludos.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.