Isaac Reyes

H0la Chrisr: Intentemos ordenar un poco la pregunta. Lo que entiendo: Tienes 12 hojas, cada una con el nombre de un mes del añoTienes otra hoja en que tienes tres celdas, supongamos de A1 a A3, en que puedes ingresar en A1 la categoría de gasto; en...

H0la Oziel: Si es lo que entiendo, creo que poner un SI en A3 debiera ser suficiente A3 = SI(A2<>"";A2;A1) S@lu2

H0la Isaifz: El código no parece tener problemas. Si proporcionas un poco más de información, quizá te pueda ayudar. ¿Cuál es el evento, función o procedimiento que contiene al código que adjuntas? ¿Cuál es el error que recibes como respuesta? ¿En...

H0la Kler7: Si quieres obtener una respuesta, te sugiero que abordes tu problema, lo descompongas y hagas preguntas más específicas o derechamente contrates los servicios de un programador. Te dejo un enlace para que revises cómo formular preguntas...

H0la Luis: Esto debiera funcionar bien. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) subBuscaEnFila ActiveSheet, Target.row, "X" Target.Value = "X" End Sub 'BUSCAR EN UNA FILA' 'Por GP' Sub subBuscaEnFila(hojaBusq...

H0la Volpih: Si estás dispuesto a utilizar macros, otra solución podría ser agregar este código en la sección de código de la hoja en cuestión Private Sub Worksheet_Change(ByVal Target As Range) If Target(1).Column = 1 Then Target(1).Value =...

H0la Enrique: No veo que establezcas una relación entre el nombre y el estado en tus archivos. De hecho, con el ejemplo que das, si hicieras la búsqueda de un nombre sobre tu archivo uno y dos, lo único que podrías decir es si el nombre aparece o no...

H0la: Si utilizamos el grabador de macros, al aplicar el filtro obtenemos algo como esto ActiveSheet.Range("$A:$B").AutoFilter Field:=1, Criteria1:="=41907", _ Operator:=xlAnd Ahora, si estamos en la hoja1, el criterio por el que quiero filtrar...

H0la Carlos: Te felicito por intentar resolver el asunto por tus medios. En vista que el grabador de macros no es lo más óptimo, te sugiero la siguiente macro para tu caso Sub copiar() 'Por GP' 'Copiar datos' Range("D8:D100").Value =...

H0la Diego: A ver si esto te es útil. Sub llenar() 'Por GP' Dim lngFilaIni As Long, lngFilaFin As Long Dim lngColIni As Long, lngColFin As Long Dim i As Long, j As Long, k As Long, l As Long lngFilaIni = 2 lngFilaFin = 28 lngColIni = 4 lngColFin = 24...