Francisco Jaimes

Francisco Jaimes

Solo se que nada se
 325 puntos  Colombia @franciscojaimes desde - visto
Preguntar

Preguntas esperando respuesta

Actividad pública reciente

Voto positivo a la respuesta

Como opera la lógica en esta súper macro?

respondió: Con todo gusto, te anexo una breve explicación: 'PROCESO 'recorre cada uno de los elementos del arreglo 'a' For i = 1 To UBound(a, 1) 'almacena en un diccionario. Pone como llave el ID 'y "dentro" de la llave almacena el item, el item está formado...
Voto positivo a la respuesta

Copiado de datos usando array para columnas origen y destino

respondió: Prueba lo siguiente: Sub Macro2() Dim ws1 As Worksheet, ws2 As Worksheet Dim wb As Workbook Dim libro As Variant, colso As Variant, colsd As Variant Dim i As Long, lr As Long ' Application.ScreenUpdating = False ' Set ws1 = ActiveSheet libro =...
Voto positivo a la respuesta

Problema con loop de excell

respondió: Prueba lo siguiente: Private Sub CB_GPRE_Click() Dim sh As Worksheet Dim f As Range, c As Range Dim col As Long ' Application.ScreenUpdating = False ' Set sh = Sheets("DG") col = Columns("J").Column 'BUSCAR Set f = sh.Range("B:B").Find(TXT_CODIGOPR,...
Ha valorado "Excelente" la respuesta

Comparar dos listas y generar un listado único?

respondió: Supongo que los datos en la columna B son únicos, es decir, en la misma columna B no hay datos repetidos. Según tus ejemplos y tu macro. Los datos de la lista 1 empiezan en la celda B4. Los datos de la lista 2 empiezan en la celda E4. Y los...
Voto positivo a la respuesta

Mostrar msbox todo junto al final en "For each cell in rng"

respondió: Prueba lo siguiente: Sub Enviar_individual() Dim rng As Range, cell As Range Dim dest As Variant Dim hora_insp As String, cad As String Dim part1 As Object, part2 As Object ' Set rng = Range("bloque1, bloque2, bloque3, bloque4, bloque5, bloque6,...
Voto positivo a la respuesta

¿Se puede mejorar un código en Excel?

respondió: Tienes fórmulas en las hoja 1. Tienes fórmulas en las hojas 2 y 3 en la columna J. Existen datos en las hojas 2 y 3 en la columna J o están vacías las celdas. Cuántos registros actualmente tienes en cada hoja. Cuánto tiempo dura el proceso actual.
Voto positivo a la respuesta

Formato de número en tabla dinámica VBA

respondió: Al parecer tiene que estar en inglés el formato: .NumberFormat = "#.##0,00;[Red]-#.##0,00" Agregué la instrucción On Error Goto 0, de esa manera se activa nuevamente el control de errores, si ocurre un error el programa se detiene. Con la instrucción...
Voto positivo a la respuesta

¿Cómo eliminar totalmente una fila cuando en una de ellas una celda esté vacía?

respondió: Cuántas filas tienes con al menos un dato, es decir, hasta donde tienes datos. Tienes fórmulas en las celdas o son solamente datos.
Ha preguntado en el tema en y en 2 temas más

Macro para comparar dos listas

Frecuentemente tengo que comparar dos listas de datos, para determinar los valores coincidentes y los valores únicos que no se repiten en cada una. Solicito nuevamente su valiosa colaboración para con la ayuda de una macro pueda gestionar rápidamente...
Sin respuestas
Voto positivo a la respuesta

Macro para insertar fórmula en varias celdas según condicional

respondió: Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("L:L")) Is Nothing Then Dim i As Long If Target.CountLarge > 1 Then Exit Sub If UCase(Target.Value) = UCase("Alta")...
Voto positivo a la respuesta

¿Se puede separar apellidos acompañados de la proposición "De" en una misma celda?

respondió: [Hola Macro Sub quitacaracter() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row cadena = Cells(i, 1) If InStr(1, Mid(cadena, 1, 2), "DE") Then spr = Mid(cadena, 3, Left(Len(cadena), 2)): Cells(i, 1) = spr Else Cells(i, 1) = cadena End If Next i...
Voto positivo a la respuesta

Comparar columnas de 2 hojas y pegar datos

respondió: Podrías utilizar esta fórmula en la hoja2 en la celda B2 y copiar hacia abajo: =INDICE(Hoja1!$B$1:$B$100,COINCIDIR(C2,Hoja1!$C$1:$C$100,0)) O utiliza la siguiente macro: Sub Comparar2Columnas() Dim lr As Long lr = Sheets("Hoja1").Range("C" &...
Voto positivo a la respuesta

Abrir carpeta predeterminada para seleccionar archivo

respondió: Ya lo probé y funciona. Intenta con esta otra: With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add "Archivos excel", "*.xls*" .AllowMultiSelect = False .InitialFileName = "C:\" &...

Experiencia

Me gusta aprender programación y aplicarlo en casos reales

Trabajo

  • Asesor Independiente
    actualmente

Educación

  • UFPS
    Contaduría , 1996 - 2020