Adriel Ortiz Mangia

[Hola prueba así Sub BsoloF() Dim fecha, t As String Dim tabla As Range Dim i As Integer i = 1 fecha = Sheets("Rooms").TextBox1.Text For i = i To 10 t = VBA.Format(fecha, "General Number") & i Set tabla =...

[Hola La respuesta aquí saludos! Como ocultar userform en hoja nueva

[Hola Te paso la macro Valora la respuesta marcando buena o Excelente saludos! Sub Select_rangos() ' 'Fuente Dante//'Act. Adriel Ortiz ' Set a = Cells(3, "A") For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 6 Set a = Union(a, Cells(i, "A"))...

[Hola Pon la macro y ver que soluciones dar, no entendí como es que la formulario se abre mientras en estas trabajando en otra hoja. Si tu formulario está en ejecución y cuando te pasas a la hoja nueva y necesitas que se oculte el formulario Pon esto...

[Hola Te paso la macro Valora la respuesta como excelente para finalizar Sub Organizar_datos() 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino ' h2.Rows("2:" & Rows.Count).Clear k = 4 h2.Cells(3,...

[revisa esto https://jldexcelsp.blogspot.com/2009/12/evitar-borrar-validacion-de-datos-en.html

[Hola Pon una captura de la hoja y ver como está organizado tus datos

[Hola Te paso la macro actualizada Sub copiar() 'Copiar a Base_Seguimiento Set h1 = Sheets("Base_Seguimiento") ' Hoja de origen Set h2 = Sheets("Hoja2") ' Hoja de destino ' u = h1.Range("B" & Rows.Count).End(xlUp).Row + 2 h1.Range("C31:J85").Copy...

[Hola Cambia ActiveSheet. Paste Range("B3").Select por esto ActiveSheet. Range("B3"). PasteSpecial xlValues

[Hola Te paso la macro Valora para finalizar saludos! Sub copiar() '//TodoExpertos ' Application.ScreenUpdating = False Set h1 = Sheets("Registros") u = h1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u hoja = h1.Cells(i, "A") Select Case hoja...