Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

DiegoLG

Exceler E

Ver perfil Ver su actividad

Contador de contenido
866
Unido
el 22 de noviembre
Última visita
el domingo a las 04:49
Días con premio
10

DiegoLG ganó el día el 21 de octubre

DiegoLG had the most liked content!

4 Seguidores

Sobre DiegoLG

Cumpleaños 08/31/1990

Formas de contacto

Web
https://es-la.facebook.com/solucionesmsexcelvba/
Skype
solucionesmsexcelvba@gmail.com

Información de perfil

Sexo
Hombre
Localización:
México

Configuraciones

Campo que utilizas como separador de argumentos
,
Mi versión de Excel:
2

Visitantes recientes del perfil

14211 visitas de perfil

digitalboy

el 26 de septiembre
Benito Bartolomé

el 9 de marzo
jcc-tec

el 27 de febrero
Shi123

el 11 de abril
Erendira

el 8 de febrero

DiegoLG's Achievements

Aficionado (6/14)

Insignias recientes

322

Reputación de la comunidad

Respuestas de la comunidad

DiegoLG ha empezado a seguir a Conversión de unidades de productos , Ayuda con Grafico Dinamico en Dashboard , Saludos y 7 otros el 23 de octubre
Ayuda con Grafico Dinamico en Dashboard

tema contestó a DiegoLG en pato10x Gráficos y visualización de datos

Sube un archivo de ejemplo @pato10x
- el 23 de octubre
- 1 respuesta
Saludos

un tema añadido DiegoLG en Presentaciones

Que tal amigos, solo pase a saludarlos, apenas estoy de regreso de nuevo. tanto tiempo. feliz noche a todos
- el 19 de octubre
- 1
Barra de menus

archivo comentó en DiegoLG en DiegoLG Utilidades

@digitalboy adelante amigo, solo es una pequeña prueba que subi en este foro saludos y buenas noches
jescobravo

DiegoLG
Hola Diego,

Vi tu aportación acerca de un Concatenado condicional en el cual sugerías un UDF de la sforma que adjunto, pero me gustaría saber que ajuste sugerirías para que el resultado lo pueda obtener separando por un salto de línea a cada uno de los valores que jala el concatenado. (Pensé que modificando la fórmula a CARACTER (10) lo lograría, pero no fue así)

De antemano muchas gracias!!
```
Function ConcatenarSI(Criterios As Range, Condicion As String, Datos As Range, _
                        Optional Exacto As Boolean = False, _
                        Optional Separa As String = " ") As String
  Dim Criterio As Range, Sig As Integer, Coincide As Boolean: ConcatenarSI = ""
  For Each Criterio In Criterios: Sig = Sig + 1: Coincide = IIf(Exacto, _
    Criterio = Condicion, LCase(Criterio) = LCase(Condicion))
    If Coincide Then If Not IsEmpty(Datos.Cells(Sig)) Then ConcatenarSI = _
      ConcatenarSI & IIf(Len(ConcatenarSI), Separa, "") & Datos.Cells(Sig)
  Next
End Function
```
- el 11 de noviembre
1. DiegoLG
  
  La verdad no entiendo a que te refieres con salto de linea.
  
  Si quieres adjunta tu archivo en el foro si no puedo ayudarte, estoy seguro que alguien mas te va ayudar.
  
  Saludos Amigo.
  
  el 11 de noviembre
JAVISHALOM

DiegoLG
Cordial saludo Diego

Solicito una ayudota.

Tengo una hoja excel para un examen con varias preguntas, (40), cada pregunta tiene cuatro opciones de respuesta A), B), C), o D), para ello he utilizado Option Buton (4), para cada pregunta. Para escoger la respuesta y calificarla, y al escoger cada OpButton debe registrar como primera opción un "4", en una celda específica... Me explico

Escoge:

OptBtn1 debe registrar "4" en la celda Z5

OptBtn2 debe registrar "4" en la celda Z6

OptBtn3 debe registrar "4" en la celda Z7

OptBtn4 debe registrar "4" en la celda Z8

Pero al digitar por "error" cualquier opción y volver a digitar la que considere mejor, debe borrar la celda anterior...

Tengo el siguiente código, pero se repite demasiado y creo que consume muchos bytes la idea es hacer ligero el código y rápido

Private Sub OptBtn_Change()
If OpBt1A = True Then
Range("J86").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J86").Select
Selection.ClearContents
End If

If OpBt1B = True Then
Range("F87").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F87").Select
Selection.ClearContents
End If

If OpBt1C = True Then
Range("G88").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G88").Select
Selection.ClearContents
End If

If OpBt1D = True Then
Range("E89").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E89").Select
Selection.ClearContents
End If

If OpBt2A = True Then
Range("J92").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J92").Select
Selection.ClearContents
End If

If OpBt2B = True Then
Range("E93").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E93").Select
Selection.ClearContents
End If

If OpBt2C = True Then
Range("F94").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F94").Select
Selection.ClearContents
End If

If OpBt2D = True Then
Range("H95").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H95").Select
Selection.ClearContents
End If

If OpBt3A = True Then
Range("F98").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F98").Select
Selection.ClearContents
End If

If OpBt3B = True Then
Range("J99").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J99").Select
Selection.ClearContents
End If

If OpBt3C = True Then
Range("I100").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I100").Select
Selection.ClearContents
End If

If OpBt3D = True Then
Range("G101").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G101").Select
Selection.ClearContents
End If

If OpBt4A = True Then
Range("H104").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H104").Select
Selection.ClearContents
End If

If OpBt4B = True Then
Range("I105").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I105").Select
Selection.ClearContents
End If

If OpBt4C = True Then
Range("E106").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E106").Select
Selection.ClearContents
End If

If OpBt4D = True Then
Range("F107").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F107").Select
Selection.ClearContents
End If

If OpBt5A = True Then
Range("G110").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G110").Select
Selection.ClearContents
End If

If OpBt5B = True Then
Range("H111").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H111").Select
Selection.ClearContents
End If

If OpBt5C = True Then
Range("I112").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I112").Select
Selection.ClearContents
End If

If OpBt5D = True Then
Range("J113").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J113").Select
Selection.ClearContents
End If

If OpBt6A = True Then
Range("E116").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E116").Select
Selection.ClearContents
End If

If OpBt6B = True Then
Range("F117").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F117").Select
Selection.ClearContents
End If

If OpBt6C = True Then
Range("J118").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J118").Select
Selection.ClearContents
End If

If OpBt6D = True Then
Range("I119").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I119").Select
Selection.ClearContents
End If

If OpBt7A = True Then
Range("G122").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G122").Select
Selection.ClearContents
End If

If OpBt7B = True Then
Range("J123").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J123").Select
Selection.ClearContents
End If

If OpBt7C = True Then
Range("F124").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F124").Select
Selection.ClearContents
End If

If OpBt7D = True Then
Range("H125").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H125").Select
Selection.ClearContents
End If

If OpBt8A = True Then
Range("E128").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E128").Select
Selection.ClearContents
End If

If OpBt8B = True Then
Range("I129").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I129").Select
Selection.ClearContents
End If

If OpBt8C = True Then
Range("H130").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H130").Select
Selection.ClearContents
End If

If OpBt8D = True Then
Range("J131").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("J131").Select
Selection.ClearContents
End If

If OpBt9A = True Then
Range("F134").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("F134").Select
Selection.ClearContents
End If

If OpBt9B = True Then
Range("G135").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G135").Select
Selection.ClearContents
End If

If OpBt9C = True Then
Range("E136").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E136").Select
Selection.ClearContents
End If

If OpBt9D = True Then
Range("I137").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("I137").Select
Selection.ClearContents
End If

If OpBt10A = True Then
Range("G140").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("G140").Select
Selection.ClearContents
End If

If OpBt10B = True Then
Range("E141").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("E141").Select
Selection.ClearContents
End If

If OpBt10C = True Then
Range("H142").Select
ActiveCell.FormulaR1C1 = "4"
Else
Range("H142").Select
Selection.ClearContents
End If

end sub
- el 11 de septiembre
1. DiegoLG
  
  Estimado:
  
  Apenas me conecte, ultimamente ando un poco ocupado, mas los temblores que esta pasando aqui en méxico, la verdad esta fallando mucho la red.
  
  sobre tu tema, puedes manejar de la siguiente manera:
  
  Private Sub OptionButton1_Click() Hoja1.Range("Z5:Z8") = "" If OptionButton1 = True Then Range("Z5") = 4 End Sub Private Sub OptionButton2_Click() Hoja1.Range("Z5:Z8") = "" If OptionButton2 = True Then Range("Z6") = 4 End Sub Private Sub OptionButton3_Click() Hoja1.Range("Z5:Z8") = "" If OptionButton3 = True Then Range("Z7") = 4 End Sub Private Sub OptionButton4_Click() Hoja1.Range("Z5:Z8") = "" If OptionButton4 = True Then Range("Z8") = 4 End Sub
  
  Saludos,
  
  el 26 de septiembre
Barra de menus

Archivo añadido DiegoLG en Utilidades

Version 1.0.0

377 downloads

Un día con frio y me puse analizar esta aplicación y en algo les puede servir Aqui les dejo si tienen alguna otra idea bienvenido sea. Saludos...
DiegoLG

Ayuda a tus semejantes a levantar su carga, pero no te consideres obligado a llevársela. Pitágoras
- el 24 de julio

Conéctate a Ayuda Excel

DiegoLG

Contador de contenido

Unido

Última visita

Días con premio

4 Seguidores

Sobre DiegoLG

Formas de contacto

Información de perfil

Configuraciones

Visitantes recientes del perfil

digitalboy

Benito Bartolomé

jcc-tec

Shi123

Erendira

DiegoLG's Achievements

Aficionado (6/14)

Insignias recientes

Reputación de la comunidad

Respuestas de la comunidad

Ayuda con Grafico Dinamico en Dashboard

Saludos

Barra de menus

jescobravo

DiegoLG

JAVISHALOM

DiegoLG

Barra de menus

DiegoLG

Navegar

Política privacidad

Información importante