Preguntas esperando respuesta
Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macros, una añade letra la otra la quita
Si ejecutas la macro para poner "B", ¿Si ya tiene "B" agregar otra "B"? Si ejecutas la macro para quitar la " B", ¿Si no tiene B quitar el primer número?
Ha valorado "Excelente" la respuesta
Macro que recorra columna encuentre texto y pegue a otra hoja si se cumple condición
https://www.youtube.com/watch?v=HjuSns2xJ5Y&list=PLdK9H5dMIfQgtHDNFFm_AV6HUKYpUjrPx https://www.youtube.com/watch?v=hJHTspgfavI&list=PLdK9H5dMIfQgUh1txO92v_PSBZu4XQ4MB...
Ha empezado a seguir a 
Dante Amor
Dante Amor
Ha valorado "Excelente" la respuesta
Si se da coincidencia en columnas que las sume
Prueba con esta macro Sub TOTALIZAR() Set TOTALES = Range("I2").CurrentRegion Set GASTOS = Range("C2").CurrentRegion With TOTALES R = .Rows.Count: C = .Columns.Count Set TOTALES = Range("I3").Resize(R - 2, C) For I = 1 To R GASTO = .Cells(I, 1) If...
Ha valorado "Excelente" la respuesta
Copiar datos y trasponer con macro
Te anexo la macro Sub Transponer() 'Por.Dante Amor Application.ScreenUpdating = False j = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 4 Range("A" & i & ":A" & i + 3).Copy Range("C" & j).PasteSpecial Paste:=xlPasteAll, Transpose:=True j...
Ha valorado "Excelente" la respuesta
Búsqueda y copiado de datos encontrados
Cargar un listbox con Datos que cumplen con una Condición Excel Vba Estas userform te buscara los activo solo cambia donde dice pendiente por activo La parte de pegar Agregar un botón y copiar este macro Private Sub CommandButton1_Click()...
Ha valorado "Excelente" la respuesta
Sumar coincidencias en dos columnas
Te anexo la macro Sub SumarCoincidencias() 'Por.Dante Amor Set h1 = Sheets("BD") Set h2 = Sheets("ESTD") For i = 2 To h1.Range("U" & Rows.Count).End(xlUp).Row tipo = h1.Cells(i, "U") prov = h1.Cells(i, "Y") Set b = h2.Columns("A").Find(prov,...
