JSDJSD
Exceler C
-
Unido
-
Última visita
Respuestas de la comunidad
-
JSDJSD's post in Actualizar Label Simultáneamente was marked as the answerTal y como tienes tu código hace lo siguiente, que es lo que necesitas?
-
JSDJSD's post in Buscar Datos con un ComboBox was marked as the answerPrueba ahora
RCI PRUEBA2.xlsm
-
JSDJSD's post in Ajuste Selectivo del Tamaño de las Filas was marked as the answerPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) ' Asegurarnos de que solo ajustamos las filas a partir de la fila 5 If Not Intersect(Target, Me.Rows("5:" & Me.Rows.Count)) Is Nothing Then Me.Rows("5:" & Me.Rows.Count).AutoFit End If End Sub
-
JSDJSD's post in Formato de Fecha was marked as the answer
-
JSDJSD's post in Generador de Códigos was marked as the answer
-
JSDJSD's post in AYUDA ima gen e hipervínculo was marked as the answerEl archivo
Propuesta25122024.xlsm
-
JSDJSD's post in al cambiar un campo dentro de un formulario actualizar el valor de otro was marked as the answerTal cual veo tu archivo en el formulario MC-Agregar registros, en el comobox Nombre(nomHoja) solamente deberías cargar Berel y Romta, bueno míralo y comentas.
-
JSDJSD's post in BLOQUEAR GUARDAR COMO was marked as the answerPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI Then MsgBox "La opción 'Guardar Como' está deshabilitada", vbExclamation Cancel = True End If End Sub Prueba y comenta
-
JSDJSD's post in Macro para habilitar tabla para agregar filas automaticamente en hoja protegida was marked as the answerprueba TABLA PROTEGIDA.xlsm tu archivo
-
JSDJSD's post in Contar Días (2) was marked as the answerEl archivo
Libro27102024.xlsm
-
JSDJSD's post in Bloquear TextBox, SpinButton y CommandButton según selección en Combobox was marked as the answerPrueba y comenta
HHE PRUEBA (3) (1).xlsm
-
JSDJSD's post in Contar Días was marked as the answerEl archivo
HHE PRUEBA (3).xlsm
-
JSDJSD's post in Mostrar hoja en Listbox según selección en Combobox was marked as the answerPrivate Sub ComBanco_Change() Dim hojabuscada As String Dim ultFila As Long Dim ultCol As Long hojabuscada = ComBanco With Sheets(hojabuscada) ultFila = .Cells(.Rows.Count, 1).End(xlUp).Row ultCol = .Cells(6, .Columns.Count).End(xlToLeft).Column LstDiario.RowSource = .Range(.Cells(6, 1), .Cells(ultFila, ultCol)).Address(External:=True) End With End Sub El saldo inicial no se si quieres que se muestre, en caso contrario modifica la macro, simplemente cambia en la dos ultimas líneas del bloque with el 6 por el 7
Para Foro.xlsm
