Francisco Moreno

Dante Amor respondió: H o l a : Envíame tu archivo para revisar cómo están tus datos, también me envías un ejemplo de cómo quieres el correo enviado. Tienes que indicarme de dónde obtengo los siguientes datos para completar el correo: Para, Asunto, Cuerpo, Si va incluido...

Dante Amor respondió: H o l a: Te anexo la macro actualizada. En estos casos es mejor, utilizar el método Find( ), de esa forma podemos obtener toda la información del dato encontrado, como la fila, la columna, la dirección, el color de la celda, el contenido de la celda,...

Elsa Matilde respondió: Los botones dibujados en una hoja pueden ser del tipo Formulario o ActiveX. Como no mencionas imaginaré que se trata del primero, y para ocultarlo necesitamos conocer su nombre. En mi ejemplo se llama Botón2 lo que en mi versión VBA sería Button 2....

Dante Amor respondió: H o l a: Veo bastante bien tu macro. Solamente le hice unos pequeños ajustes: Sheets("DGR").Select filalibre = Application.WorksheetFunction.CountA(Range("A:A")) + 1 Set midato = ActiveSheet.Range("B1:B" & filalibre).Find(dato, LookIn:=xlValues,...

Dante Amor respondió: H o l a: Te anexo la macro para enviar correos por Gmail. Realiza lo siguiente para poner en funcionamiento la macro: 1. No me queda claro que va en el asunto del correo, así que cambia esto en la macro: .Subject = "Escribir aquí el asunto del...

Dante Amor respondió: H o l a: Te anexo la macro Sub AgregarFilas() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 Cells(i + 1, "A") = "Premio de Asistencia" Cells(i + 2, "A") = "Premio de Puntualidad" Cells(i...

Dante Amor respondió: H o l a: Te anexo la macro para crear las hojas Sub CrearHojas() 'Por.Dante Amor On Error Resume Next Set h1 = Sheets("base de datos") For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name =...

Elsa Matilde respondió: Te paso la idea para que ajustes tu macro: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo se controla col N a partir de fila 16 - Ajustar rango If Intersect(Target, Range("N16:N200")) Is Nothing Then Exit Sub 'si se limpia...

Elsa Matilde respondió: Entrá al Editor de macros, seleccioná con doble clic desde el panel a tu izquierda el objeto HOJA donde vayas a trabajar y allí copiá esta macro: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'se controla lo ingresado en rango...

Elsa Matilde respondió: Digamos: que desde un libro con la macro, intentas abrir 2 libros: uno llamado OK y el otro no sabemos. Las preguntas son: 1- ¿Ya sabemos que solo hay 2 libros en esa carpeta? 2- Se pasa del libro variable al libro OK, ¿verdad? 3- Cómo es eso de...

Dante Amor respondió: Intenta con lo siguiente: Range("G" & FF).value = cdbl(txtprecio1) Es decir, cuando vayas a pasar el valor del textbox a la celda tienes que ponerlo dentro de la función Cdbl Prueba y me comentas. ':) S a l u d o s . D a n t e A m o r ':) Si es lo...

Elsa Matilde respondió: Si, te recomendé el uso de Set y te lo explico según tu libro. En un bucle buscas cada título de una lista en la fila 1 de hoja de Trabajo. Y una vez encontrado ese título pegas en esa columna un rango de datos. Para ello utilizaste la instrucción:...

Dante Amor respondió: H o l a: Te anexo la fórmula: =CONTAR.SI.CONJUNTO(H3:H207,"L",L3:L207,"LUZ")' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

Dante Amor respondió: H o l a: La macro está bien. Lo que pasa es que los renglones de tus encabezados son muy largos. Lo que tienes que configurar es el tamaño de la hoja. También tienes que ajusta la escala a 1 página por ancho y 1 de alto: También tienes que reducir...

Elsa Matilde respondió: Tal como quedamos irá un modelo para los primeros criterios y veremos cómo lo ves en el ListBox y pasas directamente a la hoja de resultados.

Dante Amor respondió: H o l a: Y si guardas tu factura pero sin macros. ¿Tienes una macro para guardar la factura? ¿O quieres una macro que incremente el número de factura solamente cuando guardas la factura? En ese caso pon la siguiente macro en un módulo: Sub...