Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Visual Basic
y en 3 temas más
Solución al siguiente problema de base de datos
A.N.t.E Tengo el siguiente inconveniente que me gustaría que me dieras tu opinión acerca de que pudiera estar ocasionando es situación. Tengo una hoja de excel llamada "BASE" en dicha hoja ingreso datos desde la columna "A" hasta la columna "AW" Algo...
Ha valorado "Buena" la respuesta
Perfeccionar Macro existente incluyendo formulas
Es correcto, cuando es consulta o control es el el encabezado 1 y cuando es código numérico es en el encabezado 2
Voto positivo a la respuesta
Macro que haga un TOP 10 de los clientes que más han comprado en el almacén
Adjunto macro solicitada. Debes indicar dónde guardarás la tabla resultado, en el ejemplo se guarda en Hoja9. Estoy considerando que los datos van con títulos. Sub TOPTEN() 'x Elsamatilde Application.ScreenUpdating = False 'coloca tabla resumen en...
Ha valorado "Excelente" la respuesta
Instrucción que borre la celda de otra hoja si borro el contenido de una celda de una hoja activa
Este sería el código, colocalo en el objeto HOJA Ingresar_Cita: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'controla el borrado de celda D22 If Target.Address = "$D$22" And Target.Value = "" Then...
Ha valorado "Excelente" la respuesta
Macro que copie datos de dos hojas y valores constantes a otra hoja de excel
H o l a: Te anexo la macro Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("ing colpatria") Set h2 = Sheets("colpatria") ' If UCase(h1.[G16]) = "CONSULTA" Or UCase(h1.[G16]) = "CONTROL" Then If UCase(h1.[G16]) = "CONSULTA" Then vbruto = "45870"...
Ha valorado "Excelente" la respuesta
Agregar una nueva instrucción a una macro ya existente
H o l a: Te anexo la macro actualizada. Sub Buscar2() 'Por.Dante Amor Set h2 = Sheets("BASE") Set h3 = Sheets("INGRESAR_CITA") Set h4 = Sheets("AGENDA") Set h5 = Sheets("REAGENDAR") h3.[D8:D24].ClearContents ' If h3.[D6] = "" Then MsgBox "Número de...
Ha valorado "Excelente" la respuesta
Mejorar macro que almacena datos de clientes en otra hoja
H o l a: Te anexo la macro actualizada, de esta forma ya no es necesario, ocultar la aplicación, ni mostrar las hojas, ni volver a ocultar las hojas. Sub ALMACENAR() 'Por.Dante Amor Set h2 = Sheets("CLIENTES") Set h3 = Sheets("FORMULARIO") ' If...
Ha valorado "Excelente" la respuesta
Macro que busque un registro por su código y si hay varios registros con ese código, me dé la posibilidad de borrar los antiguos
H o l a: ¿Y cómo vas a llamar un código? ¿Lo vas a poner en una celda?
Ha valorado "Excelente" la respuesta
Macro que elimine los registros repetidos de una tabla y solo deje el más reciente según fecha
H o l a: Para eliminar los duplicados es preciso ordenar los datos por código y por fecha; entonces la macro ordenará los datos y después eliminará los duplicados. Al finalizar la macro puedes ordenar nuevamente los datos por la columna que...
