Dante Amor

Dante Amor

Si me amas, siempre voy a estar en tu corazón; si me odias, siempre voy a estar en tu mente. Ódiame o ámame, ambas están a mi favor. Shakespeare
 3.641K puntos  Estado de México, México @aprendemos desde - visto
Preguntar

Preguntas y respuestas en Microsoft Excel

Respuesta en y en 1 temas más a

VBA Excel función "Si" anidada.

H o l a: No tienes que reconstruir la fórmula, solamente reemplaza el texto original por el nuevo texto: Sub Cambiar() 'por Dante Amor texto1 = "Inicio y/o Re-Inicio de Producción y cada vez que se empiece una nueva caja" texto2 = "Inicio y/o...
Respuesta en y en 1 temas más a

EXCEL; Fórmula para encontrar primer y último registro

Envíame tu archivo con ejemplos, me explicas con colores y comentarios, en dónde está la información y cómo encuentro el primer y último registro. Trata de poner varios ejemplos Mi correo [email protected] En el asunto del correo escribe tu nombre de...
Respuesta en y en 2 temas más a

Macro Excel: Copiar rango de datos a otra hoja

Envíame tu archivo y con ejemplos marca cuáles registros vas a copiar de "NC" a "Calculo". Luego con otro color me marcas qué datos copiarías de "BBDD" a "BDD" Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Ricardo...
Respuesta en y en 1 temas más a

Macro para copiar una celda de una hoja en un rango variable de otra hoja

Prueba lo siguiente: Sub Copiar_Celda() 'Por.Dante Amor Set h1 = Sheets("FO124") Set h2 = Sheets("Plano") dato = h1.Range("H5") ' f1 = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 f2 = h2.Range("A" & Rows.Count).End(xlUp).Row h2.Range("B" & f1 & ":B"...

Crear Boleta de Notas automáticamente

H o l a: No se ven las imágenes. Podrías enviarme un ejemplo. Me envías el archivo con 3 hojas: "ACTAS", "BOLETA DE NOTAS" y una tercera hoja con el ejemplo de la "boleta de notas" con el primer alumno de tu lista. Y me dices cómo quieres las...

Función Excel Si: Dependiente celda

Las condiciones son: Si "" entonces "NO PROCESADO" Si 0 (0/1/1900) entonces "ANULADA" <> "" Entonces "PROCESADO" Las condiciones anteriores se cubren con la siguiente fórmula =SI(AG15="","NO ROCESADO",SI(AG15=0/1/1900,"ANULADA","PROCESADO")) Avísame...
Respuesta en y en 2 temas más a

Copiar formato y pegarlo en una fila determinada

Te anexo la macro Sub Poner_Formato() ' ' Por Dante Amor ' Application.ScreenUpdating = False Set b = Columns("A").Find("Fecha", LookAt:=xlWhole) If Not b Is Nothing Then celda = b.Address Do Rows(4).Copy Range("A" & b.Row).PasteSpecial...
Respuesta en y en 1 temas más a

Macro marcar, y numerar según repetidos

Te anexo la macro. Cambia en la macro la siguiente información: c1 = "A" 'columna inicial de datos c2 = "Z" 'columna final de datos f1 = 1 'fila con encabezados col = "AA" 'columna con la numeración ' Sub Marcar_Y_Numerar() ' ' Por Dante Amor ' ' c1...
Respuesta en y en 2 temas más a

Dar formato a celda con un dato determinado

Te anexo la macro actualizada Sub negrita() Dim celdaActual As Object For Each celdaActual In Range("A5:c18") If celdaActual.Value = "BASE DE DATOS ACTUAL" Then celdaActual.Font.Bold = True celdaActual.Font.Size = 14 Else celdaActual.Font.Bold =...

Completar ficha según cuadro de base de datos

Si en la "Hoja1" tienes más de un registro con "enero 2017" y "Juan", entonces se puede solucionar de dos maneras, una opción sería poner en la "Hoja2" tantas fórmulas como registros tengas en la "Hoja1", es decir, si en la "Hoja1", tienes 200...