JSDJSD
-
Contador de contenido
2440 -
Unido
-
Última visita
-
Días con premio
236
Respuestas de la comunidad
-
JSDJSD's post in Actualizar Label Simultáneamente was marked as the answer
Tal 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 answer
Prueba ahora
RCI PRUEBA2.xlsm
-
JSDJSD's post in Ajuste Selectivo del Tamaño de las Filas was marked as the answer
Private 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 AYUDA ima gen e hipervínculo was marked as the answer
El archivo
Propuesta25122024.xlsm
-
JSDJSD's post in al cambiar un campo dentro de un formulario actualizar el valor de otro was marked as the answer
Tal 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 answer
Private 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 answer
prueba TABLA PROTEGIDA.xlsm tu archivo
-
-
JSDJSD's post in Bloquear TextBox, SpinButton y CommandButton según selección en Combobox was marked as the answer
Prueba y comenta
HHE PRUEBA (3) (1).xlsm
-
-
JSDJSD's post in Mostrar hoja en Listbox según selección en Combobox was marked as the answer
Private 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
-
JSDJSD's post in Macro Fusionar Hojas de Excel con ordenación was marked as the answer
Sub ConsolidarSeguimientos(): Application.ScreenUpdating = False primeraCopia = True On Error Resume Next Set destino = Sheets("Seguimiento_Anual") If destino Is Nothing Then Set destino = Sheets.Add destino.Name = "Seguimiento_Anual" Else destino.Cells.Clear End If On Error GoTo 0 For Each ws In ThisWorkbook.Worksheets If ws.Name Like "Seguimiento_*" And ws.Name <> "Seguimiento_Anual" Then If Application.WorksheetFunction.CountA(destino.Cells) = 0 Then ultimaFila = 1 Else ultimaFila = destino.Cells(destino.Rows.Count, "A").End(xlUp).Row + 1 End If If primeraCopia Then ws.UsedRange.Copy Destination:=destino.Cells(ultimaFila, 1) primeraCopia = False Else ws.UsedRange.Offset(1, 0).Resize(ws.UsedRange.Rows.Count - 1).Copy _ Destination:=destino.Cells(ultimaFila, 1) End If End If Next ws ultimaFila = destino.Cells(destino.Rows.Count, "A").End(xlUp).Row Dim i As Long For i = ultimaFila To 2 Step -1 If IsEmpty(destino.Cells(i, 3)) Then destino.Rows(i).Delete End If Next i With destino.Sort .SortFields.Clear .SortFields.Add Key:=destino.Range("A2:A" & ultimaFila), Order:=xlAscending .SortFields.Add Key:=destino.Range("B2:B" & ultimaFila), Order:=xlAscending .SetRange destino.Range("A1").CurrentRegion .Header = xlYes .Apply End With destino.UsedRange.Columns.AutoFit MsgBox "Consolidación completada.", vbInformation End Sub
Organización Formaciones Centro (1).xlsm
-
JSDJSD's post in combinar 2 columnas pero solo de celdas seleccionadas was marked as the answer
Sub CombinarCeldaCyD(): Application.DisplayAlerts = False If Selection Is Nothing Then Exit Sub Set Celda = Selection If Celda.Column <> 3 Then Exit Sub TextoC = Celda.Value TextoD = Celda.Offset(0, 1).Value TextoCombinado = TextoC & " " & TextoD Set RangoACombinar = Range(Celda, Celda.Offset(0, 1)) With RangoACombinar .Merge .Value = TextoCombinado End With End Sub
-
-
JSDJSD's post in ocultar todos los tabs de excel was marked as the answer
stock ALMACEN MMPP 2024 rev.1001 (1).xlsm
-
JSDJSD's post in avanzar una celda hacia abajo apartir de una celda seleccionada was marked as the answer
Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta